3. 数据文件以数据库组织
下面代码是用Access做的,其他类型数据库类似。不多说继续贴出代码。
strDB="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\zilingold\桌面\Testdata.mdb;Persist Security Info=False" strTableName="data" Set Conn=createobject("adodb.connection") Set Rst=createobject("adodb.recordset") Conn.open strDB Rst.open "select * from "+strTableName,Conn,2,2 Dim strTest(1) Rst.MoveFirst Do while not Rst.eof strTest(0)=trim(cstr(Rst.fields(0))) strTest(1)=trim(cstr(Rst.fields(1))) Dialog("Login").WinEdit("Agent Name:").Set strTest(0) Dialog("Login").WinEdit("Password:").SetSecure strTest(1) Rst.MoveNext Loop Rst.close Set Conn=nothing |