#include <access.au3>
Case $button5
;Dim $nlabel1
$find=InputBox("查询","请输入需要查询的内容.不输入将查询全部数据")
$adSource = @ScriptDir & "\sky.mdb"
$adTable = "tywb"
$adCol = "name"
;$Find = ""
$adFull = 1
$yo = _accessQueryLike($adSource, $adTable, $adCol, $Find, $adFull)
If IsArray($yo) Then
For $s=1 To $yo[0]
$aRecord = StringSplit($yo[$s], Chr(28))
;_ArrayDisplay($aRecord, "每个值")
MsgBox(4096,"已经找到","ID号:"&$arecord[1]&@CRLF _
&"姓名:"&$arecord[2]&@CRLF _
&"手机号:"&$arecord[3]&@CRLF _
&"地址:"&$arecord[4]&@CRLF _
&"日期:"&$arecord[5])
Next
EndIf
|