Zdravím zkouším propiji VB.net s Access databasí... A zkouším jednoduché příkazai jako insert,delete,update Ale právě Update se mi nedaří
Sub oprava(ByVal Id As Integer, ByVal nazev As String, ByVal kategorie As String)
Dim cmd As OleDb.OleDbCommand
Dim SQLstri1 As String
SQLstri1 = "update Tabulka1 set"
SQLstri1 = SQLstri1 & " nazev = @naz , kategorie = @kat where id = @id"
cmd = New System.Data.OleDb.OleDbCommand(SQLstri1, con)
Dim par1 As System.Data.OleDb.OleDbParameter = cmd.Parameters.Add("@id", OleDb.OleDbType.Integer)
par1.Value = Id
Dim par2 As System.Data.OleDb.OleDbParameter = cmd.Parameters.Add("@naz", OleDb.OleDbType.VarChar)
par2.Value = nazev
Dim par3 As System.Data.OleDb.OleDbParameter = cmd.Parameters.Add("@kat", OleDb.OleDbType.VarChar)
par3.Value = kategorie
cmd.ExecuteNonQuery()
End Sub
Kod proběhne v pohodě, ale v databasi nic enupraví...
|