oprette ny database

Du kan bruge følgende kode til at udføre det du ønsker. Du skal blot huske at sætte en reference til "Microsoft ADO Ext.2.7 for dll and security"

    Dim ad As New ADOX.Catalog
    ad.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\huji.mdb"
   
VH CK

Nu har jeg fundet ud af det. Men nedenstående virker ikke med access2000 baser. Hvad gør jeg da ?

Dim rs As Recordset
Dim myStr As String

myStr = "CREATE TABLE Tablename (navn Text, alder Number);"
    Set ws = DBEngine.Workspaces(0)
    Set db = ws.OpenDatabase(App.Path & "\ordre.mdb")
    db.Execute (myStr)

Den kode jeg gav dig, den virker både til 2000 og XP. Hvis det skal være til 97, så skal det være 3.51 istedet for 4.0 i provider egenskaben.

VH CK

Jeg er muligvis dum. Men jeg får en fejl når jeg putter din kode ind.

Dim ad As New ADOX.Catalog giver følgende fejl:

user-defined type not defined

Som jeg skrev i indlægget til at starte med, så skal du sætte en reference til "Microsoft ADO Ext.2.7 for dll and security"

Det gør du i Project menuen.

VH CK

nåh ok... kigger lige påed...

Nu har jeg gjort som du skrev.  Nedenstående er koden. SP.mdb er en access2000 base og den

.mdb filen bliver oprettet men der bliver da ikke oprettet en tabel deri...

Dim rs As Recordset
Dim myStr As String
Dim ad As New ADOX.Catalog

ad.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\sp.mdb"


Tablename = Format(Now, "hhmmss")

myStr = "CREATE TABLE " & Tablename & " (navn Text, alder Number);"
    Set ws = DBEngine.Workspaces(0)
    Set db = ws.OpenDatabase(App.Path & "\sp.mdb")
    db.Execute (myStr)

Nej det var heller ikke kravet jvf. det oprindelige spørgsmål. Men hefter er det blot at lave en ado connection til den nyoprettet database og lave sine tabeller deri.

jeg stiller sørme ikke krav men formulerer mig nok forkert :)

Selve .mdb filen har jeg. Det jeg skal, er at oprette en tabel deri...

men en ADO conn er altså ikke som jeg har lavet tidligere ?

Hvis jeg benytter ovenstående kan jeg godt lave .mdb filen. Men når jeg forsøger at lave tabellen, får jeg at vide at det er et ukendt databaseformat...

Det er iorden, jag havde min tanker et andet sted :-) Jeg kan se at du faktisk nævner at du vil oprette en tabel, det havde jeg ikke set. Derfor er det nok påå sin plads at det er mig der undskylder lidt :-)

Jo du kan sådan set godt lave den som du har gjort, men det er med DAO som er den gamle version af ADO. Det kan give lidt prob. med nyere versioner som du også har erfaret. Jeg vender lige tilbage med hvordan ellers gør i ADo.

vH CK

Fjong :)

Følgende kode gør hvad du vil have.

Private Sub Command1_Click()
    Dim conn As ADODB.Connection
    Set conn = New ADODB.Connection
   
    conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Microsoft Visual Studio\VB98\NWIND.MDB"
    conn.Open
    conn.Execute "CREATE TABLE Tablename (navn Text, alder Number);"
    conn.Close
    Set conn = Nothing
End Sub

Du skal blot sætte en reference til "Microsoft ActiveX data Object 2.7" eller lavere versioner.

VH CK

Ok. Fino og tak :)