如何在局域网内部使用一个数据库?(50分)

  • 主题发起人 主题发起人 cnnoah
  • 开始时间 开始时间
C

cnnoah

Unregistered / Unconfirmed
GUEST, unregistred user!
程序是现实读入文本文件然后向数据库表中存入数据,能否实现在局域网内部同一个
工作组的机子上使用这个程序,然后数据最后是存到我的数据库里,而不必安装数据库?
数据库为D7+SQL2K
 
完成可以呀!
把文本文件一条一条地读入(根据格式不同编写相应代码!),再将记录存入服务器中的数据库!
在DELPHI中用ADO连接服务器的数据库SQL SERVER ,相当于一个将数据插入数据表的工作!!!
 
用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;
 
多人接受答案了。
 
后退
顶部