Liste over tabeller i en access

Ja du kan download ASPADMIN v.2 herfra:
http://www.netsrac.dk/netsrac-dk/

Hentet et andet sted. Har ikke afprøvet det.

<%
Dim rs, Conn, DSN, strTables, arTables

Const adSchemaTables = 20

Set rs = Server.CreateObject("ADODB.Recordset")
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("database.mdb")
Conn.Open DSN

Set rs = Conn.OpenSchema(adSchemaTables)

Do Until rs.EOF
    If rs("TABLE_TYPE") = "TABLE" Then
        strTables = strTables & rs("TABLE_NAME") & ","
    End If
rs.MoveNext
Loop

If Len(strTables) >= 1 Then
    strTables = Left(strTables, Len(strTables)-1)
End If

arTables = Split(strTables, ",")

For t = 0 To UBound(arTables)
    Response.Write arTables(t) & "<br>"
Next

%>

http://activedeveloper.dk/aspdigital/debugging/adodbstatus.asp

<%
//DB connect;

adSchemaTables=20;
rs=Server.CreateObject("ADODB.Recordset");
rs=conn.OpenSchema(adSchemaTables);
while(!rs.EOF){
    if(rs.Fields("TABLE_TYPE")=="TABLE"){
        Response.Write("<option value=\""+rs.Fields("TABLE_NAME")+"\">"+rs.Fields("TABLE_NAME")+"</option>");
        }
    rs.MoveNext();
    }
%>

netro det virker, ved du så hvordan man henter Feltnavn og felttype frem fra en tabel?

Prøv følgende:

<%
Dim rs, Conn, DSN, strTables, arTables

Const adSchemaTables = 20

Set rs = Server.CreateObject("ADODB.Recordset")
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("database.mdb")
Conn.Open DSN

Set rs = Conn.OpenSchema(adSchemaTables)

Do Until rs.EOF
    If rs("TABLE_TYPE") = "TABLE" Then
        strTables = strTables & rs("TABLE_NAME") & ","
    End If
rs.MoveNext
Loop

If Len(strTables) >= 1 Then
    strTables = Left(strTables, Len(strTables)-1)
End If

arTables = Split(strTables, ",")

For t = 0 To UBound(arTables)
    Response.Write arTables(t) & "<br>"
    Set rs = Conn.Execute("Select * From " & arTables(t))
    For Each Felt In rs.Fields
      Response.Write "&nbsp;&nbsp;- " & Felt.Name & "<br>"
    Next   
Next
%>

Jeg er lidt usikker mht. kolonnetype, men det skader jo aldrig at prøve med:

Response.Write "&nbsp;&nbsp;- " & Felt.Name & " (" & Felt.Type & ")<br>"

id(3)det siger den med (" & Felt.Type & ") og det der (3) giver ingen mening, så vil ikke ikke være mega flink at finde en der udsriver felttype så er du kanon og så får du pointene :)

Efter hvad jeg umiddelbart kan se, repræsenterer talværdierne følgende:

1) TEXTYPETEXT
2) TEXTYPEINTEGER
3) TEXTYPEFLOAT

Får du noget ud af at skrive Felt.Description i øvrigt?

I kan se typerne her:
http://www.w3schools.com/ado/prop_type.asp


