Dim cmd As New OleDbCommand()
Dim con As New OleDbConnection()
con.ConnectionString ="Provider = Microsoft.Jet.Oledb.4.0;Data Source=C:\Users\NONINO\Documents\Visual Studio 2008\WebSites\homwork 5\App_Data\Company.mdb"
con.open()
dim strQuery as string="DELETE FROM PRODUCTS where ProductCode = @productcode values ('{0}') ", tbxProductcode"
cmd.Connection=con
cmd.CommandText = strQuery
cmd.ExecuteNonQuery()
|