我想在程序中能动态配置ado的connectionstring属性，我如何做？

答案:2 悬赏:80 手机版

解决时间 2021-03-21 01:25

提问者网友：不爱我么
2021-03-20 20:16

最佳答案

五星知识达人网友：街头电车
2021-03-20 20:59

procedure logindata; //登录数据库var servername,username,password:string; logintable:tquery; //登录远程数据库服务器时，传递参数；begin logintable:=tquery.Create(nil); logintable.Databasename:='本地数据表'//paradox表 logintable.close; logintable.sql.Clear; logintable.sql.Add('select * from 本地数据表.db'); logintable.open; servername:=logintable.Fieldbyname('ServerName').asstring; username:=logintable.Fieldbyname('UserName').AsString; password:=logintable.fieldbyname('cipher').asstring; logintable.close; ADO连接组件.Connected:=false; ADO连接组件.ConnectionString:='Provider=MSDAORA.1;Password='+password+';User ID='+username+';Data Source='+servername+';Persist Security Info=True'; ADO连接组件.Connected:=true;end; 查看原帖>>

麻烦采纳，谢谢!

全部回答

1楼网友：山有枢
2021-03-20 22:22

procedure logindata; //登录数据库var servername,username,password:string; logintable:tquery; //登录远程数据库服务器时，传递参数；begin logintable:=tquery.create(nil); logintable.databasename:='本地数据表'//paradox表 logintable.close; logintable.sql.clear; logintable.sql.add('select * from 本地数据表.db'); logintable.open; servername:=logintable.fieldbyname('servername').asstring; username:=logintable.fieldbyname('username').asstring; password:=logintable.fieldbyname('cipher').asstring; logintable.close; ado连接组件.connected:=false; ado连接组件.connectionstring:='provider=msdaora.1;password='+password+';user id='+username+';data source='+servername+';persist security info=true'; ado连接组件.connected:=true;end;

我要举报

如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！