Tables

Hvor skal du bruge det?

Jeg har en .mdb fil med flere tables som jeg ønsker listet. DB en indeholder lige nu 6 tables kaldet menu1 , menu2 etc. Via brugerinterfacet skal det være muligt for brugeren at oprette nye samt slette tables i dbén. Det skal også være muligt at få listet de tables i db\'en som der er. Mit spørgsmål er så, om dette er muligt

I \'gammeldags\' DAO:

Option Compare Database
Option Explicit

Private Sub Form_Open(Cancel As Integer)
Dim db As Database
    Dim tdf As TableDef
    Set db = CurrentDb
    With db
        For Each tdf In .TableDefs
            If InStr(1, tdf.Name, \"MSys\") < 1 Then
                Liste0.RowSource = Liste0.RowSource & tdf.Name & \";\"
            End If
        Next tdf
    End With
End Sub

Private Sub Liste0_Click()
    DoCmd.OpenTable (Liste0.Value)
End Sub

En form med en liste - \'list0\'
Husk at sætte referencen til DAO.

Niels

Hvis du vil kode en ny tabel eks. ved tryk på en kanp, kan det laves både i DAO/ADO eller ved at opbygge en SQL.
Du kan evt have en \'skjult\' tabel du kopiere.

Men ét problem af gangen ;o)

Niels

Hi , great og thanks, guld værd :)

Fandt iøvrigt en anden smart lille ting der kan gøre det samme:

        <%
DataString = \"PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};dbq=dbsti\"
Set Connection = Server.CreateObject(\"ADODB.Connection\")
Connection.Open DataString
Set adoxConn = Server.CreateObject(\"adox.catalog\")
adoxConn.activeConnection = Connection
Set Table = adoxConn.Tables
For Each col In Table
      If UCase(col.Type)=\"TABLE\" Then
            %>
          <%= col.Name %><BR>
          <%
    End If
Next

Set Table = Nothing
Set adoxConn = Nothing
Connection.Close
Set Connection = Nothing
%>