I have a simple Access database and I'm using VB.net. I'm getting a syntax
error on the update line. Any idea what needs to be fixed
Dim CX As String = "Provider=Micro soft.Jet.OLEDB. 4.0;Data Source= " &
Application.Sta rtupPath & "\zAdmin.mdb;Us er Id=admin;Passwo rd=;"
Dim PWConn As New OleDbConnection (CX)
PWConn.Open()
SQL = "Select * from Admin"
Dim AdDataSet As New DataSet
Dim AdAdapter As New OleDbDataAdapte r(SQL, PWConn)
AdAdapter.Fill( AdDataSet, "Admin")
Dim MyCommandBuilde r As New OleDbCommandBui lder(AdAdapter)
AdAdapter.Inser tCommand = MyCommandBuilde r.GetInsertComm and
AdAdapter.Updat eCommand = MyCommandBuilde r.GetUpdateComm and
Dim PwTable As DataTable
PwTable = AdDataSet.Table s("Admin")
PwTable.Rows(0) ("Password") = "charlie"
AdAdapter.Updat e(AdDataSet, "Admin")
AdDataSet.Accep tChanges()
PWConn.Close()
Thanks
error on the update line. Any idea what needs to be fixed
Dim CX As String = "Provider=Micro soft.Jet.OLEDB. 4.0;Data Source= " &
Application.Sta rtupPath & "\zAdmin.mdb;Us er Id=admin;Passwo rd=;"
Dim PWConn As New OleDbConnection (CX)
PWConn.Open()
SQL = "Select * from Admin"
Dim AdDataSet As New DataSet
Dim AdAdapter As New OleDbDataAdapte r(SQL, PWConn)
AdAdapter.Fill( AdDataSet, "Admin")
Dim MyCommandBuilde r As New OleDbCommandBui lder(AdAdapter)
AdAdapter.Inser tCommand = MyCommandBuilde r.GetInsertComm and
AdAdapter.Updat eCommand = MyCommandBuilde r.GetUpdateComm and
Dim PwTable As DataTable
PwTable = AdDataSet.Table s("Admin")
PwTable.Rows(0) ("Password") = "charlie"
AdAdapter.Updat e(AdDataSet, "Admin")
AdDataSet.Accep tChanges()
PWConn.Close()
Thanks
Comment