VB 这段代码 ADODC查询数据库很慢，什么原因啊，怎么处理啊？

答案:2 悬赏:50 手机版

解决时间 2021-03-21 09:40

提问者网友：温柔港
2021-03-20 21:24

VB 这段代码 ADODC查询数据库很慢，什么原因啊，怎么处理啊？
要修改的话如何修改啊，求大神赐教

'加载配置
Private Sub load_config()
Dim SQL As String
Dim i, j As Integer
For i = 1 To 9
SQL = "Select * From CONFIG Where ID = " & i
Adodc1.RecordSource = SQL
Adodc1.Refresh

If Adodc1.Recordset.Fields("状态") = 1 Then
TreeView1.Nodes(i).Checked = True
ElseIf Adodc1.Recordset.Fields("状态") = 0 Then
TreeView1.Nodes(i).Checked = False
End If
Next

For i = 1 To 32
SQL = "Select * From MATAB Where 设备地址 = " & i
Adodc1.RecordSource = SQL
Adodc1.Refresh
j = i - 1
If Adodc1.Recordset.Fields("指令代码") = 1 Then
Check1(j).Value = 1
ElseIf Adodc1.Recordset.Fields("指令代码") = 0 Then
Check1(j).Value = 0
End If
Next
TSIK = "MATAB"
End Sub

最佳答案

五星知识达人网友：青灯有味
2021-03-20 21:57

应该是调用太多次Adodc1.Refresh引起的速度变慢。

建议将Adodc1.RecordSource = SQL： Adodc1.Refresh放到循环体之外。
设备地址在记录集中去操作，SQL命令中对设备地址排序。

全部回答

1楼网友：长青诗
2021-03-20 23:16

select * from 数据库名称 where 用户名或密码

adodc.refresh

adodc.recordset.recordcount的值为则错误0，不为零说明正确。

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息