1

私はバンガロール大学が規定するプロジェクトに取り組んでいます。フロント エンドとして vb.net 2008 を使用し、バック エンドとして Ms Access 2007 を使用しています。プログラムを実行しようとすると、The ConnectionString プロパティが初期化されていないため、エラーが発生します。

これが私が使用したコードです

private Sub Add_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Add.Click
    Dim con As New OleDb.OleDbConnection
    Dim cmd As New OleDb.OleDbCommand
    Dim dbProvider As String
    Dim dbSource As String

    dbProvider = "Provider=Microsoft.Jet.OLEDB.4.0;"
    dbSource = "DataSource=C:\My Project\project.mdb"
    con.ConnectionString = dbProvider & dbSource
    con = New OleDb.OleDbConnection

    con.Open()
    cmd.Connection = con
    cmd.CommandText = "Insert Into Application(appno, mname, age, gender, height, weight, address, purpose, bmi, mailid, phoneno, paymnet)" & _
                      "Values('" & Me.appno.Text & "', '" & Me.mname.Text & "', '" & Me.age.Text & "', '" & Me.gender.Text & "', '" & _
                      Me.mheight.Text & "', '" & Me.weight.Text & "', '" & Me.address.Text & "', '" & Me.purpose.Text & "', '" & _
                      Me.bmi.Text & "', '" & Me.mailid.Text & "', '" & Me.phoneno.Text & "', '" & Me.payment.Text & "')"
    cmd.ExecuteNonQuery()
    con.Close()
End Sub
4

1 に答える 1

1

2つの接続を作成し、最初の接続を設定しているため、後者はおそらくコピーアンドペーストエラーです。

Dim con As New OleDb.OleDbConnection

...

dbProvider = "Provider=Microsoft.Jet.OLEDB.4.0;"
dbSource = "DataSource=C:\My Project\project.mdb"
con.ConnectionString = dbProvider & dbSource
con = New OleDb.OleDbConnection                  <-- creates a new connection
                                                     without a connection string.
于 2012-10-06T07:30:59.407 に答える