＋设为首页 ＋添加到收藏夹
我要做一个ADO连接数据库的功能,就是把一个地址保存在INT或注册表中,然后去连接.其实就是不想每次装这个程序的时候都手动去连一下数据库.如果SQL SERVER服务器名变了,数据库名变了,都要手动去连一下.请问怎么做啊.最好有个例子给我看一下,先谢了!
学习，帮顶一下。
procedure TForm1.FormCreate(Sender: TObject);
var
con:string;
begin
try
{ if not Assigned(dm) then dm:=Tdm.Create(nil);
with dm.ADOConnection1 do begin
Connected:=false;
ConnectionString:=;
con:=FILE NAME=+ExtractFilePath(ParamStr(0))+jimcon.udl;
ConnectionString:=con;
Connected:=true;
end;}///////////////
dm.ADOConnection1.Connected:=true;
except
if Application.MessageBox(很抱歉的通知您,出错啦! 相关内容如下：+#13+#13+[主要信息:]连接服务器超时,无法与服务器建立连接！+#13+[原因:]可能是网络不通,网络忙或者系统配置不正确+#13+[解决方法:]请先检查网络是否正常或者稍后再试...+#13+#13+如果您确定网络正常,您可以手动配置与服务器连接的信息+#13+如需手动配置,请选择[确定]按钮...,Information,MB_OKCANCEL+mb_iconinformation)=mrok then
begin
dm.ADOConnection1.Connected:=false;
dm.ADOConnection1.ConnectionString:=ADODB.PromptDataSource(Handle,Provider=SQLOLEDB.1;);
try
dm.ADOConnection1.Connected:=True;
except
Application.MessageBox(很抱歉!+#13+在请求与数据库服务器连接时出错，无法与服务器建立连接！+#13+系统即将关闭！,Information,MB_OK+MB_ICONINFORMATION);
Application.Terminate;
end
end
else
application.Terminate;
end;
把与连接有关的信息(数据库服务器名,数据库名,表名),然后从文件中直接读取出来相关的信息不就可以了吗?
