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 + "')"