欢迎光临

木子屋

标题: 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 3.000 ms

返回

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

你没有权限发表评论

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

木子屋

PJBlog3 v3.2.9.518 Inside.

Processed In 3.000 ms

返回

暂无评论

返回

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

木子屋

PJBlog3 v3.2.9.518 Inside.

Processed In 3.047 ms

返回