[VB6 ] 查詢問題 Part2
請大大幫我看一下這一小段程式碼
我想要比對TEXT1.TXT的資料和ACCESS資料庫裡的資料
如果找到 顯示在TEXT1~TEXT3.TXT
但是一直顯示"我要求變更資料表.........(以下略)"
可是我只是要比對啊...救救我吧>_<
========================================================
Private Sub Command5_Click()
FltStr = ""
If Text1.Text <> "" Then
RS.Filter = 收料單單號 Like Text1.Text
End If
If RS.EOF Then
MsgBox "沒找到資料"
Exit Sub
End If
Do Until RS.EOF
For I = 0 To RS.Fields.Count - 1
Tmp = Tmp & RS.Fields(I) & " "
Next
RS.MoveNext
Loop
End Sub
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 59.121.186.31
討論串 (同標題文章)
Visual_Basic 近期熱門文章
PTT數位生活區 即時熱門文章
