问一很菜鸟的问题请问SQL7.0（本地，分别用BDE ODBC） 如何联接

[wangyise1]

最好从建库到联接说具体一些我是SQL初学者

[steps]

我的第一个回答里已经很清楚得说明了实现方法，按那个步骤，就能与SQLSERVER建立联接
至于ADO，你没兴趣也就算了

[my8848]

以下以ASP以ODBC为例说明。DELPHI同此原理一样。

仔细琢磨ASP SDK中的DATABASE例子。IIS4自带。目录(缺省的）：
C:\INETPUB\IISSAMPLES\SDK\ASP\DATABASE\Blob_VBScript.asp
关键是：
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "DSN=LocalServer;UID=sa;PWD=;DATABASE=pubs"
其中ODBC连接字符串为"DSN=LocalServer;UID=sa;PWD=;DATABASE=your_database_name"
别忘了在控制面板ODBC管理中配置SQL SERVER的一些属性（包括密码和用户名），并确保其ODBC连接正确。

建库可以在SQL SERVER的ENTERPRISE MANGER中操作。

[wangyise1]

那么BDE如何联 我从没用过ODBC

[steps]

1.在本地安装SQL SERVER 7.0
2.在ODBC里的"用户DSN"里添加新的DSN，设置数据库描述名为TEST，
数据库的SQL Server Group
设置数据库的Database,设置数据库的登录用户信息等
3.在Delphi的SQL Explore里设置新的Databases,
Database Driver Name设置为SQL SERVER
设置ODBC DSN为数据库DSN名TEST
这样已经可以在程序里使用这个Database了

当然，对于使用数据库，我更喜欢使用Delphi5里提供的ADO技术
建立新的connection,设置ConnectionString,很方便就能与SQL　SERVER建立联接
DSN等都不用去设置，程序生成后能独立运行，做安装程序也方便
但用ODBC设置和BDE，做安装程序时都要考虑有关设置问题

[steps]

给你一段程序，是利用ADO建立和打开SQL　SERVER　7。0数据库的
procedure TdmCCTV.DataModuleCreate(Sender: TObject);
begin
try
CCTV_ADOConnection.Close;

CCTV_ADOConnection.ConnectionString := 'Provider=SQLOLEDB.1;Persist Security Info=True;Initial Catalog=CCTVDB;Data Source=192.168.1.1';

CCTV_ADOConnection.Open('user', 'password');
except
MessageDlg('数据库服务器连接失败，请稍后再打开本程序!', mtWarning, [mbOK], 0);
end;
end;

procedure TdmCCTV.DataModuleDestroy(Sender: TObject);
begin
CCTV_ADOConnection.Close;
end;

[wangyise1]

我想知道用BDE如何连 我不发布

[wangyise1]

adO 我不会不知使用后是否TABLE 控件还可使用

[saoren]

用ADO好，不用ODBC，不用BDE，做完后直接拷到客户端就能用

function InitADOSQLString(SName,AccName,User,Password:string):string;
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 TForm1OnCreate;
begin
with ADOConnection1 do
begin
Connected:=false;
ConnectionString:=InitADOSQLString('服务器名','数据库名','用户','密码');
Connected:=true;
end;
with ADOTable1 do
begin
Close;
Connection:=ADOConnection1;
TableName:='tablename';
Open;
//data process :append,edit,delete;
end;
end;
:)