关于在前端如何动态转换中间服务器的指定的数据库？(100分)

F

fstao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-21

• #1

中间是MIDAS服务器，是运用Ado存取后端数据库sql server 7.0，由于我把中间服务器做成
Dll形式，由于中间服务器是用TADOConnection连接sql server 7.0，假如是连接数据库是
sql server 7.0已有的Database是Master，但在前端运行时，就可以看Master里面表的数据
，如果我要动态改变Database，即把中间服务的TADOConnection已连接的master数据库转换
成Pubs，请问在前端如何动态转换中间服务器指定的数据库？

 

Z

z_cd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-21

• #2

服务器端给客户端提供一个服务:
1. 先断开 ADOConnection
2. 修改其中的ConnectionString中的DataBase内容
3. 然后再连接

 

小

小猪

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-21

• #3

再提供一个接口
客户段换一个接口连接不就行了么

 

X

xixi12359

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-21

• #4

在中间层提供一个修改ConnectionString中的DataBase内容功能的函数即可

 

R

rax

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-21

• #5

>>

 

F

fstao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-21

• #6

能不能详细一点？

 

G

gerry yang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-21

• #7

先断开服物器和数据库的连接,
然后修改ConnectString 的Database,
再连接

 

W

wlq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-21

• #8

想在客戶端操作服務器﹐可以預先寫好接口的方法﹐然后在客戶端調用﹐很方便

 

F

fstao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-22

• #9

怎么样在前端编写代码断开中间服务器的TADOConnection的属性Connected:=False？你们说
有一个接口，到底是什么接口？

 

W

wumeng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-22

• #10

z_cd说的还不明白吗?
要不你就多写几个ＳＥＲＶＥＲ,到时候动态连.

 

Y

yushaofei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-22

• #11

在AppServer上写一个过程，客户端调用。

 

Z

zhfhq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-29

• #12

我给你一段代码：
在服务器段：定义一个接口的函数Changedb
procedure Tsqlserver.ChangeDB(var dbname: OleVariant);
begin
ADOConnection1.Connected:=FALSE;
ADOConnection1.ConnectionString:=
'Provider=SQLOLEDB.1'+';'+'Persist Security Info=False'
+';'+'User ID=sa;Initial Catalog='
+dbname+';'+'Data Source=ZHF'+';'+'Use Procedure for Prepare=1'
+';'+'Auto Translate=True'+';'+'Packet Size=4096'+';'+'Workstation ID=ZHF'+';'+
ADOConnection1.Connected:=True'+';';
ADOConnection1.connected:=True;
end;
然后，在客户端调用即可.

 

F

fstao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-30

• #13

多谢zhfhq，我试一试。

 

F

fstao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-10-06

• #14

接受答案了.