Ændring fra Access til MsSql
Jeg har følgende kode:Public Sub Ny_Låner_Godkendt()
On Error GoTo Errorhandler
Dim Conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & App.Path & "\V97.mdb"
SQLstmt = "SELECT * FROM Lånere"
rs.Open SQLstmt, Conn, 1, 3
rs.AddNew
rs("Fornavn") = Form8.Label7.Caption
rs("Efternavn") = Form8.Label8.Caption
rs("Telefonnummer") = Form8.Label9.Caption
rs("Adresse") = Form8.Label10.Caption
rs("Postnr") = Form8.Label11.Caption
rs("CPR-Nr") = Form8.Label12.Caption
rs.Update
Info_Len_Func.Ln Len(rs("Lånernr")), rs("Lånernr")
Form8.Label13.Caption = "Gennemført: OK"
Form8.Command1.Enabled = False
Exit Sub
Errorhandler:
Info_Errorhandler.Errorhandler
End Sub
SQL-Strengen skal konverteres, så den kan udføre det samme blot i en MsSQL database der heller MainData...
Plz hjælp !
