木子屋
 

标题: VB6.0编程给DataGrid绑定数据示例

作者: dnawo

日期: 2009-09-28 10:15 AM

分类: Win编程

内容: ①选择菜单"工程→部件"，添加"Microsoft DataGrid Control 6.0 (OLEDB)"，从工具箱中拖个DataGrid到窗体上；
②选择菜单"工程→引用"，添加"Microsoft ActiveX Data Objects 2.6 Library"，这样在代码就可以使用ADO对象了；
③添加以下代码：
复制内容到剪贴板 程序代码Option Explicit
Dim objConn As ADODB.Connection
Dim objRs As ADODB.Recordset
    
Private Sub Form_Load()
    On Error Resume Next
    
    Set objConn = New ADODB.Connection
    Set objRs = New ADODB.Recordset
    
    objConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\demo3.mdb;"
    objConn.Open
    objRs.CursorLocation = adUseClient
    objRs.Open "Select ProductId,ProductName,Discontinued FROM Products", objConn, adOpenStatic, adLockReadOnly
    Set DataGrid1.DataSource = objRs
    
    If Err.Number <> 0 Then
        MsgBox Err.Description
    End If
    
    On Error GoTo 0
End Sub
'释放资源
Private Sub Form_Unload(Cancel As Integer)
    '不操作此步会出错：The current row is not available
    If TypeName(DataGrid1.DataSource) <> "Nothing" Then
        Set DataGrid1.DataSource = Nothing
    End If
    
    If TypeName(objRs) <> "Nothing" Then
        objRs.Close
        Set objRs = Nothing
    End If
    
    If TypeName(objConn) <> "Nothing" Then
        objConn.Close
        Set objConn = Nothing
    End If
End Sub
运行程序，可以了^_^

+ 查看当前日志评论 (0)

 

登录

────────────

木子屋

PJBlog3 v3.2.9.518 Inside.

Processed In 0.047 ms

标题: VB6.0编程给DataGrid绑定数据示例

你没有权限发表评论

────────────

木子屋

PJBlog3 v3.2.9.518 Inside.

Processed In 0.047 ms

暂无评论

返回

────────────

木子屋

PJBlog3 v3.2.9.518 Inside.

Processed In 0.047 ms