UC知道vb ListView1连接数据库问题
来源：百度知道 编辑：UC知道 时间：2024/05/30 19:35:07
Private Sub Form_Load()
With ListView1
.View = lvwReport
.GridLines = True
.Checkboxes = False
.FullRowSelect = True
.ColumnHeaders.Add , , "", 200
.ColumnHeaders.Add , , "工单编号", 700, lvwColumnCenter
.ColumnHeaders.Add , , "客户名称", 1000, lvwColumnCenter
.ColumnHeaders.Add , , "产品编号", 1500
.ColumnHeaders.Add , , "产品名称", 1800
.ColumnHeaders.Add , , "交货数量", 550, lvwColumnCenter
.ColumnHeaders.Add , , "交货日期", 1200, lvwColumnRight
End With
CNN.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\" & "\Database\obese.mdb.mdb"
SQL = "Select * From query Order by 工单编号"
RST.Open SQL, CNN, adOpenKeyset, adLockOptimistic
On Error Resume Next
For i = 1 To RST.RecordCount
With ListView1
.View = lvwReport
.GridLines = True
.Checkboxes = False
.FullRowSelect = True
.ColumnHeaders.Add , , "", 200
.ColumnHeaders.Add , , "工单编号", 700, lvwColumnCenter
.ColumnHeaders.Add , , "客户名称", 1000, lvwColumnCenter
.ColumnHeaders.Add , , "产品编号", 1500
.ColumnHeaders.Add , , "产品名称", 1800
.ColumnHeaders.Add , , "交货数量", 550, lvwColumnCenter
.ColumnHeaders.Add , , "交货日期", 1200, lvwColumnRight
End With
CNN.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\" & "\Database\obese.mdb.mdb"
SQL = "Select * From query Order by 工单编号"
RST.Open SQL, CNN, adOpenKeyset, adLockOptimistic
On Error Resume Next
For i = 1 To RST.RecordCount
是不是在
CNN.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\" & "\Database\obese.mdb.mdb"
这一段？
看起来你没有对变量 CNN 进行初始化……
你可以在使用 CNN 之前先使用
Set CNN = New Connection
然后再执行 CNN.Open。
P.S.
你是不是使用隐式变量声明？
为了提高代码可读性，减少出错几率，以及运行效率，
建议你最好把变量显式声明出来，像这样：
Dim I As Long '循环计数器
Dim CNN As New Connection '连接
Dim SQL As String 'SQL 文本
Dim RST As New Recordset '工单记录集
Dim LVRow As ListItem