'(' 附近有语法错误
代码如下
Private Sub Button6_Click(sender As System.Object, e As System.EventArgs) Handles Button6.Click
Dim upd_com As New SqlCommand
upd_com.Connection = sqlcon
upd_com.Parameters.Add("@导线型号", SqlDbType.NVarChar, 50)
upd_com.Parameters.Add("@导线面积(mm²)", SqlDbType.Real)
upd_com.Parameters.Add("@导线外径(mm)", SqlDbType.Real)
upd_com.Parameters.Add("@导线弹性系数(N/mm²)", SqlDbType.Real)
upd_com.Parameters.Add("@导线线膨胀系数(1/度)×10﹣6", SqlDbType.Real)
upd_com.Parameters.Add("@导线保证计算破断张力(N)", SqlDbType.Real)
upd_com.Parameters.Add("@导线单位长度重量(kg/km)", SqlDbType.Real)
upd_com.Parameters.Add("@导线交货长度(m)", SqlDbType.Int)
upd_com.CommandText = "updata 导线库 set 导线型号=@导线型号,导线面积(mm²)=@导线面积(mm²),导线外径(mm)=@导线外径(mm),导线弹性系数(N/mm²)=@导线弹性系数(N/mm²), 导线线膨胀系数(1/度)×10﹣6=@导线线膨胀系数(1/度)×10﹣6 ,导线保证计算破断张力(N)=@导线保证计算破断张力(N),导线单位长度重量(kg/km)=@导线单位长度重量(kg/km),导线交货长度(m)=@导线交货长度(m) where 导线型号=@导线型号"
upd_com.Parameters(0).Value = TextBox1.Text
upd_com.Parameters(1).Value = Val(TextBox2.Text)
upd_com.Parameters(2).Value = Val(TextBox3.Text)
upd_com.Parameters(3).Value = Val(TextBox4.Text)
upd_com.Parameters(4).Value = Val(TextBox5.Text)
upd_com.Parameters(5).Value = Val(TextBox6.Text)
upd_com.Parameters(6).Value = Val(TextBox7.Text)
upd_com.Parameters(7).Value = Val(TextBox8.Text)
sqlcon.Open()
If upd_com.ExecuteNonQuery > 0 Then
MessageBox.Show("更新成功！", "成功提示")
sqlcon.Close()
isreadonly(True)
End If
End Sub
sql
.Net
数据库
--------------------编程问答--------------------
字段名带括号的这个字段用方括号加上：
导线面积(mm²) --> [导线面积(mm²)]
--------------------编程问答--------------------
直接把你表格中的表头文本就拿来当数据库字段，你这是把数据库当Excel使啊。
太毁三观了。
--------------------编程问答--------------------
，我不是学计算机的啦，什么都不会。现在手头是老板给安排的一个任务，要我做一个数据库，我也是边学边弄啊。希望诸大神给点帮助啊。。
Private Sub Button6_Click(sender As System.Object, e As System.EventArgs) Handles Button6.Click
Dim upd_com As New SqlCommand
upd_com.Connection = sqlcon
upd_com.Parameters.Add("@导线型号", SqlDbType.NVarChar, 50).Value = TextBox1.Text.Trim
upd_com.Parameters.Add("@[导线面积(mm²)]", SqlDbType.Real).Value = Val(TextBox2.Text)
upd_com.Parameters.Add("@[导线外径(mm)]", SqlDbType.Real).Value = Val(TextBox3.Text)
upd_com.Parameters.Add("@[导线弹性系数(N/mm²)]", SqlDbType.Real).Value = Val(TextBox4.Text)
upd_com.Parameters.Add("@[导线线膨胀系数(1/℃)×10﹣6]", SqlDbType.Real).Value = Val(TextBox5.Text)
upd_com.Parameters.Add("@[导线保证计算破断张力(N)]", SqlDbType.Real).Value = Val(TextBox6.Text)
upd_com.Parameters.Add("@[导线单位长度重量(kg/km)]", SqlDbType.Real).Value = Val(TextBox7.Text)
upd_com.Parameters.Add("@[导线交货长度(m)]", SqlDbType.Int).Value = Val(TextBox8.Text)
upd_com.CommandText = "updata 导线库 set 导线型号=@导线型号,[导线面积(mm²)]=@[导线面积(mm²)],[导线外径(mm)]=@[导线外径(mm)],[导线弹性系数(N/mm²)]=@[导线弹性系数(N/mm²)], [导线线膨胀系数(1/℃)×10﹣6]=@[导线线膨胀系数(1/℃)×10﹣6] ,[导线保证计算破断张力(N)]=@[导线保证计算破断张力(N)],[导线单位长度重量(kg/km)]=@[导线单位长度重量(kg/km)],[导线交货长度(m)]=@[导线交货长度(m)] where 导线型号=@导线型号"
sqlcon.Open()
If upd_com.ExecuteNonQuery > 0 Then
MessageBox.Show("更新成功！", "成功提示")
sqlcon.Close()
isreadonly(True)
End If
End Sub
改完后又出现'real' 附近有语法错误
--------------------编程问答--------------------
这老板太可恶了 这样的老板存在 让众多 计算机毕业的人失业了
--------------------编程问答--------------------
如果不会计算机的人能捣鼓出来，这种程序本来就不该“计算机专业毕业的人”做。农民造汽车绝对不会影响宝马汽车公司的销售业绩。
--------------------编程问答--------------------
支持你慢慢学，多耗点时间多拿点工资，多磨点洋工，你要是一下搞出来了，老板就贪了小便宜了，下次给你更难的任务更短的时间。这次也许你侥幸在论坛求来个免费的苦力赏你段代码，下次没找到人帮你了你怎么和老板交代。你要让老板知道这个难度很大，不好弄，要慢慢摸索。你老板一想也是，找个人每个月开工资搞了大半年，也没省钱，得了，以后还是买现成软件吧，不计较这点小便宜了，你才解脱出来。
--------------------编程问答--------------------
知道你在这方面的观点 其实我是支持你的 ， 但是我的能力刚好是你 “抵制”的那群人
--------------------编程问答--------------------
这个代码+++
补充：.NET技术 , VB.NET
