用SQL2000为什么还要用文本
用ADO联接就不用装数据库的呀,现在的98都有自带 联接字符可以用
新建一个UDL文件->打开->配置->完成 进行配置
客户端不用任何东西
procedure TADO_Data.DataModuleCreate(Sender: TObject);
Var
txtFile:TextFile;
AdoQuery_Company:TAdoQuery;
begin
//{
AssignFile(TxtFile,'Document.Ini');
//Document.Ini的内容为Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=LibaoDressData;Data Source=OURCOMPUTER
//从UDL文件中取得就行了
Reset(TxtFile);
repeat
Readln(TxtFile,ConnStr);
until (Pos('Provider',ConnStr)>0) Or (ConnStr<>#$1A);
CloseFile(TxtFile);
ConnStr:=ConnStr+';Password= *****';//这里的*代表密码 为了安全文件里不能存密码
try
ADOConnection1.ConnectionString:=Connstr;
ADOConnection1.Connected:=True;
AdoQuery_Company:=TAdoQuery.Create(Nil);
except
Application.MessageBox('应用程序不能联接到数据库!','提示',64);
Application.Terminate;
end;
end;