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

VB这段代码ADODC查询数据库很慢，什么原因啊，怎么处理啊？要修改的话如何修改啊，求大神赐教'加载配置PrivateSubload_config()DimSQLAsStringDimi,jAsIntegerFori=1To9SQL="Select*F...

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

展开