DB exists but will not open [Exquisitely SOLVED]

[Rook Zimbabwe]

I have tried to open a ACCESS DB with this...

Code: Select all

ODBCDatabaseName$ = "wunder1.mdb"

yes1 = InitDatabase()
Debug yes1
yes2 = OpenDatabase(#DB, ODBCDatabaseName$, "", "") 
Debug yes2

The MBD file and the program are saved in the same directory. Filename is verified.

yes1 = 13069??? so it works
yes2 = 0 and the program hangs...

There is no username or PW

I am stumped

[srod]

Have you registered the database connection through the ODBC control panel? If not, then this would explain your problem.

[netmaestro]

Code: Select all

Declare AddConnection(Driver.s,ConnectString.s) 
Declare RemoveConnection(Driver.s,DSN.s) 

#ODBC_ADD_DSN    = 1    
#ODBC_CONFIG_DSN = 2 
#ODBC_REMOVE_DSN = 3 

;Replace File$ with a database that exists on your system! 
File$ = "d:\wordconnect\twl98.mdb" 
Result=AddConnection("Microsoft Access Driver (*.mdb)","Server=127.0.0.1; Description=MyDescription ;DSN=MyDSN;DBQ="+File$+";UID=;PWD=;") 

If Result 
  InitDatabase() 
  db = OpenDatabase(0, "MyDSN", "", "") 
  If db 
    Debug "Opened Successfully" 
    CloseDatabase(0) 
    If RemoveConnection("Microsoft Access Driver (*.mdb)","MyDSN") 
      Debug "Closed Successfully" 
    EndIf 
  EndIf 
EndIf 

Procedure AddConnection(Driver.s,ConnectString.s) 
    Result=SQLConfigDataSource_(0,#ODBC_ADD_DSN,Driver,ConnectString ) 
    If Result 
      ProcedureReturn 1 
    EndIf 
EndProcedure 

Procedure RemoveConnection(Driver.s,DSN.s) 
    Result=SQLConfigDataSource_(0,#ODBC_REMOVE_DSN,Driver,"DSN="+DSN) 
    If Result 
      ProcedureReturn 1 
    EndIf 
EndProcedure 

[Rook Zimbabwe]

NetMaestro... You and Srod and Trond and a great many others are REALLY doing more than a fair share of the helping out around here. I hope I can be as helpful to twinkiebrains like me one day!!!!!!!

[GeoTrail]

Thanks for that netmaestro.
Very helpfull