请问Delphi5怎样联SQL Server 2000的数据库 用ADO比较简单。在一个程序种用一个ADOConnection控件,此控件用来连接到SQL SERVER的数据库上;然后用ADODATASET或ADOQUERY等控件和直接相连,最后连接DBGRID就可以了。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 安装sqlserver客户端再在控制面板的bde Administrator内新建一个别名,类型mssqldatabase name为数据库名,server name为服务器名,ok 先在ODBC设一别名,配置好与SQLSERVER2000的连接(如果不通把协议改为TCPIP),测试成功后在DELPHI里使用该别名连接(要用到BDE),DELPHI5用ADO的话听说要装个ADO补丁。 belllab(bell),怕是不行吧?因为sql7.0不行呀 asl := Tstringlist.Create ; asl.Clear ; asl.Add ('Driver Name= MSSQL'); asl.Add ('Server Name= ' + servername); asl.Add ('Database Name= ' + Databasename); asl.Add ('User Name= ' + Username); asl.Add ('sqlqrymode=local'); if not Session.IsAlias ('STJ') then begin try Session.AddAlias ('STJ','MSSQL',ASL); finally asl.Free ; end;end else if Session.IsAlias ('STJ') thenbegin try Session.ModifyAlias ('STJ',ASL); finally asl.Free ; end;end;with Datamodule.dataBase1 dobegin iF Connected = true then Connected := false; aliasname := 'STJ'; params.Clear ; params.Add ('server name=' + servername); params.Add ('database name=' + Databasename); params.Add ('user name=' + loginname); params.Add ('password=' + loginword); loginprompt := false; keepconnection := true; try Connected := true; except application.MessageBox (pchar('无法启动数据库,请检查数据服务器是否已经启动!'),Pchar('错误'),mb_ok); application.Terminate ; exit; end;end;动态设置sql数据库别名、和连接数据库的例子 BULK INSERT 导入数据 求SQL语句 为什么SQLSERVER安装目录下有个80的目录? 这句sql语句报错,为什么,那位能说说缘由 sql server 2008启动不了服务,麻烦帮忙下!谢谢 求教 数据库创建 基本知识 数据查询问题 求教:SQL2000客户端无法连接服务器 生成如下的表格记录,SQL语句怎么写?急!!!!!!!!!! 在Win98下成功安装了7.0的桌面版,在注册服务器时却不行,怎么回事呢? 如何通过光标更新源表? 有谁知道在delphi中,怎样才能把文本文件内容导入sql server中,谢了
database name为数据库名,server name为服务器名,
ok
asl.Clear ;
asl.Add ('Driver Name= MSSQL');
asl.Add ('Server Name= ' + servername);
asl.Add ('Database Name= ' + Databasename);
asl.Add ('User Name= ' + Username);
asl.Add ('sqlqrymode=local'); if not Session.IsAlias ('STJ') then
begin
try
Session.AddAlias ('STJ','MSSQL',ASL);
finally
asl.Free ;
end;
end else if Session.IsAlias ('STJ') then
begin
try
Session.ModifyAlias ('STJ',ASL);
finally
asl.Free ;
end;
end;with Datamodule.dataBase1 do
begin
iF Connected = true then
Connected := false;
aliasname := 'STJ';
params.Clear ;
params.Add ('server name=' + servername);
params.Add ('database name=' + Databasename);
params.Add ('user name=' + loginname);
params.Add ('password=' + loginword);
loginprompt := false;
keepconnection := true; try
Connected := true;
except
application.MessageBox (pchar('无法启动数据库,请检查数据服务器是否已经启动!'),Pchar('错误'),mb_ok);
application.Terminate ;
exit;
end;
end;动态设置sql数据库别名、和连接数据库的例子