它总是说“不允许更改'ConnectionString'属性。连接的当前状态是打开的。和“查询值和目标字段的数量不相同“。

问题描述

Imports System.Data.OleDb
Public Class Inquiry_Form
    Dim provider As String
    Dim dataFile As String
    Dim connstring As String
    Dim myConnection As OleDbConnection = New OleDbConnection

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        provider = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
        dataFile = "Database3.mdb"
        connstring = provider & dataFile
        myConnection.ConnectionString = connstring
        myConnection.Open()
        Dim str As String
        str = "INSERT INTO Inquiry_Form([Date],[RefNo],[NameP],[Address],[Age],[PhoneNo],[MobileNo],[EmailAd],[ReferralQuestion],[Type_of_Unit],[Date_of_Purchase],[Purpose_of_Purchase],[Monthly_Income],[RName],[RAddress],[RMobileNo],[R2Name],[R2Address],[RMobileNo],[R2Name],[R2Address],[R2MobileNo],[AgentsName]) Values (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)"
        Dim cmd As OleDbCommand = New OleDbCommand(str, myConnection)
        cmd.Parameters.Add(New OleDbParameter("Date", CType(TextBox1.Text, String)))
        cmd.Parameters.Add(New OleDbParameter("RefNo", CType(TextBox2.Text, String)))
        cmd.Parameters.Add(New OleDbParameter("NameP", CType(TextBox3.Text, String)))
        cmd.Parameters.Add(New OleDbParameter("Address", CType(TextBox4.Text, String)))
        cmd.Parameters.Add(New OleDbParameter("Age", CType(TextBox5.Text, String)))
        cmd.Parameters.Add(New OleDbParameter("PhoneNo", CType(TextBox6.Text, String)))
        cmd.Parameters.Add(New OleDbParameter("MobileNo", CType(TextBox8.Text, String)))
        cmd.Parameters.Add(New OleDbParameter("EmailAd", CType(TextBox7.Text, String)))
        cmd.Parameters.Add(New OleDbParameter("ReferralQuestion", CType(ComboBox1.Text, String)))
        cmd.Parameters.Add(New OleDbParameter("Type_of_Unit", CType(ComboBox2.Text, String)))
        cmd.Parameters.Add(New OleDbParameter("Date_of_Purchase", CType(ComboBox3.Text, String)))
        cmd.Parameters.Add(New OleDbParameter("Purpose_of_Purchase", CType(ComboBox4.Text, String)))
        cmd.Parameters.Add(New OleDbParameter("Monthly_Income", CType(ComboBox5.Text, String)))
        cmd.Parameters.Add(New OleDbParameter("RName", CType(TextBox10.Text, String)))
        cmd.Parameters.Add(New OleDbParameter("RAddress", CType(TextBox11.Text, String)))
        cmd.Parameters.Add(New OleDbParameter("RMobileNo", CType(TextBox15.Text, String)))
        cmd.Parameters.Add(New OleDbParameter("R2Name", CType(TextBox12.Text, String)))
        cmd.Parameters.Add(New OleDbParameter("R2Address", CType(TextBox13.Text, String)))
        cmd.Parameters.Add(New OleDbParameter("R2MobileNo", CType(TextBox14.Text, String)))
        cmd.Parameters.Add(New OleDbParameter("AgentsName", CType(TextBox16.Text, String)))

        Try
            cmd.ExecuteNonQuery()
            cmd.Dispose()
            myConnection.Close()
            TextBox1.Clear()
            TextBox2.Clear()
            TextBox3.Clear()
            TextBox4.Clear()
            TextBox5.Clear()
            TextBox6.Clear()
            TextBox8.Clear()
            TextBox7.Clear()
            TextBox10.Clear()
            TextBox11.Clear()
            TextBox15.Clear()
            TextBox12.Clear()
            TextBox13.Clear()
            TextBox14.Clear()
            TextBox16.Clear()

        Catch ex As Exception
            MsgBox(ex.Message)

        End Try

    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Me.Close()
        Menu_Page.Show()
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs)
        Inquiry_FormBindingSource1.AddNew()
    End Sub

    Private Sub Inquiry_Form_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'Database3DataSet.Inquiry_Form' table. You can move, or remove it, as needed.
        Me.Inquiry_FormTableAdapter.Fill(Me.Database3DataSet.Inquiry_Form)

    End Sub


End Class

推荐答案

Quote：

查询值和目标字段的数量不相同。

" Number of query values and destination fields are not the same".

我很遗憾地说，但这是计算小学水平的问题。

I am sorry to say that, but this is a matter of counting, primary school level.

INSERT INTO Inquiry_Form([Date],[RefNo],[NameP],[Address],[Age],[PhoneNo],[MobileNo],[EmailAd],[ReferralQuestion],[Type_of_Unit],[Date_of_Purchase],[Purpose_of_Purchase],[Monthly_Income],[RName],[RAddress],[RMobileNo],[R2Name],[R2Address],[RMobileNo],[R2Name],[R2Address],[R2MobileNo],[AgentsName]) Values (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)

我看到23个字段，只有20个？ 。

你应该能够自己找到这个！



其他错误信息也是自我解释的。

I see 23 fields and only 20 "?".
You should have been able to find this by yourself !

Other error message is self explanatory too.

这篇关于它总是说“不允许更改'ConnectionString'属性。连接的当前状态是打开的。和“查询值和目标字段的数量不相同“。的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持！