Imports System.Data.OleDb
Imports System.IO
Public Class Form1
Dim cn As OleDbConnection
Dim da As OleDbDataAdapter
Dim ds As DataSet
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim cnStr As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\jhhj\佳航婚介1\jhhj_Database11.accdb;Persist Security Info=False;" 'access07以后的格式
cn = New OleDbConnection(cnStr)
Dim sql As String = "select * from 婚介成员"
da = New OleDbDataAdapter(sql, cn)
ds = New DataSet
da.Fill(ds, "婚介成员")
DataGridView1.DataSource = ds.Tables(0)
'TODO: 这行代码将数据加载到表“Jhhj_Database11DataSet.婚介成员”中。您可以根据需要移动或删除它。
' Me.婚介成员TableAdapter.Fill(Me.Jhhj_Database11DataSet.婚介成员)
End Sub
Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
Dim cnStr As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\jhhj\佳航婚介1\jhhj_Database11.accdb;Persist Security Info=False;" 'access07以后的格式cn = New OleDbConnection(cnStr)
Dim sql As String = "select * from 婚介成员 where 姓名 like " & "'%" & TextBox4.Text & "%'"
da = New OleDbDataAdapter(sql, cn)
ds = New DataSet
da.Fill(ds, "婚介成员")
DataGridView1.DataSource = ds.Tables(0)
End Sub
Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
Dim cnStr As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\jhhj\佳航婚介1\jhhj_Database11.accdb;Persist Security Info=False;" 'access07以后的格式
'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\jhhj\佳航婚介1\jhhj_Database11.mdb;Persist Security Info=False"'access07以前的格式
'Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\jhhj\佳航婚介1\jhhj_Database11.accdb;Persist Security Info=False;'access07以后的格式
cn = New OleDbConnection(cnStr)
Dim sql As String = TextBox3.Text
da = New OleDbDataAdapter(sql, cn)
ds = New DataSet
da.Fill(ds, "婚介成员")
DataGridView1.DataSource = ds.Tables(0)
End Sub