[aspdecoffeehouse] Re: AW: Re: AW: Re: DB-Format abfragen

Hotel Andr� Wed, 21 Nov 2001 03:05:39 -0800

Hallo Mansur und alle anderen,
vielleicht ganz n�tzlich f�r einfache Abfragen, Inserts und updates
Bei Select wird auch der feldtype ausgegeben


<!-- METADATA TYPE="TYPELIB" UUID="00000200-0000-0010-8000-00AA006D2EA4" -->

<%

option explicit
response.expiresabsolute=dateadd("d",-1,now)
response.buffer=true
Server.ScriptTimeout = 9000

%> <! DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.1//EN">

<HTML>
<HEAD>
 <META HTTP-EQUIV="CONTENT-TYPE"CONTENT="TEXT/HTML;CHARSET=ISO-8859-1">
<STYLE>
<!--
.blautext { font-family: Arial, Helvetica; font-size: 12px; color: #0a0b68; 
TEXT-DECORATION: none; }
.tablerow1 { font-family: arial, verdana, helvetica; text-decoration: none; font-size: 
12px; color: #0a0b68; }
.tablerow2 { font-family: arial, verdana, helvetica; text-decoration: none; font-size: 
12px; color: #880000; }
.tablerow3 { font-family: arial, verdana, helvetica; text-decoration: none; font-size: 
12px; color: #996600; }
.nav2 { font-weight: none; font-size: 14px; font-family: "Arial"; color: #ffffff; 
background: #880000; border: ridge "#AAAAAA" 6px }
-->
</STYLE>
 <TITLE>UniFormular</TITLE>
</HEAD>
<BODY BGCOLOR='#FFFFFF' TEXT='#0A0B68'>

<% 
Dim db_table, database, sql, hotels, id, count, value, db_field1,db_idnr, n, 
bundesland, field, fehler, ok
ok = true
count = 0
If Request.QueryString.Count > 0 then
for each field in Request.QueryString
If field = "" then
fehler = "<p class='blautext'><dd><dl><li>Bitte Feld: " & field & " 
ausf�llen</li></dl></dd></p>"
ok = false
end if
Select case Lcase(field)
case "database"
database = Request.QueryString(field)
case "sql"
sql = Request.QueryString("sql")
end select
next
If ok = false then
Response.Write fehler
Formularanzeigen
else
Anweisung database, sql, count
end if
else
Formularanzeigen
end if


'------------------------------  Anweisung  ------------

sub anweisung(database, sql, count)

Dim rs, db, feld

response.Write "<p class='nav2'>Ihre Anweisung: " & sql & "</p>"

Set db = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
db.Open "DBQ=" & Server.Mappath("../db/" & database & ".mdb") & ";Driver={Microsoft 
Access Driver (*.mdb)};"
Set rs = db.Execute(sql)
'rs.open(sql), db, AdOpenForwardOnly, AdLockReadOnly, AdCmdText

Select case Lcase(left(sql,1))
case "s"
recsetAnzeigen rs, count
case "u"
response.Write "<p class='blautext'>Ihre Daten wurden erneuert</p>"
case "i"
response.Write "<p class='blautext'>Ihre Daten wurden eingef�gt</p>"

end select

db.close
set rs = nothing
set db = nothing


end sub

'---------------------------- Recordset anzeigen --------

sub recsetAnzeigen(rs, count)
Dim Feld

If rs.eof or rs.bof then
response.Write "Keine Datens�tze gefunden"
else
rs.MoveFirst
do while not rs.eof
response.Write "<p class='blautext'>"
for each feld in rs.fields
response.Write feld.name & ": " & feld.value & " <font color='black'>(Feldtyp: " & 
feld.type & ")</font><br>"
next
response.Write "</p><hr>"

count = count + 1
rs.MoveNext
loop
response.Write "<FONT COLOR='RED'>" & count & "</FONT><BR>"
rs.close
end if

end sub


'------------------------------  EingabeFormular  ----------

sub formularAnzeigen

Dim RequestArray, field
RequestArray = Array("database","sql")

Response.Write "<form method='get'><p class='blautext' align='center'>" & vbcrlf
Response.Write "Bitte geben Sie die erforderlichen Daten ein" & vbcrlf
Response.Write "<table border='1' class='blautext' align='center'>"

for each field in RequestArray
response.Write "<tr>" & vbcrlf & "<td>" & field & vbcrlf & "</td><td>" & vbcrlf
response.Write "<input type='text' size='30' style='width=500px' value='' name='" & 
field & "'></td>" & vbcrlf & "</tr>"
next
response.Write "<tr>" & vbcrlf & "<td colspan='2' align='center'>" & vbcrlf
response.Write "<input  type='submit' value='Datenbank bearbeiten'>" & vbcrlf
response.Write "</td></tr>" & vbcrlf
Response.Write "</table></form>"


end sub




'-----------------    Function f�r einen richtigen Datenbankeintrag    mit 
InsertString    ------------------

function Convert(text)
Convert = "'" & Replace(Text, "'", "''") & "'"
end function


%> 

</BODY>
</HTML>



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 11:38 AM
Subject: [aspdecoffeehouse] AW: Re: AW: Re: DB-Format abfragen


| Hallo Andr� und Alexander,
| 
| Beide Beispiele f�hren zu dem Ziel,
| Jedoch sind beides Beispiele um die gesammte Datenbank nach allen Tabellen
| und allen Feldern abzufragen.
| 
| Ich brauche jedoch nur den Typ eines Feldes aus einer Tabelle.
| 
| Ich denke das ist dann doch ein wenig heftig wenn ich alle Tabellen
| durchgehe und in Folge alle Felder meiner Tabelle, wenn ich nur ein einziges
| Feld brauche....
| 
| Gibt es mit Euren Beispielen keine M�glichkeit eine bestimmte Tabelle und
| idealerweise ein bestimmtes Feld zu ermitteln?
| 
| Mansur
| 
| > -----Urspr�ngliche Nachricht-----
| > Von: Hotel Andr� [mailto:[EMAIL PROTECTED]]
| > Gesendet: Mittwoch, 21. November 2001 11:15
| > An: AspGerman Kaffeehaus
| > Betreff: [aspdecoffeehouse] Re: AW: Re: DB-Format abfragen
| >
| >
| > Hallo Mansur,
| > <!--#include file = "ADOVBS.INC" -->
| > <%
| > 'option explicit
| > dim cat: set cat = Server.CreateObject("ADOX.Catalog")
| > cat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Persist
| > Security Info=False;Data Source='C:/inetpub/wwwroot/db/neu.mdb'"
| >
| > dim i, j, k
| > for i = 0 to cat.Tables.Count - 1
| > Response.Write "<br>Tabelle " & cat.Tables(i).Name
| > for j = 0 to cat.Tables(i).Columns.Count - 1
| > Response.Write "<br>&nbsp;&nbsp;&nbsp;Feld " &
| > cat.Tables(i).Columns(j).Name
| > for k = 0 to cat.Tables(i).Columns(j).Properties.Count - 1
| > Response.Write
| > "<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Eigenschaft " &
| > cat.Tables(i).Columns(j).Properties(k).Name & ": " &
| > cat.Tables(i).Columns(j).Properties(k).Value
| > next
| > next
| > next
| > set cat = 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
| >
| 
| 
| | [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] Re: AW: Re: AW: Re: DB-Format abfragen

Antwort per Email an