0

次の機能のために、Visual Basic 2010 で DataTables と .mdb データベースを使用しようとしていますが、機能しません。

テーブル「日付」とこのテーブルの名前付き列を持つ既存の .mdb データベースがあります。そして、新しい情報を含む新しい行をデータベースに追加したいと思います。だから私は次のコードでデータベースに接続しています:

sql = "SELECT * FROM Daten"

            Dim connection As New OleDb.OleDbConnection

            Try
                connection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & pfad_netzdb
            Catch e As Exception
                MessageBox.Show(e.Message)
            End Try
            Dim adapter As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter(sql, connection)

その後、データベースの指定されたデータを DataTable に入力しています。

Dim daten As New DataTable

            adapter.Fill(daten)

その後、DataTable に行を追加し、行に新しい情報を入力したいと思います。

daten.Rows.Add()
daten.Rows(daten.Rows.Count - 1)(0) = "kdjfk"
daten.Rows(daten.Rows.Count - 1)(1) = "dkjfk"
daten.Rows(daten.Rows.Count - 1)(2) = "kdjfkd"

その後、変更された DataTable を新しい行とその行の新しい情報と共にデータベースに送り返したいと思います。ここが、私のコードが期待どおりに機能しないポイントだと思います。私はこのように試していますが、うまくいきません：

adapter.Update(daten)

このコードが機能しない理由を誰か助けてもらえますか? ご協力いただきありがとうございます！

4

2 に答える 2

0

を提供しましたInsertCommandか? を使用できますCommandBuilder。

Dim conString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & pfad_netzdb
Using connection As New OleDb.OleDbConnection(conString)
    Using adapter = New OleDb.OleDbDataAdapter("SELECT * FROM Daten", connection)
        Dim builder = New OleDb.OleDbCommandBuilder(adapter)
        builder.GetInsertCommand()
        Dim daten As New DataTable
        daten.Columns.Add("ColumnName1", GetType(String)) ' provide the correct name+type '
        daten.Columns.Add("ColumnName2", GetType(String)) ' provide the correct name+type '
        daten.Columns.Add("ColumnName3", GetType(String)) ' provide the correct name+type '
        Dim newRow = daten.Rows.Add()
        newRow(0) = "kdjfk"
        newRow(1) = "dkjfk"
        newRow(2) = "kdjfkd"
        connection.Open()
        adapter.Update(daten)
    End Using
End Using
于 2013-03-11T08:05:12.653 に答える
0

パラメータ化された方法を使用してレコードを挿入することもできます

Dim adapter As OleDbDataAdapter = New OleDbDataAdapter()
Dim command As OleDbCommand

' Create the SelectCommand.
command = New OleDbCommand("SELECT * from Daten", connection)

adapter.SelectCommand = command

' Create the InsertCommand.
command = New OleDbCommand( _
    "INSERT INTO Daten(ColumnName1, ColumnName2,ColumnName3) " & _
    "VALUES (?, ?,?)", connection)

command.Parameters.Add( _
    "ColumnName1", OleDbType.VarChar, 40, "kdjfk") //Replace with correct column name and data type
command.Parameters.Add( _
    "ColumnName2", OleDbType.VarChar, 40, "dkjfk") //Replace with correct column name and data type
command.Parameters.Add( _
    "ColumnName3", OleDbType.VarChar, 40, "kdjfkd")//Replace with correct column name and data type

adapter.InsertCommand = command
Return adapter
于 2013-03-11T08:28:04.073 に答える