Mit VBA, SQL Datensatz schreiben
Hallo,
ich versuche ein Datensatz mittels VBA in SQL Datenbank zu schreiben, leider bekomme ich das nicht hin. Es kommt ein Fehlermeldung "Die gespeicherte Prozedur "kal" wurde nicht gefunden" es ist aber keine Prozedur sondern eine Tabelle (sie ist leer) unten das Queltext. Kann mir jemand helfen das Problem zu lösen - danke voraus. Die Datenbank heisst kal1 und Tabelle kal mit Feldern: wochentag, tag, monat und jahr
MfG Joachim
Sub kal()
On Error GoTo Fehler
Dim strConn As String
Dim Conn As ADODB.Connection
Dim rst As New ADODB.Recordset
On Error GoTo Fehler
Set Conn = New ADODB.Connection
strConn = "PROVIDER=SQLOLEDB;"
strConn = strConn & "DATA SOURCE=JOACHIM-PC;INITIOAL CATALOG=kal1.mdf;User id=Joachim;Password=joachim;"
strConn = strConn & "INTEGRATED SECURITY=sspi;"
Conn.Open strConn
Set rst = New ADODB.Recordset
With rst
.Open "kal", Conn, adOpenKeyset, adLockOptimistic
.AddNew
.Fields(wochentag) = "Mo"
.Fields("tag") = "1"
.Fields("monat") = "2"
.Fields("jahr") = "2011"
.Update
.Close
End With
Stop
Conn.Close
Set Conn = Nothing
GoTo n10
Fehler:
MsgBox Err.Number & " " & Err.Description
n10:
End Sub
On Error GoTo Fehler
Dim strConn As String
Dim Conn As ADODB.Connection
Dim rst As New ADODB.Recordset
On Error GoTo Fehler
Set Conn = New ADODB.Connection
strConn = "PROVIDER=SQLOLEDB;"
strConn = strConn & "DATA SOURCE=JOACHIM-PC;INITIOAL CATALOG=kal1.mdf;User id=Joachim;Password=joachim;"
strConn = strConn & "INTEGRATED SECURITY=sspi;"
Conn.Open strConn
Set rst = New ADODB.Recordset
With rst
.Open "kal", Conn, adOpenKeyset, adLockOptimistic
.AddNew
.Fields(wochentag) = "Mo"
.Fields("tag") = "1"
.Fields("monat") = "2"
.Fields("jahr") = "2011"
.Update
.Close
End With
Stop
Conn.Close
Set Conn = Nothing
GoTo n10
Fehler:
MsgBox Err.Number & " " & Err.Description
n10:
End Sub
Please also mark the comments that contributed to the solution of the article
Content-Key: 153627
Url: https://administrator.de/contentid/153627
Printed on: April 27, 2024 at 00:04 o'clock
4 Comments
Latest comment