如何用ADOConnection动态连接数据源,也就是说移动应用程序不需要重新配置数据源,谢谢!
解决方案 »
- string 不是多线程安全的??
- 询问一下这段代码中的几个词的意思?
- down下的 gdi+包,中间的directdraw不能通过编译
- dbgrid问题
- 指针,过程类型又一问
- Delphi里写一个数组元素排序的函数
- 急!!怎么样在程序中调用outlook进行发信啊??
- ★★★★★★★★★★-【VCL设计期“菜单”问题】-★★★★★★★★★★★★★★★★★★★★★ ^_____^ 大家过年好!★★★★★★★
- 关于SYBASE TEXT乱码问题
- Delphi的哥们们,你们在哪里呀?让我找的好苦啊!!!!!!!!!!!!!!!!
- 我的installshield shield 4.0 for borland 不支持中文,急???
- 彷徨,迷茫,困惑
在FORMCREATE中加入以下语句就可以了:
procedure TfrmMain.FormActivate(Sender: TObject);
begin
if adoconnection1.Connected =false then
begin
adoconnection1.Close ;
adoconnection1.LoginPrompt :=false;//不弹出登录窗口
adoconnection1.ConnectionString :='Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source='+extractfilepath(application.ExeName)+'your.mdb;';
adoconnection1.Connected :=true;
end;
怎样提供一个界面配置sql,具体如何实现,谢谢
1、在窗口添加一连接,
2、将一些参数如服务器名,登录名等参数放在一个INI文件里,直接在软件里从配置文件里去读取
3、在窗口建立时直接连接
procedure TDataModul1.DataModuleCreate(Sender: TObject);
var ConStr, Lpathname:string;
pini:Tinifile;
begin
with AdoCnt do
begin
connected:=False;
pini:=Tinifile.Create(ExtractFilePath(ParamStr(0))+'db.ini');//取得INI文件
ConStr := 'Provider='+Pini.ReadString('Connect','Provider','SQLOLEDB.1');
ConStr := ConStr+';Password=12';
ConStr := ConStr+';Persist Security Info=True;User ID='
+Pini.ReadString('Connect','User ID','sa');
ConStr := ConStr+';Initial Catalog=test10';
ConStr := ConStr+';Data Source='+Pini.ReadString('Connect','Data Source','SqlServer');
ConStr := ConStr+';Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;'
+'Use Encryption for Data=False;Tag with column collation when possible=False';
Pini.Free;
Connectionstring := ConStr;
Try
Connected:=True;
except
end;