[aspdedatabase] AW: Ist eine Tabelle vorhanden

Hotel Andre Tue, 12 Nov 2002 00:30:11 -0800

Hallo Mansur,

.definedSize geht nur bei ADODB -> AdSchemaTables


hab hier noch etwas


<%
dim cat, db_table, db_field, database

if Request.Form.count = 0 then
        FormularAnzeigen
else
        db_field = Request.Form("db_field")
        db_table = Request.Form("db_table")
        database = Request.Form("Database")
        set cat = Server.CreateObject("ADOX.Catalog")
        cat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security
Info=False;Data Source='" & Server.Mappath("../db/" & database & ".mdb") &
"'"
        dim i, j, k

        for i = 0 to cat.TABLEs.Count - 1
                If Lcase(cat.TABLEs(i).Name) = db_table then
                        Response.Write "<br>Datenbank: " & database & "<br>Tabelle " &
cat.TABLEs(i).Name
                        for j = 0 to cat.TABLEs(i).Columns.Count - 1
                                If Lcase(cat.TABLEs(i).Columns(j).name) = db_field then
                                        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
                                end if
                        next
                end if
        next
set cat = nothing
FormularAnzeigen
end if
sub FormularAnzeigen
%>
<hr>
<div align=center>
<FORM method=post>
<TABLE cellspacing="0" cellpadding="0" border="1">
<TR>
    <TD>Bitte geben Sie die zu bearbeitende Datenbank ein</TD>
    <TD><input type=text size=20 maxlength=20 name="database" value=""></TD>
</TR>
<TR>
    <TD>Bitte geben Sie einen Feldnamen ein</TD>
    <TD><input type=text size=20 maxlength=20 name="db_field" value=""></TD>
</TR>
<TR>
    <TD>Bitte geben Sie die abzufragende Tabelle ein</TD>
    <TD><input type=text size=20 maxlength=20 name="db_table" value=""></TD>
</TR>
<TR>
    <TD><input type=reset></TD>
    <TD><input type=submit></TD>
</TR>
</TABLE>
</FORM>
</div>
<%
end Sub
%>
</body>
</html>


Mit freundlichen Gr��en
Hotel Andr�


Andr� Scheres
http://hotelandre.de
http://partnerhotels.com

-----Urspr�ngliche Nachricht-----
Von: Mansur Esmann [OM] [mailto:office@;offensiv-medien.de]
Gesendet: Dienstag, 12. November 2002 09:11
An: ASP Datenbankprogrammierung
Betreff: [aspdedatabase] AW: Ist eine Tabelle vorhanden


Hallo Andr�,

ist .definedSize eine property von ADOX?
Hatte sowas in der Doku nicht gefunden.

Ich werde es heute einfach mal probieren.

Jetzt muss ich erst mal ein bisserl Geld verdienen :-)


Gru� Mansur


> Hallo Mansur,
>
> eine komplette Liste kann ich Dir nicht geben
>
> aber die Gr��e des Feldes kann Du �ber .definedSize abfragen
>
> function GetFieldType(nr)
>       ' liefert Kennbuchstaben f�r Feld-Datentyp zur�ck
>       select case nr
>                       ' Strings
>                       case 8, 12, 129, 200, 201, 130, 202, 203
>                               prefix = "S_"
>                       ' Datum
>                       case 7, 133, 134, 135
>                               prefix = "D_"
>                       ' Boolean
>                       case 11
>                               prefix = "B_"
>                       ' Spezial
>                       case 9, 10, 13, 128, 132, 204, 205
>                               prefix = "U_"
>                       ' numerisch
>                       case else
>                               prefix = "N_"
>               end select
>
>       GetFieldType = prefix
> end function
>
>
> Mit freundlichen Gr��en
> Hotel Andr�
>
>
> Andr� Scheres
> http://hotelandre.de
> http://partnerhotels.com
>
> Hallo,
>
> danke Euch ....
> ich habe aber jetzt ADOX.Catalog verwendet, was scheinbar l�uft.
> (Oder gibts das bei der Verwendung unter Access nicht?)
>
> Mein n�chstes problem ....
>
> Ich lese die Tabellenstruktur aus der DB_a und drop'e die selbe Tabelle in
> DB_b
> So nun da ich die Struktur der DB_a habe m�chte ich die selbe Spalten in
> DB_b anlegen.
>
> Das klappt "ansich" auch. Ich lasse mir hierzu ein Create Table -String
> zusammenstellen.
>
> Nun wenn ich aber �ber ADOX.Catalog die ".type" abfrage, bekomme
> ich Nummern
> zur�ck, die den Feldtyp representieren.
>
> Dazu habe ich eine Funktion gebaut, die dann anhand der Nummer den Feldtyp
> zur�ckgibt.
> a.) Hat wer eine vollst�ndige Liste der Feldtypen und ihrer Nummern
> b.) Ich wei� noch immer nicht was die Feldgr��e eines jeweiligen
> Feldesist!?
> (bspw. myField VARCHAR (??was??) )
>
> Gru� Mansur
>
>


| [aspdedatabase] als [EMAIL PROTECTED] subscribed
| http://www.aspgerman.com/archiv/aspdedatabase/ = Listenarchiv
| Sie k�nnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdedatabase.asp


| [aspdedatabase] als [email protected] subscribed
| http://www.aspgerman.com/archiv/aspdedatabase/ = Listenarchiv
| Sie k�nnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdedatabase.asp

[aspdedatabase] AW: Ist eine Tabelle vorhanden

Antwort per Email an