Question

VB6连接网络数据库

我想用VB6做一个数据库软件,用Accaee数据库的.这个Accaee数据库是放在一个FTP服务器上的.这个FTP服务器我用自己的电脑做的,就是想将Accaee数据库放在上面,然后我可以在别的地方连接上这个数据库..
请问我这个想法能行吗?要用到什么控件,不要第3方控件,最好有源码,复制到网上的文章一律不给分!!
mondecao,你能说得更详细点吗？最好有代码。如果不行就帮我找个实例

Answer 1

1、不需要控件，但是要用到ado的库来实现，vb里面的“引用”项里面选中 Microsoft ActiveX Data Objects库即可调用ado对象了，具体调用语句网上很多。

2、这种方法实现起来不是很好，主要是access数据库是为单机应用准备的，如果要程序网络访问的话，多用户操作、响应及时性以及数据库连接字符串的构造有点问题

3、如果你真想把自己的机器作为中心数据库服务器的话，建议使用sql server比较好，只需要在连接字符串里面配置好，具体使用上和查询access数据库的代码大同小异，且更方便

详细说明啊........厄，有点麻烦，我来做个例子吧

你先找个sqlserver2000给自己机器装上，用里面的"企业管理器"打开本地实例，新建个数据库，例如 AAA，在里面建立几个表，和ACCESS新建表差不多，表建立好以后，就可以用vb写代码连接访问了

新建一个工程，加入一个模块，工程-引用里面的Microsoft ActiveX Data Objects x.0库勾选下

然后在变量声明部分先
Public StrConn As String
Public StrSql As String
Public Conn As New ADODB.Connection
Public oRs As New ADODB.Recordset
声明这几个全局变量

然后
StrConn = "DRIVER=SQL Server;SERVER=127.0.0.1;UID=sa;PWD=xxxxxxxx;database=AAA;"
Conn.Open StrConn

这两句代码执行后，就已经建立友液了与数据库的连接，连接对象是 Conn，如果异地执行程序，只需要改变StrConn的值，在其中填上数据库服务器的Ip地址就可以

当需要查询数据库中数据的时候，只需要用前面生命好芦物的StrSql和oRs对哗码象就可以了，例子如下

StrSql = "select * from AAA01" ***对Sql查询语句赋值
oRs.Open StrSql, Conn, 1, 1 ***通过前面建立的数据库连接执行查询，并将结果通过oRs这个记录集对象返回
While Not oRs.EOF ***当oRs当前记录不为空
CboUserName.AddItem Trim(oRs!Uname) ***将记录集中的Uname字段的值赋给CboUserName
oRs.MoveNext ***记录移动到下一条
Wend ***循环结束
oRs.Close