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
vb.net修改sql数据库老是出现未初始化大神帮看下
- 写回答
- 好问题 0 提建议
- 追加酬金
- 关注问题
- 邀请回答
-
2条回答 默认 最新
- threenewbee 2016-05-05 01:07关注
myComm.CommandText = "update Course_Info set 课程编号=@课程编号,课程名称=@课程名称,课程分类=@课程分类,培训时间=@培训时间,操作分类=@操作分类,天气类型=@天气类型,线路名称=@线路名称,教员号=@教员号,起点站=@起点站,终点站=@终点站 where 课程编码=" &TextBox1.Text & "'"
sql不能这么写,要更新多个字段,应该这么写
update 表 (字段1,字段2, ...) values (值1, 值2, ...)解决 无用评论 打赏 举报
悬赏问题
- ¥15 数学的三元一次方程求解
- ¥20 iqoo11 如何下载安装工程模式
- ¥15 本题的答案是不是有问题
- ¥15 关于#r语言#的问题:(svydesign)为什么在一个大的数据集中抽取了一个小数据集
- ¥15 C++使用Gunplot
- ¥15 这个电路是如何实现路灯控制器的,原理是什么,怎么求解灯亮起后熄灭的时间如图?
- ¥15 matlab数字图像处理频率域滤波
- ¥15 在abaqus做了二维正交切削模型,给刀具添加了超声振动条件后输出切削力为什么比普通切削增大这么多
- ¥15 ELGamal和paillier计算效率谁快?
- ¥15 蓝桥杯单片机第十三届第一场,整点继电器吸合,5s后断开出现了问题