Hy,
Ich arbeite zurzeit mit VB6 + Access! Ich bekomme leider bei folgendem Statement immer die Fehlermeldung: Laufzeitfehler 13 Typenunverträglich.
Bei der Rot eingefärbten Zeile bleibt er immer stehen! der Zahlenwert KONID wird im debug-modus auch korrekt angegeben!
Ich hoffe Ihr könnt mir helfen!
mfg
dust
Ich arbeite zurzeit mit VB6 + Access! Ich bekomme leider bei folgendem Statement immer die Fehlermeldung: Laufzeitfehler 13 Typenunverträglich.
Code:
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
rs.LockType = adLockOptimistic
rs.CursorType = adOpenKeyset
Status = "Reserviert"
rs.Source = "Select KontainerNrID as KOID from KontainerNr where Status= """ & Status & """ "
rs.Open rs.Source, conn, adCmdText
KONID = rs.Fields("KOID")
rs.Close
rs.Source = "Select ZahlungsID as ZHID from Kontainer where KontainerNrID= " & KONID & " "
rs.Open , rs.Source, conn, adCmdText
Bei der Rot eingefärbten Zeile bleibt er immer stehen! der Zahlenwert KONID wird im debug-modus auch korrekt angegeben!
Ich hoffe Ihr könnt mir helfen!
mfg
dust