求大神帮忙解决语法错误,这是一个VB.NET向SQL数据库中添加数据的程序
Dim_ConStr="Provider=SQLOLEDB;UserID=sa;Password=;InitialCatalog=txl;dataSource=."Dim...
Dim _ConStr = "Provider=SQLOLEDB;User ID=sa;Password=;Initial Catalog=txl;data Source=."
Dim _Cnn As New OleDb.OleDbConnection(_ConStr)
_Cnn.Open()
Dim _Sql As String = "insert INTO txl VALUES(" & Me.T_Name.Text & ", " & Me.T_tell.Text & ", " & Me.T_sex.Text & "," & Me.T_age.Text & "," & Me.T_mail.Text & ", " & Me.T_id.Text & ")"
Dim _Cmd As New OleDb.OleDbCommand(_Sql, _Cnn)
_Cmd.ExecuteNonQuery()
_Cnn.Close() 展开
Dim _Cnn As New OleDb.OleDbConnection(_ConStr)
_Cnn.Open()
Dim _Sql As String = "insert INTO txl VALUES(" & Me.T_Name.Text & ", " & Me.T_tell.Text & ", " & Me.T_sex.Text & "," & Me.T_age.Text & "," & Me.T_mail.Text & ", " & Me.T_id.Text & ")"
Dim _Cmd As New OleDb.OleDbCommand(_Sql, _Cnn)
_Cmd.ExecuteNonQuery()
_Cnn.Close() 展开
1个回答
展开全部
Dim _Sql As String = "insert INTO txl VALUES(" & Me.T_Name.Text & ", " & Me.T_tell.Text & ", " & Me.T_sex.Text & "," & Me.T_age.Text & "," & Me.T_mail.Text & ", " & Me.T_id.Text & ")"
改为:
Dim _Sql As String = "insert INTO txl VALUES('"& Me.T_Name.Text & "', '" & Me.T_tell.Text & "', '" & Me.T_sex.Text & "','" & Me.T_age.Text & "','" & Me.T_mail.Text & "', '" & Me.T_id.Text & "')"
看出区别了没有?问题出现在单引号的使用上面,我不知道你每一个字段什么数据库类型的,索性都加上了单引号,你再根据字段数据类型修改一下,如果是字符类型的保留,数字类型的去掉单引号。
改为:
Dim _Sql As String = "insert INTO txl VALUES('"& Me.T_Name.Text & "', '" & Me.T_tell.Text & "', '" & Me.T_sex.Text & "','" & Me.T_age.Text & "','" & Me.T_mail.Text & "', '" & Me.T_id.Text & "')"
看出区别了没有?问题出现在单引号的使用上面,我不知道你每一个字段什么数据库类型的,索性都加上了单引号,你再根据字段数据类型修改一下,如果是字符类型的保留,数字类型的去掉单引号。
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询