一个CommandText未设定的问题
Sub update_Click(sender As Object, e As EventArgs)
Dim connectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0; Ole DB Services=-4; Data Source=C:\EmployeesDB.mdb"
Dim Conn as new OleDBConnection (ConnectionString)
Dim updateSQL as String
Dim cmd as new OleDBCommand(updateSQL,Conn)
Dim upd as Integer
OleDBCommand.CommandText=updateSQL
updateSQL = "UPDATE Employees SET"
updateSQL &= "EmpID='" & Eid.text &"',"
updateSQL &= "FirstName='" & Fname.text &"',"
updateSQL &= "LastName='" & Lname.text &"',"
updateSQL &= "BirthDate='" & Bday.text &"',"
updateSQL &= "EmailAddress='" & Email.text &"',"
updateSQL &= "WHERE FirstName='" & lst.SelectedItem.Value & "'"
Try
Conn.Open()
upd = cmd.ExecuteNonQuery
Lstatus.text = upd.ToString() & "records updated."
Catch err as Exception
Lstatus.text =err.message
Finally
If (Not Conn Is Nothing) Then
Conn.Close()
End If
End Try
End Sub
这是我一个叫"UPDATE"的按钮的SUB
但系统提示我" Command对象的CommandText未设定"
很疑惑
请各位指教!!
谢谢
(P.S.我是用ASP.NET WEB MATRIX 做的)