Eller bruge denne funktion til at konvertere tallet til noget tekst.
    Function datatyper(dtype, charmax, nummax, numscale)
        If dtype = 0 Then tmp = "Empty"
        If dtype = 16 Then tmp = "TinyInt(" & nummax & ")"
        If dtype = 2 Then tmp = "SmallInt(" & nummax & ")"
        If dtype = 3 Then tmp = "Integer(" & nummax & ")"
        If dtype = 20 Then tmp = "BigInt(" & nummax & ")"
        If dtype = 17 Then tmp = "UnsignedTinyInt(" & nummax & ")"
        If dtype = 18 Then tmp = "UnsignedSmallInt(" & nummax & ")"
        If dtype = 19 Then tmp = "UnsignedInt(" & nummax & ")"
        If dtype = 21 Then tmp = "UnsignedBigInt(" & nummax & ")"
        If dtype = 4 Then tmp = "Single"
        If dtype = 5 Then tmp = "Double(" & nummax & "," & numscale & ")"
        If dtype = 6 Then tmp = "Currency(" & nummax & "," & numscale & ")"
        If dtype = 14 Then tmp = "Decimal(" & nummax & "," & numscale & ")"
        If dtype = 131 Then tmp = "Numeric(" & nummax & "," & numscale & ")"
        If dtype = 11 Then tmp = "Boolean"
        If dtype = 132 Then tmp = "UserDefined"
        If dtype = 12 Then tmp = "Variant"
        If dtype = 9 Then tmp = "Dispatch"
        If dtype = 13 Then tmp = "Unknown"
        If dtype = 72 Then tmp = "Guid"
        If dtype = 7 Then tmp = "Date"
        If dtype = 133 Then tmp = "DBDate"
        If dtype = 134 Then tmp = "DBTime"
        If dtype = 135 Then tmp = "Timestamp"
        If dtype = 8 Then tmp = "BSTR"
        If dtype = 129 Then tmp = "Char(" & charmax & ")"
        If dtype = 200 Then tmp = "VarChar(" & charmax & ")"
        If dtype = 201 Then tmp = "LongVarChar(" & charmax & ")"
        If dtype = 130 Then
            If int(charmax) <= 255 Then
                tmp = "VarChar(" & charmax & ")"
            Else
                tmp = "Longtext"           
            End if
        End if
        If dtype = 202 Then
            If int(charmax) <= 255 Then
                tmp = "VarChar(" & charmax & ")"
            Else
                tmp = "Longtext"           
            End if
        End if
        If dtype = 203 Then
            If int(charmax) <= 255 Then
                tmp = "LongVarChar(" & charmax & ")"
            Else
                tmp = "Longtext"           
            End if
        End if
        If dtype = 128 Then tmp = "Binary"
        If dtype = 204 Then tmp = "VarBinary"
        If dtype = 205 Then tmp = "LongVarBinary"
        datatyper = tmp
    End Function

Ja, de skal jo bare læres udenad ;o)

Men nu har du så fået svar på spørgsmålet om typerne.

jeg har lagt den inde i For t =
men så kommer denne fejl Der er en syntaksfejl
/aspmyadmin/Felt.asp, line 36
Function datatyper(dtype, charmax, nummax, numscale)


Browsertype:

Du skal kalde den med det rigtige antal parameter som er:

datatyper(Felt.Type, Felt.DefinedSize, Felt.Precision, Felt.NumericScale)

det hjælper jo ikke her for det er syntaks fejl i kan lige få hele kode:

<%
Dim rs, Conn, DSN, strTables, arTables

Const adSchemaTables = 20

Set rs = Server.CreateObject("ADODB.Recordset")
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("database.mdb")
Conn.Open DSN

Set rs = Conn.OpenSchema(adSchemaTables)

Do Until rs.EOF
    If rs("TABLE_TYPE") = "TABLE" Then
        strTables = strTables & rs("TABLE_NAME") & ","
    End If
rs.MoveNext
Loop

If Len(strTables) >= 1 Then
    strTables = Left(strTables, Len(strTables)-1)
End If

arTables = Split(strTables, ",")



For t = 0 To UBound(arTables)
    Response.Write arTables(t) & "<br>"
    Set rs = Conn.Execute("Select * From " & arTables(t))
    For Each Felt In rs.Fields

