作者kelvinkao (关心被扭曲为找碴)
看板Visual_Basic
标题[VB6 ] 查询问题 Part2
时间Sat Jun 11 18:43:20 2005
请大大帮我看一下这一小段程式码
我想要比对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