Suchabfrage von mehreren DB !

[Stefan Falz]

<%
' --- Suche in verschiedenen Tabellen (strTablename)
Private Function Search(strTablename)
strSQL = "Select * FROM " & strTablename    rs.open strSQL, conn, 3, 3
' --- Rückgabewert True, wenn Ergebnisse gefunden wurden, False, wenn kein Ergebnis vorhanden ist.
    If Not rs.EOF Then
        Search = True
        Else
            Search = False
    End if
    rs.Close
End Function
%>

Du rufst nun einfach die Funktion mehrfach mit den gewünschten Tabellennamen auf:
<%
' --- Boolescher Wert, um den Rückgabewert der Funktion Search abzufangen.
Dim blnSearch
    blnSearch = False
' --- Array von 3 oder mehr ??? Tabellen anzugeben, die nacheinander abgefragt werden sollen.
Dim aryTables(3)
    aryTables(0) = "Tabelle1"
    aryTables(1) = "Tabelle2"
    aryTables(2) = "Tabelle3"

' --- Wiederhole, solange der Wert von blnSearch = False und der Index von aryTables nicht überschritten ist.
Do While Not blnSearch And i <= UBound(aryTables)
' --- Aufruf der Funktion Search.
    blnSearch = Search(aryTables(i))
    i = i + 1
Loop

If blnSearch Then
' --- Wenn blnSearch = True (DAtensätze gefunden), dann gib diese Sätze mit der Prozedur PrintRecords(Tabellenname) aus.
    Call PrintRecords(aryTables(i - 1))
End if

Private Sub PrintRecords(strTablename)
' --- Ausgabe der Datensätze aus der ermittelten Tabelle, die als erstes mind. 1 Satz zurückgibt.
   rs.open "SELECT * FROM " & strTablename
   Do while Not rs.EOF
»»    ' --- Ausgabe des Datensatzes.
      ...
      rs.Move Next
   Loop
   rs.Close
End Sub

...
%>

Hi !

Danke für die schnelle Antwort, jedoch
habe ich probleme mit dem lesen deines Sourcecodes.

Irgendwie schnalle ich das nicht :)

cu
Marcus

Hallo Marcus,

ich probier mal, Kommentare in den Quelltxet einzufügen. Hoffe, damit kommst Du klar.