Question

我是视觉基础的新手。我写的是通过visual basic 2010在我的ms访问数据库中插入一条新记录。这是我的代码。

导入System.Data.OleDb 公共类Form9

Dim provider As String
Dim dataFile As String
Dim connString As String
Dim myConnection As OleDbConnection = New OleDbConnection

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    provider = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source = C:\Users\AMEN\Documents\Railway.accdb"
    'Change the following to your access database location
    dataFile = "C:\Users\AMEN\Documents\Railway.accdb"
    connString = provider & dataFile
    myConnection.ConnectionString = connString

    myConnection.Open()
    Dim str As String
    str = "insert into Table2 ([P_Name], [Age], [Phone], [Train_Name], [Seat_No], [Berth]) values (?, ?, ?, ?, ?,?)"
    Dim cmd As OleDbCommand = New OleDbCommand(str, myConnection)
    cmd.Parameters.Add(New OleDbParameter("P_Name", CType(TextBox1.Text, String)))
    cmd.Parameters.Add(New OleDbParameter("Age", CType(TextBox2.Text, String)))
    cmd.Parameters.Add(New OleDbParameter("Phone", CType(TextBox3.Text, String)))
    cmd.Parameters.Add(New OleDbParameter("Train_Name", CType(TextBox4.Text, String)))
    cmd.Parameters.Add(New OleDbParameter("Seat_No", CType(TextBox5.Text, String)))
    cmd.Parameters.Add(New OleDbParameter("Berth", CType(TextBox6.Text, String)))
    Try
        cmd.ExecuteNonQuery()
        cmd.Dispose()
        myConnection.Close()
        TextBox1.Clear()
        TextBox2.Clear()
        TextBox3.Clear()
        TextBox4.Clear()
        TextBox5.Clear()

        MsgBox("Your Ticket was booked successfully ! ")

    Catch ex As Exception
        MsgBox(ex.Message)
    End Try

End Sub

结束班

当我执行此代码时。它在myConnection.Open（）中给了我一个错误。它说.Open（）不是有效名称。请帮帮我！

我无法在Ms.Access 2007中添加新记录

0 个答案: