✔ Daten in einer Access datenbank über Formular eintragen

[Julian Maicher]

Das ist ja auch ein falscher Syntax.
Sieht mir nach einer Mischung zwischen C# und VB.NET aus

Dim com As new OleDbCommand("Insert into pers (name,vorname) values ( ' " & name & " ',' " & vorname & " ' )", conn)

 

[bomber080674]

OleDbcommand ist nicht definiert!

Kan es sein das anstatt der new OleDbCommand durch new OleDb.OleDbadapter ersetzt werden muss?
danke Mike

 

[bomber080674]

Also ich´musste das so machen

 Dim vorname As String
        Dim name As String

        name = Replace(TextBox1.Text, "''", "'")
        vorname = Replace(TextBox2.Text, "''", "'")

        Dim conn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source =adressenmdb.mdb;" & "User ID = Admin;")


        Dim com As New OleDb.OleDbDataAdapter("Insert into pers (adr_name,adr_vorname) values ( ' " & name & " ',' " & vorname & " ' )", conn)

Jetzt bekomme ich aus keine Fehlermeldung mehr nur er trägt aber auch nichts ein

Warum?

Danke Mike

 

[Julian Maicher]

Du musst natürlich zuerst die Connection öffnen.

        Dim vorname As String
        Dim name As String

        name = Replace(TextBox1.Text, "''", "'")
        vorname = Replace(TextBox2.Text, "''", "'")

        Dim conn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source =adressenmdb.mdb;" & "User ID = Admin;")
Try
        conn.open
        Dim com As New OleDb.OleDbDataAdapter("Insert into pers (adr_name,adr_vorname) values ( ' " & name & " ',' " & vorname & " ' )", conn)
Catch err As OleDb.OleDbException
         Messagebox.show(err.tostring)
Finally
        conn.close
End Try

 

[bomber080674]

Danke für eure Mühe an allen Beteiligten!

Ich habe mein Problem gelöst und kann jetzt endlich Daten in einer Access DB über vb.net füllen


Grüsse Mike