本帖最后由 ajian55 于 2010-11-29 13:25 编辑 $database_dir="数据库文件.mdb"
$database_password="数据库密码"
$conn = ObjCreate("ADODB.Connection")
$RS = ObjCreate("ADODB.Recordset")
$conn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & $database_dir & ";Jet Oledb:Database Password=" & $database_password)
$RS.ActiveConnection = $conn
$RS.Open("select bbs_bk_link,bbs_tj_link from bbs where bbs='天涯论坛' AND bbs_bk='传媒江湖'")
While NOT $RS.eof AND NOT $RS.bof
Msgbox(64,"bbs_bk_link : bbs_tj_link",$RS.Fields(0).value &" "& $RS.Fields(1).value)
$RS.Movenext
WEnd
$RS.close
$conn.close
|