Avatar billede long Nybegynder
16. juli 1999 - 18:38 Der er 3 kommentarer og
1 løsning

Hvordan får jeg ASP til at fortælle mig hvilke tabeller der er i basen ?

Jeg vil gerne lave en lille ASP sjover, der kan tage hver tabel fra en Access database, og smide indholdet af hver tabel over i en given mySQL tabel.
Det skal være således at man selv kan bestemme fra og til kolonne.

Hvordan får jeg ASP til at fortælle mig hvilke tabeller der er i basen ?
Og også gerne hvilke Kolonner der findes ?

Jeg lægger gerne source koden herud når jeg er færdig...
Lyder det ikke som en sjov ting at lave fredag aften :)
Avatar billede bkp Nybegynder
16. juli 1999 - 23:57 #1
Kan det lade sig gøre, så ser jeg den også gerne!
Avatar billede bkp Nybegynder
17. juli 1999 - 00:06 #2
Jeg ved hvordan man gør i visualbasic, men jeg tvivler på at det virker i asp, men jeg kan lige finde koden!

Den er her (så kan du selv se om det virker i asp!
Sub Tabel(rListObject As Object, DBase As Database)
  On Error GoTo TRefErr
  Dim tdf As TableDef
  Dim qdf As QueryDef
  Dim sTmp As String
  Dim i As Integer
  Screen.MousePointer = vbHourglass

  'if this is called to refresh the database
  'window, bypass the old method of
  'filling a listbox with the table names
  If rListObject Is Nothing Then GoTo LoadTreeView
  Dim gdbcurrentdb As Database
  Set gdbcurrentdb = DBase

  rListObject.Clear
    'don't list system tables
    For Each tdf In gdbcurrentdb.TableDefs
      If (tdf.Attributes And dbSystemObject) = 0 Then
        If (tdf.Attributes And dbAttachedTable) = dbAttachedTable Then
          If Left(tdf.Connect, 1) = ";" Then
            'must be a Microsoft Access attached table
            rListObject.AddItem tdf.Name & " -> Microsoft Access"
          Else
            'must be an ISAM attached table
            rListObject.AddItem tdf.Name & " -> " & Left(tdf.Connect, InStr(tdf.Connect, ";") - 1)
          End If
        ElseIf (tdf.Attributes And dbAttachedODBC) = dbAttachedODBC Then
          rListObject.AddItem tdf.Name & " -> ODBC"
        Else
          rListObject.AddItem tdf.Name
        End If
      End If
    Next

  'select the 1st item if there is any
  If rListObject.ListCount > 0 Then
    rListObject.ListIndex = 0
  End If
 
LoadTreeView:
  'frmDatabase.LoadDatabase
 
  Screen.MousePointer = vbDefault
  Exit Sub

TRefErr:
'  ShowError
End Sub

GOD Fornøjelse :-)
Avatar billede laust Nybegynder
19. juli 1999 - 09:16 #3
Well, jeg ved ikke noget om hvordan man får at vide hvilke tabeller der er i db'en, men hvad angår navnene på deres kolonner, så burde du kunne bruge "recordset.fields(i).name" hvor "i" er tabellens indeksværdi.
Avatar billede laust Nybegynder
19. juli 1999 - 09:17 #4
Undskyld, kolonnens indexværdi (kolonne 1, 2, 3, etc.) selvfølgelig
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester