给个例子:
hotelini := Tinifile.Create('hotel.ini');
struserid := hotelini.ReadString('database','userid','');
strpassword := hotelini.ReadString('database','password','');
strdatasource := hotelini.ReadString('database','server','');
//¶¨ÒåÊý¾Ý¿âÁ¬½Ó×Ö·û´®
datastr:='provider=SQLOLEDB.;password=';
datastr:=datastr+strpassword+';';
datastr:=datastr+'User ID='+struserid+';';
datastr:=datastr+'Data Source='+strdatasource;
//Á¬½ÓÊý¾Ý¿â
with adoquery1 do
begin
Close;
ConnectionString:=datastr;
sql.Clear;
sqlstr:='select * from hotel..kfzl ';
ADOQuery1.SQL.Add(sqlstr);
open;
end;
hotelini := Tinifile.Create('hotel.ini');
struserid := hotelini.ReadString('database','userid','');
strpassword := hotelini.ReadString('database','password','');
strdatasource := hotelini.ReadString('database','server','');
//¶¨ÒåÊý¾Ý¿âÁ¬½Ó×Ö·û´®
datastr:='provider=SQLOLEDB.;password=';
datastr:=datastr+strpassword+';';
datastr:=datastr+'User ID='+struserid+';';
datastr:=datastr+'Data Source='+strdatasource;
//Á¬½ÓÊý¾Ý¿â
with adoquery1 do
begin
Close;
ConnectionString:=datastr;
sql.Clear;
sqlstr:='select * from hotel..kfzl ';
ADOQuery1.SQL.Add(sqlstr);
open;
end;
解决方案 »
- 如何用Delphi组件中的DBImage和opendialog做上传图片
- 帮忙装vb脚本转换成delphi
- 请教easygrid横向打印不能完全打印的问题
- delphi打开,无法显示顶上那一排控件列表
- delphi中写sql语句真烦人,请帮忙修改一个sql,谢谢了!!!
- 关于通过BDE远程连接SQLserver的问题。。
- 這幾天在陪女朋友看《新白娘子傳奇》,有看過的請up一下,統統有分!!
- NMUDP,每分钟能够接收多少个数据包呀?有没有限制?
- 那里有分页浏览器的源码?
- 给分怎么给啊?我怎么最多只能给26分啊?我想多给点分不行吗?
- 高分求serv-u ftp服务器注册码
- 怎样把DBGridEh表格控件设置成斑马线,即第一行是灰色,第二行是白色,第三行是灰色,依此类推。
若无密码,则把loginPrompt 属性设为False
有密码,则设置,Params属性,其中应包含,user Name,和Password
user name=yourName
Password=yourPassword
若无密码,则把loginPrompt 设为False;
有密码则,设置,Params属性,如
User Name=yourName
Passwrod=YourPassword
这么容易就能拿分啊?
一定要输密码的化,怎么也去不掉