Hallo,
ich habe in Access ein Projekt erstellt und die Daten liegen in einer SQL Datenbank. Ich möchte nun mit VB-Code Daten in eine Tabelle schreiben. Kann mir hierjemand helfen?
Vielen Dank!
mfg.
Marco
Function DSSchreiben()
Dim Con As ADODB.Connection
Dim RS As ADODB.Recordset
Dim SQL As String
'TabellenErstellername brauchst Du, wenn der akt. User
'nicht der Besitzer ist, ansonsten kannst Du’s weglassen
SQL = „SELECT * FROM TabellenErstellerName.TabellenName“
'Wenn das Projekt mit dem SQL-Server verbunden ist
Set Con = CurrentProject.Connection
'Ansosten Verbindung herstellen
'con.ConnectionString = „Provider=SQLOLEDB.1;Integrated _
Security=SSPI;Initial Catalog=DeineServerDB;Data _
Source=LokalerServernameOderRemoteString“
'String oben ggfls. erweitern um „User ID=“;„PWD=“
'bzw. String Deinen Gegebenheiten anpassen
'con.Open
Set RS = New Recordset
RS.Open SQL, Con, adOpenKeyset, adLockOptimistic
'Mal alle lesen
RS.MoveFirst
Do While Not RS.EOF
Debug.Print RS.Fields(„IrgendeinFeldName“)
RS.MoveNext
Loop
'Debug.Print RS.RecordCount
'Zum Schluss mal testeshalber einen DS einfügen:
RS.AddNew
RS.Fields(„IrgendeinFeldname“) = „Testeintrag“
RS.Update
'Oder div. Aktionsabfragen übergeben
'db.execute("INSERT INTO…)
'db.execute("UPDATE…)
'etc.
End Function
Gruss aus Finnland
Stephan
http://it-werkstatt.com