如何用相对路径连接ADO数据庫？100分(100分)

Y

ycmzp

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-01

• #1

如何用相对路径连接ADO数据庫？100分
ADOTABLE　如何用相对路径连接ADO数据庫表？

 

H

hbezwwl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-01

• #2

在adoconnection连接字符串中动态链接路径就行了。

 

Y

ycmzp

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-01

• #3

楼上的，就如此简单么？当前路径的函数是什么
可以写一句么　

 

H

hbezwwl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-01

• #4

ExtractFilePath(Application.ExeName)

 

Y

ycmzp

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-01

• #5

谢谢你的回答，很好！大吓！还有一个问题：如何新建一个通用模块？要步骤。一并给分
先谢过

 

C

cozo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-01

• #6

什么叫通用模块？

 

H

hbezwwl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-01

• #7

通用模块，什么意思。

 

L

linsb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-01

• #8

如果数据库路径不变的话，还是在设计期指定adoconnection连接字符串中为相对路进更好。
我就这样做的，很方便。

 

Y

ycmzp

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-01

• #9

通用模块，就是公共模块了
就是VB里所谓的全局**
务必回答

 

L

lfpsoft

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-01

• #10

//以SQL Server的连接为例，我写了个函数
function GetConnStr(UserID,PW,DBName,DBSource:String):WideString;
const
ConnStr = 'Provider=SQLOLEDB.1;User ID=%S;Password=%S;Persist Security Info=True;Initial Catalog=%S;Data Source=%S';
begin
Result := Format(ConnStr, [UserID,PW,//用户名和密码
DBName,//数据库名称
DBSource]); //服务器地址·
end;

 

K

karxios

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-01

• #11

。。

 

X

xuegaoyili

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-02

• #12

good .

 

哈

哈利波特

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-02

• #13

gz

 

Y

ycmzp

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-02

• #14

谢谢你的回答，很好！大吓！还有一个问题：如何新建一个通用模块？要步骤。一并给分
先谢过通用模块，就是公共模块了
就是VB里所谓的全局**
务必回答

 

P

PFans

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-02

• #15

var
s:string;
begin
//动态连接数据库
with ADOConnection1 do
begin
Connected:=false;
S:='Provider=Microsoft.Jet.OLEDB.4.0;Password="";User ID=Admin;Data Source='+ExtractFilePath(application.exename);//得到程序目录路径
S:=S+'data/friend.mdb;Mode=Share Deny None;Extended Properties="";';
S:=S+'Jet OLEDB:System database="";Jet OLEDB:Registry Path="";Jet OLEDBatabase Password="";Jet OLEDB:Engine Type=5;';
S:=S+'Jet OLEDBatabase Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;';
S:=S+'Jet OLEDB:New Database Password="";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDBon''t Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False';
ConnectionString:=S;
Connected:=true;
ADOTable1.Open;
end;
end;

 

Y

ycmzpsp

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-07

• #16

以上回答很好，其它我给你MAIL过去

 

Y

ycmzp

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-07

• #17

多人接受答案了。