作者：未知 来源：月光软件站 加入时间：2005-2-28　月光软件站

用vb写程序的时候，经常需要让DataGrid控件显示数据库的内容，一般都是通过把DataGrid和ADO控件绑定实现的，这样比较麻烦。后来我就想写代码实现这个功能，代码如下：
Public Function GetMDBRecordset(SQL As String, DatabasePath As String, Optional DatabasePassword As String) As Recordset
    On Error GoTo ErrorStats
    Dim wadoConnection As New Connection
    Dim wadoRecordset As New Recordset
    Dim PasswordString As String
    If Len(DatabasePassword) <> 0 Then
        PasswordString = ";Persist Security Info=False;Jet OLEDB:Database Password=" & DatabasePassword
    End If
    wadoConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DatabasePath & PasswordString
   
    With wadoRecordset
        .ActiveConnection = wadoConnection
        .Source = SQL
        .CursorType = adOpenKeyset
        .LockType = adLockOptimistic
        .Open
    End With
   
    Set GetMDBRecordset = wadoRecordset
    Exit Function
ErrorStats:
    MsgBox "错误号是：" & Err.Number & vbCrLf & "错误详细信息：" & Err.Description
End Function

在一个Button的Click事件中添加如下代码：
Set datagrid1.DataSource = GetMDBRecordset("select * from table1", "f:\db1.mdb")

这样确实能打开数据库，但是DataGrid里死活不出现内容，经过测试，证明数据库确实被打开了，只是Datagrid控件里没有显示出来。

后来无意中发现同事所写的一个打开数据库的函数，里面给Recordset对象设定了一个CursorLocation=adUseClient，这样，就能在datagrid里显示出来内容了，真是奇怪啊。

代码片断如下：
With wadoRecordset
        .ActiveConnection = wadoConnection
        .Source = SQL
        .CursorType = adOpenKeyset
        .LockType = adLockOptimistic
        .CursorLocation = adUseClient
        .Open
End With

呵呵，这样就好了。

相关软件：