在DELPHI设计时,点击CONNECTIONSTRING会弹出一个窗口,让我们设置连接字符串,我现在想在程序中实现这个功能,用那个函数?我看过的,就一个函数搞定
解决方案 »
- 在用OleContainer1打开excel 时,如何自动打开excel ,用要每次程序运行后,通过双击鼠标来打开excel
- TADOTable.DeleteRecords这个的arAll什么情况用
- 求一种能在系统比较完整的处理异常的方式
- 上网记录让在注册表的哪个主键下面?参与就有分
- d7中Rave做报表统计一个字段的和,我使用CalcText就是不能成功啊。
- 不知道哪里有EhLib2.0控件的使用详例?
- 如何在combobox中用拼音检索,就像股票名称一样,输入LQJS就会显示“路桥建设”
- 如何在DELHPI中生成资源文件?急需答复!谢谢!!
- 求助关于打印的一个问题。?
- 急!急!!急!!!怎样将位图的图象数据读入到一个二维数组中?
- 12小时制转为24小时制
- 关于ADOConnection的mode设置
[oledb]
; Everything after this line is an OLE DB initstring
Provider=SQLOLEDB.1;Password=1234;Persist Security Info=True;User ID=sa;Initial Catalog=dbName;Data Source=SP\INSPTDATASERVER
var
sqlstr:string;
begin
//连接数据库并给dbgrid1付值
try
if adoconnection1.Connected then
adoconnection1.Connected :=false;
adoconnection1.ConnectionString :='Provider=MSDASQL.1;Password=000;Persist Security Info=True;User ID=00;Data Source=MS Access Database;Initial Catalog='
+ExtractFilePath(Application.ExeName)+'\db\muddata.mdb' adoconnection1.LoginPrompt :=false;
adoconnection1.Connected:=true;
adoquery1.Connection :=adoconnection1;
sqlstr:='select * from biao' ;
adoquery1.Active:=false;
adoquery1.SQL.Clear ;
adoquery1.SQL.Add(sqlstr);
adoquery1.Active :=true;
datasource1.DataSet :=adoquery1;
dbgrid1.DataSource :=datasource1; except
showmessage('连接系统数据库失败!');
end;
我们在编程的时候,可以点控件的ConnectionString,然后系统弹出窗口,我们可以选择服务器,密码,数据库等,我现在希望我的程序也有同样功能,但是我又不想编写程序,
ADOConED.EditConnectionString(ADOConnection1);uses ADOConED