P
phil00
Aktives Mitglied
Hallo erstmal, habe folgendes Problem. Bisher habe ich von excel immer in eine Access Datenbank geschrieben. Aber durch Systemumstellung ist unsere Hauptdatenbank jetzt auf SQL umgestellt worden und seit dem funktioniert es nicht mehr so richtig. Mein Quellcode den ich bisher für Access Tabellen hergenommen habe. Wichtig vielleicht noch, ich habe die SQL Tabellen in Access schon mal importiert:
Sub Test_SQLAdd()
If Sheets("Ausgabe").Cells(6, 2) = "" Then MsgBox "Bitte LN-ID eingeben"
If Sheets("Ausgabe").Cells(6, 2) = "" Then Exit Sub
If Sheets("Ausgabe").Cells(7, 2) = "" Then MsgBox "Bitte LN-Firma eingeben"
If Sheets("Ausgabe").Cells(7, 2) = "" Then Exit Sub
Sheets("Ausgabe").Select
Dim db As Database, rs As Recordset
Set db = OpenDatabase("\\wbl\wbl_dateien\Wirtschaftsberatung Lummer\Abschlüsse-2008.mdb")
Set rs = db.OpenRecordset(Name:="dbo_ADDITIONAL01", Type:=dbOpenDynaset)
With rs
.AddNew
.Fields("SUPERID").Value = Range("B6")
.Fields("TEXT1").Value = Range("b16")
.Fields("CURRENCY1").Value = Range("b32")
.Fields("CURRENCY2").Value = Range("b34")
.Fields("NUMBER1").Value = Range("b36")
.Fields("CURRENCY3").Value = Range("b38")
.Fields("NUMBER3").Value = Range("b41")
.Fields("NUMBER2").Value = Range("b49")
.Fields("CURRENCY5").Value = Range("b53")
.Fields("CURRENCY4").Value = Range("b39")
.Fields("TEXT2").Value = Range("b10")
.Update
End With
rs.Close
db.Close
Set rs = Nothing
MsgBox "Das Angebot wurde im Angebotsverzeichnis gespeichert."
End Sub
Der Fehler kommt immer bei Type:=dbOpenDynaset
VIelleicht kann mir ja jemand helfen.
Schon mal vielen dank im vorraus und noch einen schönen 4. Advent.
Philipp
Sub Test_SQLAdd()
If Sheets("Ausgabe").Cells(6, 2) = "" Then MsgBox "Bitte LN-ID eingeben"
If Sheets("Ausgabe").Cells(6, 2) = "" Then Exit Sub
If Sheets("Ausgabe").Cells(7, 2) = "" Then MsgBox "Bitte LN-Firma eingeben"
If Sheets("Ausgabe").Cells(7, 2) = "" Then Exit Sub
Sheets("Ausgabe").Select
Dim db As Database, rs As Recordset
Set db = OpenDatabase("\\wbl\wbl_dateien\Wirtschaftsberatung Lummer\Abschlüsse-2008.mdb")
Set rs = db.OpenRecordset(Name:="dbo_ADDITIONAL01", Type:=dbOpenDynaset)
With rs
.AddNew
.Fields("SUPERID").Value = Range("B6")
.Fields("TEXT1").Value = Range("b16")
.Fields("CURRENCY1").Value = Range("b32")
.Fields("CURRENCY2").Value = Range("b34")
.Fields("NUMBER1").Value = Range("b36")
.Fields("CURRENCY3").Value = Range("b38")
.Fields("NUMBER3").Value = Range("b41")
.Fields("NUMBER2").Value = Range("b49")
.Fields("CURRENCY5").Value = Range("b53")
.Fields("CURRENCY4").Value = Range("b39")
.Fields("TEXT2").Value = Range("b10")
.Update
End With
rs.Close
db.Close
Set rs = Nothing
MsgBox "Das Angebot wurde im Angebotsverzeichnis gespeichert."
End Sub
Der Fehler kommt immer bei Type:=dbOpenDynaset
VIelleicht kann mir ja jemand helfen.
Schon mal vielen dank im vorraus und noch einen schönen 4. Advent.
Philipp