VB讀取access表格內容
路徑d:\1.mdb表格名chsj第一列name第二列chyy
vb中text1輸入資料點查詢.在mdb中查找name列等于text1的值對應的chyy列保存到text2中.
uj5u.com熱心網友回復：
樓主找個例程稍微看一下就會了.基本上照搬, 改改資料庫,表,欄位的名字即可
uj5u.com熱心網友回復：
'參考 Microsoft ActiveX Data Objects Library 2.8Dim cn As ADSODB.Connection, rs As ADODB.Recordset
Set cn = New ADSODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\1.mdb"
Set rs = cn.Execute("SELECT chyy FROM chsj WHERE [name]='" & Text1 & "'")
If Not rs.EOF Then Text2 = rs!chyy & ""
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/119397.html
上一篇：小白求教這個陳述句有什么問題
下一篇：access 表單控制元件宏代碼