远程数据库需不需要做一些设置?还是直接正常安装就行了本地访问用什么比较好?ADO可以吗?连接远程数据库应该怎么连?
解决方案 »
- 缓冲更新逻辑不太明白!
- NT服务 求助
- query带参向数据表中添加数据的问题!
- 本身装有delphi7,要再安装delphi5开一个以前的程序,却装不上了,怎么办。
- 救命啊!!如何设置Dxtreelist的属性,使它的某一列数字按顺序自动生成
- 请教几道简单的pascal问题,分不够可以再加! 急!!!
- 在delphi中,如何实现解压aa.rar文件?
- ??????-[Error] TEditEx.PAS(16): Identifier redeclared: 'TEditEx'????????
- 我今天也通过毕业答辩,也感谢毕业设计过程中Delphi版同志们的帮助,也送分(可惜最多只能100)~~~~~
- 请问各位高手:我在么memo中添加过长的文本怎么判断在那里重新开始第二行了,也就是知道么memo每行的结尾标志???急呀!!
- 请有万能查询的模块?
- 请问delphi3.0与delphi6.0的区别?谢谢
ADO可以连的
1.在窗口上放一个TADOConnection控件,属性设置如下:
点ConnectionString属性旁边的扩展按钮,然后在弹出的对话框中选择支持SQL类型的驱动。接着将转入第2个页面,在其中选择远程SQL服务器主机的名称,登陆用户名称和密码以及默认连接数据库表。最后点测试看看连接是否成功;成功后点确定按钮,这样就将ConnectionString属性设置成功。
2.在窗口上再放一个TADOQuery控件,并设置属性Connection指向TADOConnection控件,且在SQL属性中设置查询语句。
3.最后在窗体上放TDataSource控件,设置其DataSet属性指向TADOQuery控件。
再放置一个数据浏览控件,并将其DataSource属性指向TDataSource控件。
4.将TADOQuery属性的Active设置为True,你将看到数据感知控件中显示连接数据库表的内容。
var str:string;
begin
str:='';
str:=str+'Provider=SQLOLEDB.1;';
if password<>'' then
begin
str:=str+'PassWord='+Password+';';
str:=str+'Persist Security Info=True;';
end
else
str:=str+'Persist Security Info=False;';
str:=str+'User ID='+User+';';
str:=str+'Initial Catalog='+AccName+';';
str:=str+'Data Source='+SName;
result:=str;
end;procedure TForm1.buttononclick
begin
with adoconnection1 do
begin
connected:=false;
connectionstring:=initadosqlstring('服务器名称',‘数据库名称’,'用户(sa)','密码(空)');
connected:=true;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
constr:string;
begin
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;//数据库名
constr:=constr+';Data Source='
constr:=constr+edit4.text;//ip
DM.ADOConnection1.ConnectionString:=constr;
try
DM.ADOConnection1.Connected:=True;
except on E:exception do
begin
showmessage(E.message);
end;
end;
end;
(2) 用ADO可以;
(2) 用ADO可以;
ADOConnection1.ConnectionString := 'Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=Northwind;Data Source=192.168.1.100';
ADOConnection1.Connected := true;
ADOConnection1.ConnectionString := 'Provider=SQLOLEDB.1;Password=132336;Persist Security Info=True;User ID=sa;Initial Catalog=Northwind;Data Source=192.168.1.100';
ADOConnection1.Connected := true;