dtype =  Felt.Type

    Function datatyper(Felt.Type, Felt.DefinedSize, Felt.Precision, Felt.NumericScale)
        If dtype = 0 Then tmp = "Empty"
        If dtype = 16 Then tmp = "TinyInt(" & nummax & ")"
        If dtype = 2 Then tmp = "SmallInt(" & nummax & ")"
        If dtype = 3 Then tmp = "Integer(" & nummax & ")"
        If dtype = 20 Then tmp = "BigInt(" & nummax & ")"
        If dtype = 17 Then tmp = "UnsignedTinyInt(" & nummax & ")"
        If dtype = 18 Then tmp = "UnsignedSmallInt(" & nummax & ")"
        If dtype = 19 Then tmp = "UnsignedInt(" & nummax & ")"
        If dtype = 21 Then tmp = "UnsignedBigInt(" & nummax & ")"
        If dtype = 4 Then tmp = "Single"
        If dtype = 5 Then tmp = "Double(" & nummax & "," & numscale & ")"
        If dtype = 6 Then tmp = "Currency(" & nummax & "," & numscale & ")"
        If dtype = 14 Then tmp = "Decimal(" & nummax & "," & numscale & ")"
        If dtype = 131 Then tmp = "Numeric(" & nummax & "," & numscale & ")"
        If dtype = 11 Then tmp = "Boolean"
        If dtype = 132 Then tmp = "UserDefined"
        If dtype = 12 Then tmp = "Variant"
        If dtype = 9 Then tmp = "Dispatch"
        If dtype = 13 Then tmp = "Unknown"
        If dtype = 72 Then tmp = "Guid"
        If dtype = 7 Then tmp = "Date"
        If dtype = 133 Then tmp = "DBDate"
        If dtype = 134 Then tmp = "DBTime"
        If dtype = 135 Then tmp = "Timestamp"
        If dtype = 8 Then tmp = "BSTR"
        If dtype = 129 Then tmp = "Char(" & charmax & ")"
        If dtype = 200 Then tmp = "VarChar(" & charmax & ")"
        If dtype = 201 Then tmp = "LongVarChar(" & charmax & ")"
        If dtype = 130 Then
            If int(charmax) <= 255 Then
                tmp = "VarChar(" & charmax & ")"
            Else
                tmp = "Longtext"           
            End if
        End if
        If dtype = 202 Then
            If int(charmax) <= 255 Then
                tmp = "VarChar(" & charmax & ")"
            Else
                tmp = "Longtext"           
            End if
        End if
        If dtype = 203 Then
            If int(charmax) <= 255 Then
                tmp = "LongVarChar(" & charmax & ")"
            Else
                tmp = "Longtext"           
            End if
        End if
        If dtype = 128 Then tmp = "Binary"
        If dtype = 204 Then tmp = "VarBinary"
        If dtype = 205 Then tmp = "LongVarBinary"
        datatyper = tmp

    End Function

    Response.Write "&nbsp;&nbsp;- " & Felt.Name & "(" & tmp & ")<br>"
    Next 
Next

%>

ok det ikke helt sådan det hænger sammen. Du skal ligge fnuntionen ind i eksvis bunden af din fil osså lave dit loop som deette


For t = 0 To UBound(arTables)
    Response.Write arTables(t) & "<br>"
    Set rs = Conn.Execute("Select * From " & arTables(t))
    For Each Felt In rs.Fields

      dtype =  Felt.Type
      tmp = datatyper(Felt.Type, Felt.DefinedSize, Felt.Precision, Felt.NumericScale)
      Response.Write "&nbsp;&nbsp;- " & Felt.Name & "(" & tmp & ")<br>"
    Next 




Efter dit </html> tag kan du ligge selv funktionen:
</html>
<%
    Function datatyper(dtype, charmax, nummax, numscale)
        If dtype = 0 Then tmp = "Empty"
        If dtype = 16 Then tmp = "TinyInt(" & nummax & ")"
        If dtype = 2 Then tmp = "SmallInt(" & nummax & ")"
..
..
..
        If dtype = 205 Then tmp = "LongVarBinary"
        datatyper = tmp
    End Function

Tegnet ')' var ventet
/aspmyadmin/Felt.asp, line 40, column 23
Function datatyper(Felt.Type, Felt.DefinedSize, Felt.Precision, Felt.NumericScale)
----------------------^

Hvis det er nede i selv fuktion skal det være den linje være sådan her:

Function datatyper(dtype, charmax, nummax, numscale)

TUSINDE tak det virker :D

Det er godt :)

Sig til hvis du vil have en bid af kagen, eagleeye, for dit bidrag til typerne.