vb问题(急，急)!!!!

来源：百度知道 编辑：UC知道 时间：2024/04/30 08:38:22
显示数据库内容

有好心人能给一个实例吗？

小弟跪求实例

先谢谢了！
有好心人能给一个实例吗？

小弟跪求实例

先谢谢了！

不用GRIDWIEW控件

不用data控件能行吗？
我的VB6.0用data控件不行啊

data控件

引用外部组件：
Mircosoft ActiveX Data Objects 2.5 Library

模块代码：

Option Explicit
Public Conn As ADODB.Connection
Public rs As ADODB.Recordset
Public strDBFile As String

'#------------------------------------#
'# 设置启动Main过程 #
'#------------------------------------#
Sub Main()
strDBFile = GetAppPath & "DB_Art.mdb"
Call ConnectDB(strDBFile)
frmMain.Show
End Sub

'#------------------------------------#
'# 获取当前相对路径 #
'#------------------------------------#
Public Function GetAppPath() As String
GetAppPath = App.Path & IIf(Len(App.Path) > 3, "\", "")
End Function
'#--------------------------#
'# 数据库连接 #
'#--------------------------#
Public Sub ConnectDB(ByVal strDBFile As String)
Set Conn = New ADODB.Connection
Conn.Open "PROVIDER=