Dim db As DataBase = New DataBase Dim strSQL As String = "" strSQL = "update 票据种类 set" strSQL += "票据类别='" + Me.TextBox2.Text.Trim + "'," strSQL += " where 编号 = 0000" db.RunDelOrInsSQL(strSQL)
请问为什么运行不能更新!
Dim db As DataBase = New DataBase Dim strSQL As String = "" strSQL = "update 票据种类 set" strSQL =strSQL &"票据类别=' " &Me.TextBox2.Text.tostring & "', where编号 = 0000" db.RunDelOrInsSQL(strSQL)