VB连接access数据库

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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!