一个CommandText未设定的问题

rintak 2003-08-04 09:02:48
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 做的)
...全文
40 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
rintak 2003-08-05
  • 打赏
  • 举报
回复
啊~~,真是太感谢了。
我昨晚一个人想了半天,哈哈。
谢谢给位了。

P.S.我能多给你们分呢??怎么给??呵呵
风影2000 2003-08-04
  • 打赏
  • 举报
回复
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 & "'"
OleDBCommand.CommandText=updateSQL

这样updatsql才有值啊。
孟子E章 2003-08-04
  • 打赏
  • 举报
回复
http://xml.sz.luohuedu.net/xml/ShowList.asp?id=1
孟子E章 2003-08-04
  • 打赏
  • 举报
回复
updateSQL &= "EmailAddress='" & Email.text &"'"
updateSQL &= " WHERE FirstName='" & lst.SelectedItem.Value & "'"
saucer 2003-08-04
  • 打赏
  • 举报
回复

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 & "'"
OleDBCommand.CommandText=updateSQL

62,041

社区成员

发帖
与我相关
我的任务
社区描述
.NET技术交流专区
javascript云原生 企业社区
社区管理员
  • ASP.NET
  • .Net开发者社区
  • R小R
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告

.NET 社区是一个围绕开源 .NET 的开放、热情、创新、包容的技术社区。社区致力于为广大 .NET 爱好者提供一个良好的知识共享、协同互助的 .NET 技术交流环境。我们尊重不同意见,支持健康理性的辩论和互动,反对歧视和攻击。

希望和大家一起共同营造一个活跃、友好的社区氛围。

试试用AI创作助手写篇文章吧