Hallo Leute ich habe eine Frage.
Ich habe 2 Recordsets.
Den ersten Recordset kann ich laden.
Den zweiten kann ich nicht laden.
CODE:
Public Function loadRecordset()
Dim m_rs As Recordset
Dim m_rD As Recordset
On Error Resume Next
Set m_rs = p_SQLDB.OpenRecordset("SELECT SysTables.* FROM SysTables WHERE Prefix = 'Main' OR Prefix = 'Tbl' OR Prefix = 'sql'", dbOpenForwardOnly, dbSQLPassThrough)
If Not m_rs.EOF Then
Do Until m_rs.EOF
Debug.Print m_rs!FullName
Set m_rD = p_SQLDB.OpenRecordset("SELECT [name] FROM [sys].[views] WHERE name like 'Tbl" & m_rs!FullName & "%'", dbOpenForwardOnly, dbSQLPassThrough)
If Not m_rD.EOF Then
Do Until m_rD.EOF
Debug.Print m_rD!Name
m_rD.MoveNext
Loop
End If
m_rD.Close
Loop
End If
m_rs.Close
End Function
Ich habe 2 Recordsets.
Den ersten Recordset kann ich laden.
Den zweiten kann ich nicht laden.
CODE:
Public Function loadRecordset()
Dim m_rs As Recordset
Dim m_rD As Recordset
On Error Resume Next
Set m_rs = p_SQLDB.OpenRecordset("SELECT SysTables.* FROM SysTables WHERE Prefix = 'Main' OR Prefix = 'Tbl' OR Prefix = 'sql'", dbOpenForwardOnly, dbSQLPassThrough)
If Not m_rs.EOF Then
Do Until m_rs.EOF
Debug.Print m_rs!FullName
Set m_rD = p_SQLDB.OpenRecordset("SELECT [name] FROM [sys].[views] WHERE name like 'Tbl" & m_rs!FullName & "%'", dbOpenForwardOnly, dbSQLPassThrough)
If Not m_rD.EOF Then
Do Until m_rD.EOF
Debug.Print m_rD!Name
m_rD.MoveNext
Loop
End If
m_rD.Close
Loop
End If
m_rs.Close
End Function
Comment