title image


Smiley z.B.: ADO
Hallo,



zuerst brauchst du den Microsoft ActiveX Data Object x.x Library zu Verweisen hinzufügen. (Projekt->Verweise)



Danach eine globale Variable z.B. in einem Modul:

'Datenbank - globale VariablenPublic dbConnection As ADODB.Connection   ' globale Variable



So wird die Verbindung hergestellt:

Set dbConnection = New ADODB.ConnectionWith dbConnection  .Provider = "Microsoft.Jet.OLEDB.4.0"  .CursorLocation = adUseClient  .ConnectionString = "C:\Test.mdb"  .Open  If .State = adStateOpen Then    MsgBox "Verbindung hergestellt!"  End IfEnd With



Wenn die Datenbank mit einem Passwort geschützt ist, dann so:

Set dbConnection = New ADODB.ConnectionWith dbConnection   .Provider = "Microsoft.Jet.OLEDB.4.0"   .CursorLocation = adUseClient   .ConnectionString = "Data Source=C:\Test.mdb; Jet OLEDB:Database Password=admin"   .Open   If .State = adStateOpen Then      MsgBox "Verbindung hergestellt!"   End IfEnd With



Und so getrennt:

With dbConnection   If .State = adStateOpen Then      .Close   End IfEnd WithSet dbConnection = Nothing

Mit freundlichen Grüßen

AndyG

E-Mail:  Andreas_Graf [öt] DevPlanet.de
Homepage:  http://www.DevPlanet.de



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: