本帖最后由 lenlydia 于 2011-10-29 21:54 编辑
数据库:
computer note
1 1
2 (为空)
3 1
我怎么查询,都只能查询到最后一个。这个access的指针我也next了。应该是数据库查询的时候,不知道怎么获取查询的结果导致。求帮助。谢谢。Global $mdb_data_path="1.mdb" ;数据库文件名
Global $mdb_data_pwd="1" ;密码
Global $tablename="tbComputer"
Global $mdb_data="ComputerID"
$conn = ObjCreate("ADODB.Connection")
$RS = ObjCreate("ADODB.Recordset")
$conn.Open ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&$mdb_data_path&";Jet Oledb:Database Password="&$mdb_data_pwd)
$RS.ActiveConnection = $conn
$RS.Open ("Select ComputerID From "&$tablename&" Where Note<>' "" ' " )
while Not $RS.eof And Not $RS.bof
If @error =1 Then ExitLoop
$Return = $Rs.Fields(0).value;逐条记录查询,直到查到符合的记录
$file = FileOpen("1.txt", 10)
If $file = -1 Then ; 检查文件能否打开以便能供写操作
MsgBox(0, "错误", "不能打开文件.")
Exit
EndIf
FileWrite($file, $Return&@CRLF)
FileClose($file)
$rs.movenext
WEnd
$rs.close
$conn.Close
|