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 :)
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
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.