sqlcommand使用提示错误
PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesBu...
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
Dim xhsql, xmsql, xbsql, csrqsql, bjsql As String
xhsql = xh.Text
xmsql = xm.Text
If xb1.Checked Then
xbsql = xb1.Text
Else : xbsql = xb2.Text
End If
csrqsql = csrq.Value
bjsql = bj.Text
Dim conn As New SqlConnection("Data Source=192.168.1.6;Initial Catalog=zjlt_h;user id=sa;password=")
conn.Open()
Dim comm As New SqlCommand("insert into 学生信息表 values('&xhsql&', '&xmsql&', '&xbsql&', '&csrqsql&', '&bjsql&')", conn)
Dim i As Integer = comm.ExecuteNonQuery()
If i > 0 Then MessageBox.Show("添加记录成功")
conn.Close()
Catch ex As Exception
MessageBox.Show(ex.ToString)
End Try
End Sub
End Class
输入上面代码以后提示错误 展开
Try
Dim xhsql, xmsql, xbsql, csrqsql, bjsql As String
xhsql = xh.Text
xmsql = xm.Text
If xb1.Checked Then
xbsql = xb1.Text
Else : xbsql = xb2.Text
End If
csrqsql = csrq.Value
bjsql = bj.Text
Dim conn As New SqlConnection("Data Source=192.168.1.6;Initial Catalog=zjlt_h;user id=sa;password=")
conn.Open()
Dim comm As New SqlCommand("insert into 学生信息表 values('&xhsql&', '&xmsql&', '&xbsql&', '&csrqsql&', '&bjsql&')", conn)
Dim i As Integer = comm.ExecuteNonQuery()
If i > 0 Then MessageBox.Show("添加记录成功")
conn.Close()
Catch ex As Exception
MessageBox.Show(ex.ToString)
End Try
End Sub
End Class
输入上面代码以后提示错误 展开
3个回答
展开全部
values('&xhsql&', '汪羡&xmsql&', '&xbsql&', '&csrqsql&', '搏困&bjsql&')困银拍"
()改成英文输入法时的() 即可
()改成英文输入法时的() 即可
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
("insert into 学生信息表 values('&xhsql&', '&xmsql&', '&xbsql&', '&csrqsql&纳返', '&bjsql&)
SQL语句拼接有错误
insert into 学生信息表 values('"橡和+xhsql+"'梁茄盯,'"+xmsql+"',.......)应该这样拼接
SQL语句拼接有错误
insert into 学生信息表 values('"橡和+xhsql+"'梁茄盯,'"+xmsql+"',.......)应该这样拼接
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
你的sql插入语句拼接时有问题。仔细检查一下。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询