'real' 附近有语法错误
求助于诸大神，我不是学计算机老板要我做数据库，现在边学边用。目前遇到问题了，代码如下求指导；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' 附近有语法错误 sql VB.net 数据库 --------------------编程问答-------------------- SqlDbType.Real这是什么类型，应该用实际的sql 类型，比如SqlDbType.Decimal
*****************************************************************************
签名档： http://feiyun0112.cnblogs.com/ --------------------编程问答-------------------- 改成SqlDbType.Decimal后又报'decimal' 附近有语法错误，我感觉应该是SQL语句中的赋值字段有问题。。。但不晓得怎么修改。。。
补充：.NET技术 , VB.NET
