Hallo,
die Ausgangssituation wurde mit der nachstehenden Access-Datenbank nachgestellt:
1 Tabelle:
Name: Projekte
Felder Typ: Kurzer Text: Hauptauftraggeber, Projektverantwortlicher, Projektnummer
Name: PKB
Felder: PKB_Nr, Projektaktivitäten, Ergebnisse
Excel Arbeitsmappe:
Userform
- 6 Textboxen Textbox1 - Textbox6
- 1 CommandButton
Code:
- Verweis auf Microsoft ActiveX Data Objects x.x Library
VBA-Code:
Private Sub CommandButton1_Click()
Dim con As New ADODB.connection
Dim connectionString As String
Dim sql As String
connectionString = "DBQ=C:\Temp\Projekt.mdb; Driver={Microsoft Access Driver (*.mdb)}"
con.Open connectionString
sql = "insert into Projekte (Hauptauftraggeber, Projektverantwortlicher, Projektnummer) values ('" & TextBox4.Text & "', '" & TextBox5.Text & "', '" & TextBox6.Text & "')"
con.Execute sql
sql = "insert into PKB (PKB_Nr, Projektaktivitäten, Ergebnisse ) values ('" & TextBox1.Text & "', '" & TextBox2.Text & "', '" & TextBox3.Text & "')"
con.Execute sql
MsgBox " Werte wurden erfolgreich in die Datenbank übernommen. ", vbInformation, "Übernahme in die Datenbak"
con.Close
Set con = Nothing
End Sub
Bei der Ausführung werden keine Fehler angezeigt. Der Befehl läuft ohne Auffälligkeiten durch.
Der erste sql-Befehl wurde deshalb nicht durchgeführt, weil der Execute-Befehl gefehlt hat.
VG, BigBen
|