-

来自「中windows中用批处理查询数据库中需要的数据。」· 代码 · 共 38 行

'==================================================
'                编写：野菜
'                  QQ：959212677
'              E-mail：[e-mail]
'==================================================

On Error Resume Next
Dim SqlDataBase,SqlProvider,Connstr,id,num,pwd,olr,tof,rems,msg

SqlDataBase=WScript.ScriptFullName
SqlDataBase=Left(SqlDataBase,InstrRev(SqlDataBase,"\"))
SqlDataBase=SqlDataBase & "..\QQ.scf"
SqlProvider="Microsoft.Jet.OLEDB.4.0"
Connstr="Provider="&SqlProvider&";Data Source="&SqlDataBase
Set Conn=CreateObject("ADODB.Connection")
    Conn.Open Connstr
    set admin=createobject("adodb.recordset")
        set op=CreateObject("Wscript.Shell")
            admin.open "select * from QQ",conn,1,1
            msg="序号"&Chr(9)&"QQ号码"&Chr(9)&Chr(9)&"QQ密码密文"&Chr(9)&Chr(9)&Chr(9)&"在线"&Chr(9)&"登录"&Chr(9)&"备注"&vbCrLf
            do while not admin.eof
                id=admin("id")
                num=admin("num")
                pwd=admin("pwd")
                olr=admin("olr")
                tof=admin("tof")
                rems=admin("rems")
                admin.MoveNext
                msg=msg&vbCrLf&id&Chr(9)&num&Chr(9)&pwd&Chr(9)&olr&Chr(9)&tof&Chr(9)&rems
            Loop
        op.close
        set op=nothing
    admin.close
    set admin=nothing
conn.close
set conn=Nothing

MsgBox msg,0,"数据库查询结果"