作者fumizuki (小狮子)
看板Visual_Basic
标题Re: [VB6 ] 查询问题 Part2
时间Sat Jun 11 18:52:13 2005
※ 引述《kelvinkao (关心被扭曲为找碴)》之铭言：
: 请大大帮我看一下这一小段程式码
: 我想要比对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
--
VB 程式设计 仓木麻衣 PTT 星爷板 行列输入法
======================================================
Visual_Basic MaiKuraki Stephen Array
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 210.58.156.43