Avatar billede mihl Nybegynder
24. november 2004 - 11:04 Der er 1 kommentar og
1 løsning

Æ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 !
Avatar billede mihl Nybegynder
24. november 2004 - 11:04 #1
heller = hedder
24. november 2004 - 11:25 #2
Prøv med denne (husk lige at skifte DitServernavn ud med det rigtige):

Public Sub Ny_Låner_Godkendt()
    On Error GoTo Errorhandler
    Dim Conn As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    Conn.Open "ODBC;DRIVER=SQL Server;SERVER=DitServernavn;DATABASE=MainData"
    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
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester