sub page_load(sender as object , e as eventargs) const str = "connection opened" + "+command created" dim cn as string dim cnn as SqlClient.SqlConnection dim cmd as New SqlClient.SqlCommand dim intCount as int16
cmd = cnn.CreateCommand() cmd.CommandText = "update products set productname='奔驰' where id = 001" intCount = cmd.ExecuteNonQuery() lbl.text = intCount.toString() cnn.Close() cnn = nothing end sub