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 = db.OpenRecordset(sqlString, dbOpenDynaset)
Public Sub Main()
Set ws = CreateWorkspace("ODBCWorkspace", "", "", dbUseODBC)
Workspaces.Append ws
Set db = ws.OpenDatabase("PostgreSQL", dbDriverNoPrompt, False, _
"ODBC;DATABASE=savvyshopper;UID=;PWD=;DSN=PostgreSQL")
frmMainMenu.Show
End Sub
Public Sub SavvyInit(db As Database)
sqlString = "select * " & _
"from adds " & _
"where storeid='106' and pricedesc='2.49';"
Set RecSet = db.OpenRecordset(sqlString, dbOpenDynaset)
frmAdDesign.txtDescription = RecSet!storeid.Value
End Sub
Any suggestions? :)
Thanks,
+====]=================================================>
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.
By Sec.227(b)(3)(C), a violation of the aforementioned Section is
punishable by action to recover actual monetary loss, or $500,
whichever is greater, for each violation."
+====]=================================================>