Hej.
När jag försöker ändra informationen i en rad så får jag detta:
"Syntaxfel (operator saknas) i frågeuttrycket '((ID = ?) AND ((? = 1 AND Förnamn IS NULL) OR (Förnamn = ?)) AND ((? = 1 AND Efternamn IS NULL) OR (Efternamn = ?)) AND ((? = 1 AND Gatuadress IS NULL) OR (Gatuadress = ?)) AND ((? = 1 AND Postnummer IS NULL) OR (Postnummer = ?)) AND ((? = 1 AND Stad IS N'."
och när ja försöker skapa en nya rad så får jag detta:
"Syntaxfel i INSERT INTO-uttryck."
detta händer när ja försöker spara.
Någon som vet varför?
här e koden för "spara" händelsen
If My.Settings.chang = True Then
Dim cb As New OleDb.OleDbCommandBuilder(da)
ds.Tables("Database2").Rows(inc).Item(1) = txtfm.Text
ds.Tables("Database2").Rows(inc).Item(2) = txtem.Text
ds.Tables("Database2").Rows(inc).Item(3) = txtga.Text
ds.Tables("Database2").Rows(inc).Item(4) = txtpn.Text
ds.Tables("Database2").Rows(inc).Item(5) = txts.Text
ds.Tables("Database2").Rows(inc).Item(6) = txttm.Text
ds.Tables("Database2").Rows(inc).Item(7) = txtth.Text
ds.Tables("Database2").Rows(inc).Item(8) = txtma.Text
ds.Tables("Database2").Rows(inc).Item(9) = txta1.Text
ds.Tables("Database2").Rows(inc).Item(10) = txtpc.Text
ds.Tables("Database2").Rows(inc).Item(11) = txtgf.Text
ds.Tables("Database2").Rows(inc).Item(12) = cmba.Text
ds.Tables("Database2").Rows(inc).Item(13) = txthd.Text
ds.Tables("Database2").Rows(inc).Item(14) = cmbmt.Text
ds.Tables("Database2").Rows(inc).Item(15) = cmbop.Text
ds.Tables("Database2").Rows(inc).Item(16) = cmbdl.Text
ds.Tables("Database2").Rows(inc).Item(17) = txtn.Text
ds.Tables("Database2").Rows(inc).Item(18) = txttmf.Text
ds.Tables("Database2").Rows(inc).Item(19) = txtthf.Text
ds.Tables("Database2").Rows(inc).Item(20) = txtgaf.Text
ds.Tables("Database2").Rows(inc).Item(21) = txtpnf.Text
ds.Tables("Database2").Rows(inc).Item(22) = txtsf.Text
ds.Tables("Database2").Rows(inc).Item(23) = txta2.Text
ds.Tables("Database2").Rows(inc).Item(24) = txtsb.Text
ds.Tables("Database2").Rows(inc).Item(25) = txtmr.Text
ds.Tables("Database2").Rows(inc).Item(26) = txtp.Text
ds.Tables("Database2").Rows(inc).Item(27) = txtep.Text
da.Update(ds, "Database2")
MsgBox("Data updated")
ElseIf My.Settings.chang = False Then
If inc <> -1 Then
Dim cb As New OleDb.OleDbCommandBuilder(da)
Dim dsNewRow As DataRow
dsNewRow = ds.Tables("Database2").NewRow()
dsNewRow.Item(1) = txtfm.Text
dsNewRow.Item(2) = txtem.Text
dsNewRow.Item(3) = txtga.Text
dsNewRow.Item(4) = txtpn.Text
dsNewRow.Item(5) = txts.Text
dsNewRow.Item(6) = txttm.Text
dsNewRow.Item(7) = txtth.Text
dsNewRow.Item(8) = txtma.Text
dsNewRow.Item(9) = txta1.Text
dsNewRow.Item(10) = txtpc.Text
dsNewRow.Item(11) = txtgf.Text
dsNewRow.Item(12) = cmba.Text
dsNewRow.Item(13) = txthd.Text
dsNewRow.Item(14) = cmbmt.Text
dsNewRow.Item(15) = cmbop.Text
dsNewRow.Item(16) = cmbdl.Text
dsNewRow.Item(17) = txtn.Text
dsNewRow.Item(18) = txttmf.Text
dsNewRow.Item(19) = txtthf.Text
dsNewRow.Item(20) = txtgaf.Text
dsNewRow.Item(21) = txtpnf.Text
dsNewRow.Item(22) = txtsf.Text
dsNewRow.Item(23) = txta2.Text
dsNewRow.Item(24) = txtsb.Text
dsNewRow.Item(25) = txtmr.Text
dsNewRow.Item(26) = txtp.Text
dsNewRow.Item(27) = txtep.Text
ds.Tables("Database2").Rows.Add(dsNewRow)
da.Update(ds, "Database2")
MsgBox("New Record added to the Database")
My.Settings.chang = True
'btnCommit.Enabled = False
'btnAddNew.Enabled = True
'btnUpdate.Enabled = True
'btnDelete.Enabled = True
End If
End If
Tack på förhand :)