Received: from iactive2.i-active.com ([209.67.164.140])
	by hub.org (8.9.1/8.9.1) with ESMTP id TAA10246
	for <pgsql-interfaces@postgreSQL.org>;
	Wed, 30 Dec 1998 19:56:31 -0500 (EST)
	(envelope-from david@i-active.com)
Received: from graveyard (DAVID.i-active.com [209.67.164.219])
	by iactive2.i-active.com (Netscape Messaging Server 3.01)
	with SMTP id 849 for <pgsql-interfaces@postgreSQL.org>;
	Wed, 30 Dec 1998 16:57:12 -0800
Message-ID: <000701be345a$fc6dae20$dba443d1@graveyard.i-active.com>
From: "David Weiss" <david@i-active.com>
To: <pgsql-interfaces@postgreSQL.org>
Subject: ODBC Error with VB5.0
Date: Wed, 30 Dec 1998 17:14:59 -0800
MIME-Version: 1.0
Content-Type: multipart/alternative;
	boundary="----=_NextPart_000_0004_01BE3417.EDE5B8E0"
X-Priority: 3
X-MSMail-Priority: Normal
X-Mailer: Microsoft Outlook Express 4.72.3110.1
X-MimeOLE: Produced By Microsoft MimeOLE V4.72.3110.3

This is a multi-part message in MIME format.

------=_NextPart_000_0004_01BE3417.EDE5B8E0
Content-Type: text/plain;
	charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

Hello, I am getting an "ODBC Error 3146 Driver does not support this =
function" when using the following code in vb5.0
It doesnt seem to like the Set RecSet =3D db.OpenRecordset(sqlString, =
dbOpenDynaset)


Public Sub Main()
   Set ws =3D CreateWorkspace("ODBCWorkspace", "", "", dbUseODBC)

   Workspaces.Append ws
  =20
   Set db =3D ws.OpenDatabase("PostgreSQL", dbDriverNoPrompt, False, _
               =
"ODBC;DATABASE=3Dsavvyshopper;UID=3D;PWD=3D;DSN=3DPostgreSQL")

   frmMainMenu.Show
  =20
End Sub

Public Sub SavvyInit(db As Database)
  =20
    sqlString =3D "select * " & _
                     "from adds " & _
                     "where storeid=3D'106' and pricedesc=3D'2.49';"

              =20
    Set RecSet =3D db.OpenRecordset(sqlString, dbOpenDynaset)
   =20
    frmAdDesign.txtDescription =3D RecSet!storeid.Value
     =20
End Sub

Any suggestions? :)

Thanks,

David Weiss david@i-active.com


+=3D=3D=3D=3D]=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D>
Legal Warning: Anyone sending me unsolicited/commercial/junk/spam e-mail

WILL be charged a US $500 proof reading fee.  DO NOT send unsolicited
advertisements and do NOT add my e-mail address to your list(s)!

"By US Code Title 47 Sec.227(a)(2)(B) a computer/modem/printer meets the

definition of a telephone fax machine.  By Sec.227(b)(1)(C), it is
unlawful to send any unsolicited advertisements to such equipment. =20
By Sec.227(b)(3)(C), a violation of the aforementioned Section is
punishable by action to recover actual monetary loss, or $500,=20
whichever is greater, for each violation."
+=3D=3D=3D=3D]=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D>

------=_NextPart_000_0004_01BE3417.EDE5B8E0
Content-Type: text/html;
	charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

<!DOCTYPE HTML PUBLIC "-//W3C//DTD W3 HTML//EN">
<HTML>
<HEAD>

