VBA-Tutorial / Zugriff auf eine Datenbank

Beispiel:

Sub DB()
	Dim dbcon As ADODB.Connection
	Dim rs As ADODB.Recordset

	Set dbcon = New ADODB.Connection
	dbcon.ConnectionString = "Provider=SQLOLEDB.1;_
		Integrated Security=SSPI;Persist Security Info=False;_
		Initial Catalog=db70290;Data Source=DESKTOP"
	dbcon.Open
	Set rs = New ADODB.Recordset
	rs.Open "select * from Exam", dbcon, adOpenStatic

	MsgBox "Feld: " & rs.Fields("Question")
	rs.Close
	Set dbcon = Nothing
End Sub

Unter Extras-Verweise muss "Microsoft Active Data Objects" angekreuzt werden. Es ist nicht immer ratsam die neuste Variante zu nehmen,

Um den Connection-String heraus zu finden, kann man einfach eine Datei mit der Endung UDL erstellen und diese doppelklicken.

In der Registerkarte Provider wählt man den passenden Treiber aus:

In der Registerkarte Verbindungen setzt man die entsprechenden Einstellungen für die Datenbank:

Einstellungen in den übrigen Registerkarten sind in der Regel seltener nötig.

Öffnet man die UDL-Datei jetzt mit einem Text-Editor, dann enthält diese den passenden Connect-String in der 3. Zeile

 

[oledb] ; Everything after this line is an OLE DB initstring Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=db70290;Data Source=DESKTOP