這是我的程式
但這個程式只能找在B中含123的資料
不知道可不可以 由使用者自行定義一個變數 就是可以自己輸入被查的資料
而不是只在程式中定義
這就像在yahoo中查詢資料 而出現的結果就是我們所要的資料

Dim MyDBS As New ADODB.Connection
Dim MyRec As New ADODB.Recordset
MyDBS.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\bc.mdb"
MyRec.CursorType = adOpenDynamic
MyRec.Open "sheet1", MyDBS
Dim j As Integer
MyRec.Find "B like '123' "
If MyRec.EOF Then
MsgBox "沒找到資料"
Exit Sub
End If
For i = 0 To MyRec.Fields.Count - 1
Tmp = Tmp & MyRec.Fields(i) & " "
Next
Label10 = Tmp
創作者介紹
創作者 vbqa 的頭像
vbqa

小吳 VBQA 程式設計討論

vbqa 發表在 痞客邦 留言(2) 人氣()