<META content=3Dtext/html;charset=3Diso-8859-1 =
http-equiv=3DContent-Type>
<META content=3D'"MSHTML 4.72.3110.7"' name=3DGENERATOR>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT color=3D#000000 size=3D2>Hello, I am getting an &quot;ODBC =
Error 3146=20
Driver does not support this function&quot; when using the following =
code in=20
vb5.0</FONT></DIV>
<DIV><FONT color=3D#000000 size=3D2></FONT><FONT size=3D2>It doesnt seem =
to like the=20
Set RecSet =3D db.OpenRecordset(sqlString, =
dbOpenDynaset)<BR></FONT></DIV>
<DIV><FONT color=3D#000000 size=3D2></FONT>&nbsp;</DIV>
<DIV><FONT color=3D#000000 size=3D2>Public Sub Main()<BR>&nbsp;&nbsp; =
Set ws =3D=20
CreateWorkspace(&quot;ODBCWorkspace&quot;, &quot;&quot;, &quot;&quot;,=20
dbUseODBC)</FONT></DIV>
<DIV><FONT color=3D#000000 size=3D2></FONT>&nbsp;</DIV>
<DIV><FONT color=3D#000000 size=3D2>&nbsp;&nbsp; Workspaces.Append=20
ws<BR>&nbsp;&nbsp; <BR>&nbsp;&nbsp; Set db =3D=20
ws.OpenDatabase(&quot;PostgreSQL&quot;, dbDriverNoPrompt, False,=20
_<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&n=
bsp;&nbsp;&nbsp;=20
&quot;ODBC;DATABASE=3Dsavvyshopper;UID=3D;PWD=3D;DSN=3DPostgreSQL&quot;)<=
/FONT></DIV>
<DIV><FONT color=3D#000000 size=3D2></FONT>&nbsp;</DIV>
<DIV><FONT color=3D#000000 size=3D2>&nbsp;&nbsp; =
frmMainMenu.Show<BR>&nbsp;&nbsp;=20
<BR>End Sub</FONT></DIV>
<DIV><FONT color=3D#000000 size=3D2></FONT>&nbsp;</DIV>
<DIV><FONT color=3D#000000 size=3D2>Public Sub SavvyInit(db As=20
Database)<BR>&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp; sqlString =3D =
&quot;select *=20
&quot; &amp;=20
_<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&n=
bsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=20
&quot;from adds &quot; &amp;=20
_<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&n=
bsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=20
&quot;where storeid=3D'106' and pricedesc=3D'2.49';&quot;</FONT></DIV>
<DIV><FONT color=3D#000000 size=3D2></FONT>&nbsp;</DIV>
<DIV><FONT color=3D#000000=20
size=3D2>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbs=
p;&nbsp;&nbsp;&nbsp;=20
<BR>&nbsp;&nbsp;&nbsp; Set RecSet =3D db.OpenRecordset(sqlString,=20
dbOpenDynaset)<BR>&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp;=20
frmAdDesign.txtDescription =3D=20
RecSet!storeid.Value<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <BR>End =
Sub</FONT></DIV>
<DIV>&nbsp;</DIV>
<DIV><FONT color=3D#000000 size=3D2>Any suggestions? :)</FONT></DIV>
<DIV><FONT color=3D#000000 size=3D2></FONT>&nbsp;</DIV>
<DIV><FONT size=3D2>Thanks,</FONT></DIV>
<DIV><FONT size=3D2></FONT>&nbsp;</DIV>
<DIV><FONT size=3D2>David Weiss </FONT><FONT size=3D2><A=20
href=3D"mailto:david@i-active.com">david@i-active.com</A></FONT></DIV>
<DIV><FONT size=3D2></FONT>&nbsp;</DIV>
<DIV>&nbsp;</DIV>
<DIV><FONT color=3D#000000=20
size=3D2>+=3D=3D=3D=3D]=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D&gt;<BR>Legal=20
Warning: Anyone sending me unsolicited/commercial/junk/spam =
e-mail</FONT></DIV>
<DIV><FONT color=3D#000000 size=3D2></FONT>&nbsp;</DIV>
<DIV><FONT color=3D#000000 size=3D2>WILL be charged a US $500 proof =
reading=20
fee.&nbsp; DO NOT send unsolicited<BR>advertisements and do NOT add my =
e-mail=20
address to your list(s)!</FONT></DIV>
<DIV><FONT color=3D#000000 size=3D2></FONT>&nbsp;</DIV>
<DIV><FONT color=3D#000000 size=3D2>&quot;By US Code Title 47 =
Sec.227(a)(2)(B) a=20
computer/modem/printer meets the</FONT></DIV>
<DIV><FONT color=3D#000000 size=3D2></FONT>&nbsp;</DIV>
<DIV><FONT color=3D#000000 size=3D2>definition of a telephone fax =
machine.&nbsp; By=20
Sec.227(b)(1)(C), it is<BR>unlawful to send any unsolicited =
advertisements to=20
such equipment.&nbsp; <BR>By Sec.227(b)(3)(C), a violation of the =
aforementioned=20
Section is<BR>punishable by action to recover actual monetary loss, or =
$500,=20
<BR>whichever is greater, for each=20
violation.&quot;<BR>+=3D=3D=3D=3D]=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D&gt;</FONT></DIV></BODY></HTML>

------=_NextPart_000_0004_01BE3417.EDE5B8E0--