免费视频淫片aa毛片_日韩高清在线亚洲专区vr_日韩大片免费观看视频播放_亚洲欧美国产精品完整版

Option Explicit
Dim conn As New ADODB.Connection '定義connection 對(duì)象Dim rs As New ADODB.RecordsetPrivate Sub Form_Load() '初始化程序Set conn = New ADODB.Connection   '分配一個(gè)connection對(duì)象Set rs = New ADODB.Recordset  '分配一個(gè)recordset對(duì)象conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _"Data source=" & App.Path & "\tjn.mdb;" & _"Persist Security Info=False"  '設(shè)置連接字符串conn.Open  '打開連接rs.Open "person", conn, , adCmdTable '打開數(shù)據(jù)表EmTablSet MSHFlexGrid1.DataSource = rs  '打開數(shù)據(jù)控制源為rs對(duì)象rs.Close   '關(guān)閉recordset對(duì)象conn.Close '關(guān)閉connection對(duì)象End SubPrivate Sub MSHFlexGrid1_RowColChange()       '當(dāng)點(diǎn)擊里面的文本時(shí)候會(huì)將選擇的文本進(jìn)行操作conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _"Data source=" & App.Path & "\tjn.mdb;" & _"Persist Security Info=False"  '設(shè)置連接字符串conn.Open  '打開連接rs.Open "select * from person where address='10' and datt like '2018/7/11%'", conn, adOpenKeysetIf rs.RecordCount > 0 ThenText2.Text = "日期：" & rs.Fields(0) & "編號(hào)：" & rs.Fields(1) & "基站：" & rs.Fields(2)End Ifrs.Closeconn.CloseEnd Sub