我现在做一个考试系统,它的客户端怎样操作服务器端的数据库?

Question

比如:从服务器端的数据库里读取考生的题目,提交试卷的答案等等.
谁能回答,有多多分.

Answer 1

Dim CN   As New ADODB.Connection                '定义数据库的连接存放数据和代码
    Dim Rs   As New ADODB.Recordset
    CN.ConnectionString = "Provider=sqloledb;Data Source=pmserver;Initial Catalog=northwind;User Id=sa;Password=sa;"
    CN.Open
    Rs.CursorLocation = adUseClient
    Rs.Open "select * from employees", CN, adOpenDynamic
    Set MSHFlexGrid1.DataSource = Rs

Answer 2

Dim CN   As New ADODB.Connection                '定义数据库的连接存放数据和代码
    Dim Rs   As New ADODB.Recordset
    CN.ConnectionString =  "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\NWIND.MDB;Persist Security Info=False"    CN.Open
    Rs.CursorLocation = adUseClient
    Rs.Open "select * from employees", CN, adOpenDynamic
    Set MSHFlexGrid1.DataSource = Rs

Answer 3

可以访问www.vbgood.com
www.dapha.net
www.21code.com
www.vbeden.com
www.myvc.net
msdn.microsoft.com
http://www.vbaccelerator.com/
http://www.mvps.org/vbnet/
http://www.freevbcode.com/
http://www.pscode.com/vb/
http://www.allapi.net
和MSDN得到更多的帮助.............

Answer 4

三楼的数据库路径是不是服务器的数据库的路径,我想问一下,ado是不是通过Rs.CursorLocation = adUseClient能自动连接到服务器的数据库上?

Answer 5

同意三楼
Dim CN   As New ADODB.Connection                '定义数据库的连接存放数据和代码
    Dim Rs   As New ADODB.Recordset
    CN.ConnectionString =  "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\server\\NWIND.MDB(这里设置成共享路径);Persist Security Info=False"    CN.Open
    Rs.CursorLocation = adUseClient
    Rs.Open "select * from employees", CN, adOpenDynamic
    Set MSHFlexGrid1.DataSource = Rs