vb+access 添加数据到 access 数据库

[Freebo1]

 点击 一键添加    能够把  text1-text9  里面填的数据   增加到  access 数据库中      允许某个text为空

我是菜鸟  希望哪位大神 帮帮忙 谢谢！

 

[Amy_bj]

Imports System.Data.OleDb

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim connectionString As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\path\to\your\database.accdb;"
        Dim query As String = "INSERT INTO YourTable (ColumnName1, ColumnName2) VALUES (?, ?);"
        
        Using connection As New OleDbConnection(connectionString)
            Using command As New OleDbCommand(query, connection)
                ' 设置参数值
                command.Parameters.AddWithValue("@param1", TextBox1.Text)
                command.Parameters.AddWithValue("@param2", TextBox2.Text)
                
                Try
                    connection.Open()
                    command.ExecuteNonQuery()
                    MessageBox.Show("数据已成功添加到数据库。")
                Catch ex As Exception
                    MessageBox.Show("添加数据时出错: " & ex.Message)
                End Try
            End Using
        End Using
    End Sub
End Class

请注意以下几点：

1. 请将 C:\path\to\your\database.accdb 替换为你的 Access 数据库文件的实际路径。
2. YourTable 应替换为你要插入数据的表名。
3. ColumnName1 和 ColumnName2 应替换为你的表中的列名，按照你的实际表结构进行替换。
4. 在 AddWithValue 方法中，@param1 和 @param2 是参数的名称，可以按照实际情况进行更改。
5. 确保你的应用程序具有对目标数据库文件的写入权限。

这是一个简单的示例，实际情况可能会根据你的需求和实际的表结构而有所不同。祝你成功！

[Freebo1]

一直提示文件名无效 咋回事 其他的也没报错！