Обсуждение: ODBC Error with VB5.0

Поиск
Список
Период
Сортировка

ODBC Error with VB5.0

От
"David Weiss"
Дата:
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,
 
David Weiss david@i-active.com
 
 
+====]=================================================>
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."
+====]=================================================>