'?'附近的语法不正确。我做错了什么?我认为我的vs2012不支持oledb连接字符串和sql编码,如果我使用sqlcommand编写上述代码,则其所有工作都很好,发生奇怪的错误,指出插入到语句中还是?而与此同时OleDB
我尝试更改我的数据库名称我的服务器名称,但什么也没有发生,只指出连接关闭状态?–
Imports System.Data.SqlClient
Public Class insert
Private Sub btn_Click(sender As Object, e As RoutedEventArgs) Handles btn.Click
Dim strConn As String = "Server=localdb\Projects;Database=test;Uid=sa;Pwd=12345;"
'Dim conn As OleDbConnection
Try
Dim sname As String = txt1.Text
Dim sfname As String = txt2.Text
Dim scnic As String = txt3.Text
Dim slimit As String = txt4.Text
Dim semail As String = txt5.Text
Dim stel As String = txt6.Text
Dim stel1 As String = txt7.Text
Dim qu As String = txt8.Text
'Dim que As Date = Date.Parse(txt9.Text)
Dim que As String = txt9.Text
Dim query As String = String.Empty
query &= "INSERT INTO tencmp (qnumber, topic, Umcq , Usq , Ulq , Emcq , Esq , Elq, pdate)"
query &= "VALUES (?,?,?,?,?,?,?,?,?)"
这里有什么问题吗
Using conn As New sqlConnection(strConn)
Using comm As New sqlCommand()
With comm
.Connection = conn
'.CommandType = CommandType.Text
.CommandText = query
.Parameters.AddWithValue("@qnumber", sname)
.Parameters.AddWithValue("@topic", sfname)
.Parameters.AddWithValue("@colPhone", scnic)
.Parameters.AddWithValue("@colBranch", slimit)
.Parameters.AddWithValue("@colCourse", semail)
.Parameters.AddWithValue("@coldblFee", stel)
.Parameters.AddWithValue("@dobv", stel1)
.Parameters.AddWithValue("@coldblFee1", qu)
.Parameters.AddWithValue("@dobv1", que)
conn.Open()'error occur here on this id
comm.ExecuteNonQuery()
End With
End Using
End Using
Catch ex As SqlException
txt10.Text = ex.Message
End Try
End Sub
End Class
您的代码可与Sql Client(针对LOCALDB Sql Server数据库)中定义的SQL类一起使用。该库@
在查询文本中使用前缀和名称作为参数占位符的名称。
query &= "INSERT INTO tencmp (qnumber, topic, Umcq , Usq , Ulq , Emcq , Esq , Elq, pdate)"
query &= "VALUES (@qnumber, @topic, @colPhone, "
query &= "@colBranch, @colCourse, @coldblFee, "
query &= "@dobv, @coldblFee1, @dobv1)"
但是,鉴于您的列名非常不具描述性,因此我不确定此参数占位符列表是否与您的名称完全匹配。
本文收集自互联网,转载请注明来源。
如有侵权,请联系 [email protected] 删除。
我来说两句