我用的是delphi7,(新丁)只会用BDE(AOD不会用,我的书上只字没提ADO),编写代码如下:
procedure TForm1.FormCreate(Sender: TObject);
begin
database1.AliasName:='u67';
Database1.DatabaseName := 'sa';
//Database1.DriverName := 'msSQL';
(如果用DriverName代替AliasName就出现“cannot locate or connect to SQLserver.无法连接SQLserver不可用或不存在。无法连接SQLserver不可用或拒绝访问。Alias:sa”这样的错误提示)
table1.DatabaseName:='sa';
table1.TableName:='sms_trancode';
table1.Open;
end;procedure TForm1.Database1Login(Database: TDatabase;
LoginParams: TStrings);
begin
LoginParams.Values['SERVER NAME']:='u67';
Loginparams.Values['USER NAME']:='SA';
LoginParams.Values['PASSWORD']:='111111';
end;
可以实现登陆本机SQL SEVER,现在啊头要求可以输入主机ip登陆远程SQL SEVER。
我查书看到有说到什么SQL Links的东西,书上说是要安装的。我不知道是不是在装delphi7的时候一起安装了。在我电脑的 开始|程序|Borland Delphi7 菜单下没有SQL Links这个选相。请问我装了没有?如果没装怎么样才可以连上远程SQL SEVER?
procedure TForm1.FormCreate(Sender: TObject);
begin
database1.AliasName:='u67';
Database1.DatabaseName := 'sa';
//Database1.DriverName := 'msSQL';
(如果用DriverName代替AliasName就出现“cannot locate or connect to SQLserver.无法连接SQLserver不可用或不存在。无法连接SQLserver不可用或拒绝访问。Alias:sa”这样的错误提示)
table1.DatabaseName:='sa';
table1.TableName:='sms_trancode';
table1.Open;
end;procedure TForm1.Database1Login(Database: TDatabase;
LoginParams: TStrings);
begin
LoginParams.Values['SERVER NAME']:='u67';
Loginparams.Values['USER NAME']:='SA';
LoginParams.Values['PASSWORD']:='111111';
end;
可以实现登陆本机SQL SEVER,现在啊头要求可以输入主机ip登陆远程SQL SEVER。
我查书看到有说到什么SQL Links的东西,书上说是要安装的。我不知道是不是在装delphi7的时候一起安装了。在我电脑的 开始|程序|Borland Delphi7 菜单下没有SQL Links这个选相。请问我装了没有?如果没装怎么样才可以连上远程SQL SEVER?
解决方案 »
- 求DbGrid中加checkbox控件(与数据表不关联)的好控件或好方法,搜索没找到合适的答案
- 一个多语言问题,关于TCommonDialog类的
- 关于dbgrid弹出窗口
- 急!!明天要交任务了,定时自动生成HTML!
- 如何把字符串中指定的内容去掉?高手进
- 我为DbgridEh的某列设置了picklist属性,为何不起作用?
- 高分相送解决复杂查询问题,高手看过来!(分不够可以再加)
- 各位大哥,有没有一个简单的方法,把dbgrideh中选中的记录导出到excel中,而且能够打印!
- 怎样创建一个子窗体独立于主窗体的程序, 象WINHLP32.EXE一样.
- 我用Adoquery 从一个数据表中查询了一些数据.然后通过数据源付给了一个表格,但是我不知道该如何得更改每一列的宽度,不知各位大哥有没有什么高见
- 数据表遍历问题???
- 急!!!在线等待高手!!!在delphi中TEdit除了Text属性可以保存数据,还有什么属性可以保存数据,我还需要保存text数据所对应的代码。
设置一下Database的属性就可以了。
var
dbname,hostip,username,passwd :string;
begin
database.
database.params.add('DATABASE NAME='''+dbname+'''');
database.params.add('SERVER NAME='''+hostip+'''');
database.params.add('USER NAME='''+username+''');
database.params.add('PASSWORD='''+passwd+'''');
end;
使用bde 效率不是太好!~~~
ado 使用adoconnection+adotable+adoquery 就可以搞定了!~~~
procedure TForm1.FormCreate(Sender: TObject);
var
dbname,hostip,username,passwd :string;
begin
hostip:='***.***.***.67';
dbname:='sms';
username:='sa';
passwd:='';
database1.params.add('DATABASE NAME='''+dbname+'''');
database1.params.add('SERVER NAME='''+hostip+'''');
database1.params.add('USER NAME='''+username+'''');
database1.params.add('PASSWORD='''+passwd+'''');
table1.DatabaseName:='sms';
table1.TableName:='sms_TranCode';
table1.Open;
end;
编译是出现“unknow database Alisa:sms”出错提示!!
sms是'***.***.***.67'SQL Server上的一个库的名称,但他发布的数据源的名称是sa。
我应该怎么做?
应该怎样做?