16. juli 1999 - 18:38Der 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 :)
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
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.
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.