Hallo Mansur,
kleiner Nachtrag:
database = "DEINE_DB"
'---------------------- Tabellen in der DB auflisten -------------------------------
Set db = Server.CreateObject("ADODB.Connection")
db.Open "DBQ=" & Server.Mappath("../" & database & ".mdb") & ";Driver={Microsoft
Access Driver (*.mdb)};"
set rs = db.OpenSchema(adSchemaTables)
do while not rs.EOF
if left(rs.Fields("TABLE_NAME"),4)="MSys" then
rs.MoveNext
else
HTML "<a href='auslesen3.asp?ID=" & rs.Fields("TABLE_NAME") & "'>" &
rs.Fields("TABLE_NAME")& "</a><br>"
rs.MoveNext
end if
loop
rs.close
set rs = nothing
'------------------- tabelle aus der Datenbank l�schen (SUB) ---------------------
sub drop_Table(tabelle)
Set db = Server.CreateObject("ADODB.Connection")
db.Open "DBQ=" & Server.Mappath("../" & database & ".mdb") & ";Driver={Microsoft
Access Driver (*.mdb)};"
sql = "DROP {TABLE " &tabelle & "}"
set db = db.Execute(sql)
set db = nothing
html "<p>Table deleted</p>"
end sub
'----------------------- tabellen mit Spalteneigenschaften und auf wunsch mit
eintr�gen listen --------------------
set db = Server.CreateObject("ADODB.Connection")
db.Open "DBQ=" & Server.Mappath("../" & database & ".mdb") & ";Driver={Microsoft
Access Driver (*.mdb)};"
SET tablelist = DB.OpenSchema(adSchemaTables)
tablelist.movefirst
While not TableList.EOF
tabellenname = TableList("TABLE_NAME")
html "<p class='navTD4'>" & tabellenname & "</p>"
If left(Lcase(tabellenname),2) = "ms" then
'
else
sql = "select * from " & tabellenname
Set rs = db.execute(sql)
If rs.eof or rs.bof then
html "<p class='wilmatext'>Keine DATENS�TZE gefunden</p>"
else
rs.MoveFirst
html "<p class='blautext'>"
for each field in rs.fields
html "<font color='red'>" & field.name & "</font><br>"
html "<font color='black'>" & field.type & "</font><br>"
If field.name = "kundenemail" then
suchfeld = field.name
sql_such = "select " & suchfeld & " from " & tabellenname & " where " & suchfeld & " =
'[EMAIL PROTECTED]'"
set rs_such = db.Execute(sql_such)
If rs_such.eof or rs_such.bof then
html "<font color='green'>Keinen Eintrag gefunden </font><br>"
else
rs_such.MoveFirst
do while not rs_such.eof or rs_such.bof
html rs.fields("kundenemail").value & "<br>"
rs_such.MoveNext
loop
end if
else
'
end if
set rs_such = nothing
next
end if
set rs = nothing
end if
response.Write "</p>"
TableList.moveNext
Wend
tablelist.close
db.close
set tablelist = nothing
set db = nothing
Mit freundlichen Gr��en
Andr� Scheres
http://hotelandre.de
http://partnerhotels.com
----- Original Message -----
From: "Offensiv-Medien [Mansur Esmann]" <[EMAIL PROTECTED]>
To: "AspGerman Kaffeehaus" <[EMAIL PROTECTED]>
Sent: Wednesday, November 21, 2001 10:45 AM
Subject: [aspdecoffeehouse] AW: Re: DB-Format abfragen
| Hallo,
|
| ich hab was gefunden, aber ist da noch die Frage ob ich dieses
|
| Set recordset = connection.OpenSchema (QueryType, Criteria, SchemaID)
|
| ...auch auf ein einzelnes Feld anwenden kann..
|
| Und so ganz verstehe ich das ding auch nicht....--> Die Parameter
|
| Mansur
|
| > -----Urspr�ngliche Nachricht-----
| > Von: Alexander Zeitler [mailto:[EMAIL PROTECTED]]
| > Gesendet: Mittwoch, 21. November 2001 10:35
| > An: AspGerman Kaffeehaus
| > Betreff: [aspdecoffeehouse] Re: DB-Format abfragen
| >
| >
| > Hallo,
| >
| > > Hallo,
| > > set rs = JobConn.Execute("select " & FieldTable & " from " &
| > checkTable)
| > > rs.MoveFirst
| > > for each field in rs.fields
| > >
| > >
| >
| > mit Openschema von ADO (ich such mal, ob ich die Info's auf die
| > Schnelle finde)
| >
| > Gruss
| >
| > Alex
| > www.aspintranet.de
| >
| >
| > | [aspdecoffeehouse] als [EMAIL PROTECTED] subscribed
| > | http://www.aspgerman.com/archiv/aspdecoffeehouse/ = Listenarchiv
| > | Sie k�nnen sich unter folgender URL an- und abmelden:
| > | http://www.aspgerman.com/aspgerman/listen/anmelden/aspdecoffeehouse.asp
| >
|
|
| | [aspdecoffeehouse] als [EMAIL PROTECTED] subscribed
| | http://www.aspgerman.com/archiv/aspdecoffeehouse/ = Listenarchiv
| | Sie k�nnen sich unter folgender URL an- und abmelden:
| | http://www.aspgerman.com/aspgerman/listen/anmelden/aspdecoffeehouse.asp
| [aspdecoffeehouse] als [email protected] subscribed
| http://www.aspgerman.com/archiv/aspdecoffeehouse/ = Listenarchiv
| Sie k�nnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdecoffeehouse.asp
