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

Question

以下以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中操作。

Answer 1

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

Answer 2

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，做安装程序时都要考虑有关设置问题

Answer 3

给你一段程序，是利用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;

Answer 4

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

Answer 5

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

Answer 6

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

Answer 7

用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;
:)