Imports System.Data.OleDb
Public Class InsertTest
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim oledb1 As New OleDbConnection
oledb1.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\liang.accdb"
oledb1.Open()
If ConnectionState.Open Then
Dim cmd1 As New OleDbCommand
cmd1.Connection = oledb1
cmd1.CommandText = "Insert into 借书人(姓名,电话)values('" + TextBox1.Text + "'" + ",'" + TextBox2.Text + "')"
cmd1.ExecuteNonQuery()
oledb1.Close()
End If
End Sub
End Class
注意:以下黄色区两边的是双引号
"Insert into 借书人(姓名,电话)values('" + TextBox1.Text + "'" + ",'"
+ TextBox2.Text + "')"
本文介绍了一种使用Visual Basic .NET (VB.NET)连接Access数据库并执行插入操作的方法。通过示例代码展示了如何建立数据库连接、构造SQL插入语句以及执行该语句来将数据写入指定的Access数据库文件。
2011

被折叠的 条评论
为什么被折叠?



