如何创建一个界面,在界面中通过按下一个命名的为'连接数据库'的按钮来动态地连接到SQL数据库中,而不需要通过先分离数据库,再附加数据库等手工操作,请写一下关键代码,并能提供一个类似的模板最好,谢谢
解决方案 »
- 求救,急
- 关于dxdbgrid选择checkcolumn类型数据之后无法选择的问题.100分.
- 用19寸液晶显示器看电视,液晶显示器和电视盒有什么特别要求才可以正常看电视?
- 关于SPCOMM做医疗仪器方面的问题
- 图形处理问题,100分求助!!!
- if you have get a exception "Row not found", maybe it is not yourproblem, but Borland's.
- 亲爱的高手看过来,小女子有十万火急的事求救 !!!!!!!!!!!!!
- 如何将DevExpress QuantumGrid 4.5汉化?
- 关于关闭窗体的问题?
- 学做控件
- 高手莫笑!!
- 更新oracle记录得怪问题,怎么就把字段得前面得4个0个去了? 在线等
给数据库连接动态赋予字符串就可以了
procedure TMainForm.ConnectStringExecute(Sender: TObject);
begin
{set Ado connect string unit:AdoConEd}
AdoConnection1.Connected:=false;
EditConnectionString(ADOConnection1);
AdoConnection1.Connected:=true;
end;
constr:='Provider=SQLOLEDB.1;Persist Security Info=False;User ID=';
constr:=constr+Edit1.text;//此处写登陆用户名
constr:=constr+';PASSWORD=';
constr:=constr+Edit2.text;//此处写登陆密码
constr:=constr+';Initial Catalog=';
constr:=constr+Edit3.text;//此处写要进入的数据库 如:tempdb
constr:=constr+';Data Source='+Edit4.text;//此处写数据源 可以写机器名,也可以是ip地址
ADOConnection1.Connected:=false;
ADOConnection1.LoginPrompt:=false;
ADOConnection1.ConnectionString:=constr;
ADOQuery1.Connection:=ADOConnection1;
ADOQuery1.SQL.Add('select passwd from table1');
ADOQuery1.open;