ADODB
16.07.2019 16:04:53
Joachim
ich verbinde mich mit einer Oracle-DB und update Daten.
Fragen:
Muss ich am Ende die Connection und Recordset wieder schließen?
Was passt, wenn ich es nicht tue?
Aktuell kommt die Fehlermeldung "Der Vorgang ist für ein geschlossenes Objekt nicht zugelassen" in der Zeile RS.Close
Hier mein Code:
Dim Conn As New ADODB.Connection
Dim RS As New ADODB.Recordset
Dim Cmd As New ADODB.Command
Dim sqlText As String
Dim mst As Double, i As Integer, last As Integer, knr As String
Dim UID As String
Dim PWD As String
Dim Server As String
mst = Range("C2").Value
knr = Range("F6").Value
UID = "user"
PWD = "passwort"
Server = "mein_server"
Conn.Open "PROVIDER=OraOLEDB.Oracle;DATA SOURCE=" & Server & ";" & "USER ID=" & UID & ";PASSWORD=" & PWD
Cmd.ActiveConnection = Conn
Cmd.CommandType = adCmdText
sqlText = "update em3_t_mesversionen set kunden_nr = '" & knr & "' where messstellen_nr = " & mst & ""
Cmd.CommandText = sqlText
Set RS = Cmd.Execute
Conn.Close
RS.Close
Set Conn = Nothing
Set RS = Nothing
Gruß
Joachim