问一很菜鸟的问题请问SQL7.0(本地,分别用BDE ODBC) 如何联接

wangyise1 2000-12-10 11:43:00
最好从建库到联接说具体一些我是SQL初学者
...全文
168 点赞 收藏 8
写回复
8 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
saoren 2000-12-11
用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;
:)
回复
wangyise1 2000-12-10
adO 我不会不知使用后是否TABLE 控件还可使用
回复
wangyise1 2000-12-10
我想知道用BDE如何连 我不发布
回复
steps 2000-12-10
给你一段程序,是利用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;
回复
steps 2000-12-10
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,做安装程序时都要考虑有关设置问题
回复
wangyise1 2000-12-10
那么BDE如何联 我从没用过ODBC
回复
my8848 2000-12-10
以下以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中操作。
回复
steps 2000-12-10
我的第一个回答里已经很清楚得说明了实现方法,按那个步骤,就能与SQLSERVER建立联接
至于ADO,你没兴趣也就算了
回复
相关推荐
发帖
Delphi
创建于2007-08-02

4924

社区成员

Delphi 开发及应用
申请成为版主
帖子事件
创建了帖子
2000-12-10 11:43
社区公告
暂无公告