2 qq 34554570 qq_34554570 于 2016.05.05 08:56 提问

vb.net修改sql数据库老是出现未初始化大神帮看下 100C

图片说明

If TextBox1.Text = "" Then
MsgBox("课程信息不能为空!")
Exit Sub
End If
Dim myConn As OleDbConnection = New OleDbConnection(strConn)
Dim myComm As OleDbCommand = New OleDbCommand
myComm.Connection = myConn
myComm.CommandText = "update Course_Info set 课程编号=@课程编号,课程名称=@课程名称,课程分类=@课程分类,培训时间=@培训时间,操作分类=@操作分类,天气类型=@天气类型,线路名称=@线路名称,教员号=@教员号,起点站=@起点站,终点站=@终点站 where 课程编码=" &TextBox1.Text & "'"
myComm.Parameters.AddWithValue("@课程编号", TextBox1.Text)
myComm.Parameters.AddWithValue("@课程名称", TextBox2.Text)
myComm.Parameters.AddWithValue("@课程分类", ComboBox1.Text)
myComm.Parameters.AddWithValue("@培训时间", TextBox3.Text)
myComm.Parameters.AddWithValue("@操作分类", ComboBox2.Text)
myComm.Parameters.AddWithValue("@天气类型", ComboBox3.Text)
myComm.Parameters.AddWithValue("@线路名称", ComboBox4.Text)
myComm.Parameters.AddWithValue("@教员号", ComboBox5.Text)
myComm.Parameters.AddWithValue("@起点站", ComboBox6.Text)
myComm.Parameters.AddWithValue("@终点站", ComboBox7.Text)
myConn.Open()
myComm.ExecuteNonQuery()
myConn.Close()
MsgBox("修改成功")
End Sub

2个回答

caozhy
caozhy   Ds   Rxr 2016.05.05 09:07

myComm.CommandText = "update Course_Info set 课程编号=@课程编号,课程名称=@课程名称,课程分类=@课程分类,培训时间=@培训时间,操作分类=@操作分类,天气类型=@天气类型,线路名称=@线路名称,教员号=@教员号,起点站=@起点站,终点站=@终点站 where 课程编码=" &TextBox1.Text & "'"

sql不能这么写,要更新多个字段,应该这么写
update 表 (字段1,字段2, ...) values (值1, 值2, ...)

qq_34554570
qq_34554570 回复无聊码农: 可以加qq远程吗?
一年多之前 回复
showbo
showbo 回复qq_34554570: strConn没有值吧。。还有课程编码是字符串还是数字?你这个条件有问题where 课程编码=" &TextBox1.Text & "'",数字去掉最后的&"'",字符前面少了引号
一年多之前 回复
qq_34554570
qq_34554570 有没有qq
一年多之前 回复
caozhy
caozhy 回复qq_34554570: 是啊,你到底是sql server还是 access,你用oledbxxx连的是access,sql server是sqlxxx
一年多之前 回复
qq_34554570
qq_34554570 Dim strConn As String?这个吗?我不是太懂
一年多之前 回复
caozhy
caozhy 回复qq_34554570: strConn在哪里定义的
一年多之前 回复
qq_34554570
qq_34554570 还是不对 ConnectionString 属性尚未初始化。
一年多之前 回复
balary
balary   2016.05.05 22:19

ConnectionString 属性尚未初始化。

这明显是提示建立连接时报错,还没有执行到 Command.Execute。

你应该检查你的 strConn 有没有传到你的函数里。
简单一点,你可以在Dim myConn As OleDbConnection = New OleDbConnection(strConn)这一段就开始单步调试。

Csdn user default icon
上传中...
上传图片
插入图片
准确详细的回答,更有利于被提问者采纳,从而获得C币。复制、灌水、广告等回答会被删除,是时候展现真正的技术了!