VB 對資料庫access的模糊查詢程式碼
阿新 • • 發佈:2018-12-10
Option Explicit Dim conn As New ADODB.Connection '定義connection 物件 Dim rs As New ADODB.Recordset Private Sub Form_Load() '初始化程式 Set conn = New ADODB.Connection '分配一個connection物件 Set rs = New ADODB.Recordset '分配一個recordset物件 conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data source=" & App.Path & "\tjn.mdb;" & _ "Persist Security Info=False" '設定連線字串 conn.Open '開啟連線 rs.Open "person", conn, , adCmdTable '開啟資料表EmTabl Set MSHFlexGrid1.DataSource = rs '開啟資料控制源為rs物件 rs.Close '關閉recordset物件 conn.Close '關閉connection物件 End Sub Private Sub MSHFlexGrid1_RowColChange() '當點選裡面的文字時候會將選擇的文字進行操作 conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data source=" & App.Path & "\tjn.mdb;" & _ "Persist Security Info=False" '設定連線字串 conn.Open '開啟連線 rs.Open "select * from person where address='10' and datt like '2018/7/11%'", conn, adOpenKeyset If rs.RecordCount > 0 Then Text2.Text = "日期:" & rs.Fields(0) & "編號:" & rs.Fields(1) & "基站:" & rs.Fields(2) End If rs.Close conn.Close End Sub