Suchabfrage von mehreren DB !

[Stefan Falz]

Ich möchte das erst in der Tabelle POSTEINGANG nach
dem gesuchten Wort gesucht wird, falls es nicht gefunden
wird soll in der Tabelle POSTAUSGANG gesucht werden.

Ich wollte das mit GOTO ... lösen leider funktioniert
das nicht.
Hat jemand einen andere Lösung ?

Hallo,

probiers doch einfach mal einer Funktion:

<%
Private Function Search(strTablename)
strSQL = "Select * FROM " & strTablename    rs.open strSQL, conn, 3, 3
    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:
<%
Dim blnSearch
    blnSearch = False
Dim aryTables(3)
    aryTables(0) = "Tabelle1"
    aryTables(1) = "Tabelle2"
    aryTables(2) = "Tabelle3"

Do While Not blnSearch And i <= UBound(aryTables)
    blnSearch = Search(aryTables(i))
    i = i + 1
Loop

If blnSearch Then
    Call PrintRecords(aryTables(i - 1))
End if

Private Sub PrintRecords(strTablename)
   rs.open "SELECT * FROM " & strTablename
   Do while Not rs.EOF
      ...
      rs.Move Next
   Loop
   rs.Close
End Sub

...
%>

Ich hoffe, daß ich jetzt auf die schnelle keinen Tippfehler drinhabe, aber das sollte so eigentlich gehen.

Tscjau, Stefan