liste over tables!

Se min ASP Access 2 MySQL converter .. den viser hvordan, og det kan nemt bruges i VB...

http://www.tdaugaard.dk/x/mdb2mysql.as_

(husk underscoren)

nogen bedre forslag?

gider virkeligt ikke til at sætte mig ind i din code......og bagefter omskrive til vb.....

Fill me in

    Set Conn = CreateObject(\"ADODB.Connection\")
    Set Rs = CreateObject(\"ADODB.Recordset\")
               
    Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=C:\\dindb.mdb\"
           
    Set Rs = Conn.OpenSchema(adSchemaColumns)

    If Not (Rs.BOF Or Rs.EOF) Then
        Do
            strTable = Rs(\"TABLE_NAME\")
            Rs.MoveNext
        Loop Until (Rs.EOF Or Rs.BOF)
    End If
   
    Set Rs = Nothing
    Conn.Close: Set Conn = Nothing

    Const adSchemaColumns = 4

    Set Conn = CreateObject(\"ADODB.Connection\")
    Set Rs = CreateObject(\"ADODB.Recordset\")
               
    Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=C:\\dindb.mdb\"
           
    Set Rs = Conn.OpenSchema(adSchemaColumns)

    If Not (Rs.BOF Or Rs.EOF) Then
        Do
            strTable = Rs(\"TABLE_NAME\")
            Rs.MoveNext
        Loop Until (Rs.EOF Or Rs.BOF)
    End If
   
    Set Rs = Nothing
    Conn.Close: Set Conn = Nothin

hmm..r visdst lidt mere kryptisk end så..det er ikke en access db....hvad det er..det ved jeg ikke..og ham der har lavet det har gjort ALT for at skjule det....

bare conn.open resulterer i en \"Katastrofal Fejl\"

okay ..

efter en genstart dur det nu...

nu får jeg en..KATASTROFAL FEJL IGEN!

men før det gav

    Set Rs = objConn.OpenSchema(adSchemaColumns)

noget med at det understøtter provideren ikke...

det er openaccess isql

OpenAccess iSQL ?

ja...sagde jo det var ret så kryptisk..har snart prøvet ALT!

det enest ejeg har er en dsn..jeg kan ikke engang redigere den.........

Jeg vil lige hilse og sige at det her virker nok kun på Access... bl.a. MySQL fatter det ikke ..

ahhh...dats prolly y.....

fuck det r en skummel database jeg har her..

Måske kan du modificere dette til dit brug... (det er ikke ADO, så måske). Eksempel tyvstjålet fra en bog...

Private Sub Command1_Click()
Dim myDatabase As Database
Dim myTable As TableDef        \'this will hold the tableDef(inition)
Dim myFields As Fields
Dim myField As Field

Set myDatabase = OpenDatabase(\"C:\\BegDB\\BIBLIO.MDB\")

For Each myTable In myDatabase.TableDefs    \'dots to get the tableDefs
    List1.AddItem myTable.Name & \" has \" & myTable.Fields.Count _
            & \" fields\"
Next

End Sub

Glemte at sige at projektet kræver en form med en command1 knap og en list1 listbox. References: tilføj Microsoft DA0 3.51 Object Library (eller 3.6 hvis du har det).

opendatabase kan ikke bruges da det eneste jeg har er en dns....

har givet op....

Tøsedreng :)

jeg sir dig..det var umuligt..+jeg fandt en anden løsning

Faggot... Dig og Chris = alike *S*

En allike er med 2 l\'er  ;-)

Hvad var så løsningen blazer ??

det er det da ikke  a - like

ikke  al- like

En allike er en fugl ;-)
ÆV - hva\' - Moses er ved at varme op til weekenden !!!

løsning og løsning....brugte det oprindeligt client program og søgte med en wildcart og valgte exporter som txt.........

Noses is a funny guy