Member Avatar for man924

the code is below.
the system said me that the insert into sql syntax error
any solutions?

Dim dbProvider As String
    Dim dbSource As String
    Dim constr As New OleDb.OleDbConnection
    Dim sql As String
    Dim ds As New DataSet
    Dim da As OleDb.OleDbDataAdapter



form load code:
        dbProvider = "PROVIDER=Microsoft.Jet.OLEDB.4.0;"
        dbSource = "Data Source = pj.mdb"
        constr.ConnectionString = dbProvider & dbSource
        sql = "select * from information"
        da = New OleDb.OleDbDataAdapter(sql, constr)
        da.Fill(ds, "bking")


button click event :
        Dim cb As New OleDb.OleDbCommandBuilder(da)
        Dim dsNewRow As DataRow
        dsNewRow = ds.Tables("bking").NewRow()
        dsNewRow.Item(0) = "1231231"
        ds.Tables("bking").Rows.Add(dsNewRow)
        da.Update(ds, "bking")
        MsgBox("New Record added to the Database")
Edited by Nick Evan because: Added [CODE] tags
  • 2 Contributors
  • 1 Reply
  • 274 Views
  • 6 Hours Discussion Span
  • Latest Post Latest Post by IrshadIkhlas
Member Avatar for IrshadIkhlas

Hi,

Add Oledbcommand and Oledbconnection in Your project and create connection and in below coding do changes as requied and it will work.

Dim ROW As DataRow
        Dim Cmd As New OleDb.OleDbCommand
        OleDbConnection1.Open()

                '
        With Cmd
            .CommandText = "INSERT INTO [TableName] (VERSION, SMASK, EQP, FCAP, JCAP, YCAP)  VALUES  ('" & VERSION.Text & "', '" & SMASK.Text & "', '" & EQP.Text & "','" & FCAP.Text & "', '" & JCAP.Text & "', '" & YCAP.Text & "')"
            .CommandType = CommandType.Text
            .Connection = Me.OleDbConnection1
            .ExecuteNonQuery()
        End With

        OleDbConnection1.Close()
Edited by Nick Evan because: Added [CODE] tags. Learn to use them yourself please.
Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.