PacketSize=4096;WorkstationID='; e:=';UseEncryptionforData=False;Tagwithcolumncol lationwhenpossible=False'; datamodule2.ADOConnection1.ConnectionString:=c+a+ d+b+e; datamodule2.adoconnection1.Connected:=true; //释放文件变量 iniparam.Free; cmbusername.Clear; //测试数据库连接 try Query:=TADOQuery.Create(nil); Query.Connection:=datamodule2.ADOConnection1; Query.SQL.Add('selectunamefromusers'); Query.Open; ifQuery.RecordCount=0then begin MessageDlg(' 没有可以登录的用户名 ',mtError, [mbok],0); Exit; endelse begin Query.First; whileQuery.Eof=falsedo begin cmbUserName.items.add(query.FieldByName ('Uname').asstring); Query.next; end end; Query.Close; Query.Free; cmbusername.ItemIndex:=0; except MessageDlg(' 连接数据库出错!',mtError,[mbok], 0); end; end; end. 4 结语 通过灵活存取配置文件,动态指定 TADOConnection 组件 的 connectstring 属性值,实现了 Delphi7.0 和 SQLServer 数据 库的连接 这种方法的最大特点就是简单方便,避免了通过 在程序中指定数据库连接字符串的局限性。 |