你首先要在VB菜单中: “工程”-->“引用”-->“Microsoft AxtiveX Data Objects 2.X Library” 注:2.X为版本号,如果你机子上有高版本的就用高版本的,如:2.5或2.6的Private Sub ComOK_Click() Dim SQLstr As String,cnstr AS String Dim cn AS New ADODB.Connection'连接对象 Dim rs As New ADODB.Recordset'记录集对象 cnstr = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=\\myServer\c:\inetpub\wwwroot\yourdb.mdb" '连接字符串 cn.open cnstr' 打开数据库连接 rs.CursorLocation =adUseClient sqlstr="slect * from XXX表" rs.open sqlstr,cn,3,3'执行SQL语句,并返回记录 set datagrid1.datasource=rs datagrid1.refresh rs.close'关闭记录集对象 set rs=nothing End Sub 本示例是将数据库中的一张表的记录显示在datagrid的控件中。 注:myserver为服务器名可以为IP地址。
改网络版后要注意对数据库操作的并发情况,如果并发较频繁或并发连接较多则建议将数据库换成SQL
2、改连接串
3、如果有日期字段的话,还要改对应的日期SQL操作语句。将#改为'。
我改过,不觉得很难改。
“工程”-->“引用”-->“Microsoft AxtiveX Data Objects 2.X Library”
注:2.X为版本号,如果你机子上有高版本的就用高版本的,如:2.5或2.6的Private Sub ComOK_Click()
Dim SQLstr As String,cnstr AS String
Dim cn AS New ADODB.Connection'连接对象
Dim rs As New ADODB.Recordset'记录集对象
cnstr = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=\\myServer\c:\inetpub\wwwroot\yourdb.mdb" '连接字符串
cn.open cnstr' 打开数据库连接
rs.CursorLocation =adUseClient
sqlstr="slect * from XXX表"
rs.open sqlstr,cn,3,3'执行SQL语句,并返回记录
set datagrid1.datasource=rs
datagrid1.refresh
rs.close'关闭记录集对象
set rs=nothing
End Sub
本示例是将数据库中的一张表的记录显示在datagrid的控件中。
注:myserver为服务器名可以为IP地址。
设计的好可支持20-30个终端用户的日常操作,但很难再有所提高。而且当并发访问过多时,数据库损坏更是家常便饭,应设计自动修复机制。
如果可能,后台使用SQLServer,前台使用Access,用链接表。代码基本不用动,但性能不可同日而语。
中间层连数据库不过网络上用最好还是用SQL Server了