SytaxFehler in From-Klausel

K

knowledge

Mitglied
Hallo Leuet,
ich bin von DAO auf ADO umgestiegen und jetzt funktioniert ein Formular nicht in meiner Anwendung. Ich bekomme die Fehlermeldung "SytaxFehler in From-Klausel". Wenn ich aber auf die Select-Anweisung verzichte, bekomme ich den Fehler"Slect,Insert,update oder Delete erwartet".
Habe die ganze Zeit vergeblich versucht den fehler herauszufinden. Ich bin auf eure Hilfe angwewiesen.
Code: 
Private Sub OK_Click()

 On Error GoTo Err_ok2_Click



  Dim conn1 As ADODB.Connection, rs As ADODB.Recordset
  Set conn1 = CurrentProject.Connection
  Set rs= New ADODB.Recordset
  
rs.Open "Select * From Kunden ", conn1, adOpenDynamic
    rs.AddNew
  rs("Name") = Me!Name
  rs("ID") = Me!ID
  
  rs.Update  
  rs.Close        
  DoCmd.Close

  Forms![Einkommen].Form!Uform1.Requery

Err_ok_Click:
    MsgBox Error$
    Resume Exit_ok_Click
End Sub
 
Hi,

also wenn ich mir den Code so anschaue, ist mir schon so einiges unklar:

Code: 
Private Sub OK_Click()

 On Error GoTo Err_ok2_Click
  Diese Sprungmarke gibt es in dieser Prozedur nicht. Sollte wahrscheinlich Err_ok_Click lauten.

  Dim conn1 As ADODB.Connection, rs As ADODB.Recordset
  Set conn1 = CurrentProject.Connection
  Set rs= New ADODB.Recordset

  rs.Open "Select * From Kunden ", conn1, adOpenDynamic
  Wieso machst Du hier einen Select, wenn Du als nächstes nur einen Datensatz einfügen möchtest. Not necessary.
  Entweder packst Du hier ein INSERT Statement rein, oder läst es.
  Desweiteren glaube ich, dass Du für die nächsten Aktionen nur die Tabelle "Kunden" öffnen must.
  rs.Open "Kunden", conn1, adOpenKeySet, adLockOptimistic, adCmdTable
  Ungetestet. Bemühe halt mal die Onlinehilfe
  rs.AddNew
  rs("Name") = Me!Name
  rs("ID") = Me!ID
  
  rs.Update  
  rs.Close        
  DoCmd.Close

  Forms![Einkommen].Form!Uform1.Requery
  Hier müsste  noch stehen:
Exit_ok_Click:
    On Error Goto 0
    Exit Sub

Err_ok_Click:
    MsgBox Error$
    Resume Exit_ok_Click
End Sub

Gruß
Das Orakel
 
Hier ist mein DAO-code und dieser funktioniert in DAO. Was würdest du mir sagen, wie das in ADO implementieren soll. Könntest du mir deine ADO version von dem Code vorschlagen
Code: 
Private Sub OK_Click()

'On Error GoTo Err_ok_Click

  If (Me!A) = Null Then
    MsgBox "Add some value in A" & Chr(10) & Chr(13) & "!"
    Exit Sub
  End If

  Dim DB1 As DATABASE, rs As Recordset
  Set DB1 = DBEngine.Workspaces(0).Databases(0)
  Set Tabelle1 = DB1.OpenRecordset("Customers", DB_OPEN_DYNASET)

 rs.AddNew
 rs("A") = Me!A
  rs("B") = Me!B

  rs.Update    
  rs.Close      

  DoCmd.Close
  Forms![Departments].Form!Uform1.Requery

Exit_ok_Click:
    Exit Sub

Err_ok_Click:
    MsgBox Error$
    Resume Exit_ok_Click
End Sub
 
Hi,

ohne Fehlerbehandlung und so.
Code: 
Private Sub Befehl0_Click()
    Dim rs                  As New ADODB.Recordset

    rs.Open "Kunden", CurrentProject.Connection, adOpenKeyset, adLockOptimistic, adCmdTable
    rs.AddNew
    rs("NAME") = Me!Name
    rs("ID") = Me!ID
    rs.Update
    rs.Close
End Sub

Maybe it helps
Das Orakel
 
Sorry Knowledge,

an diesem Punkt muss ich passen. Der von mir gepostete Code funktioniert bei mir einwandfrei. Ich fahre hier auf meinem Firmenrechner Windows XP Professional und Access 2002 SP3. Vielleicht hat ja noch jemand anders ne Idee.

Gruß
ein "passendes" Orakel
 
Um antworten zu können musst du eingeloggt sein.

Neue Beiträge

Zurück