Hej!

Jag håller på med ett litet projekt och jag skulle vilja göra följande:
1. Skapa en .mdb databas i "runtime" läge.
2. Köra ett SQL uttryck på den samma.

Hur gör jag detta utan att redan behöva ha databasen i ODBC?

Mvh Robin

Hej
Det bästa är att du skapar din DataBas i VisData.exe
som finns med i din VB 6 mapp.

Har du tillgång till MS Access97 eller 2000 så är det bästa
alternativet.
mvh
Sven

Vad jag vill göra är att skapa databasen i mitt program...
Användaren ska få döpa och spara databasen...

Hittade koden jag ville ha i Tips.

Dim ws As Workspace
Dim db As Database

Set ws = DBEngine.Workspaces(0)
'substitute Password with the desired password
Set db = ws.CreateDatabase("test.mdb", dbLangGeneral & ";pwd=Password")


Tack Pelle!!

Mvh Robin

Här kommer ett till exempel.

Använder MDAC 2,5
Skapa först en referens till (Microsoft ADO Ext.2,5 for DDL And Security)


Dim cat As New ADOX.Catalog
Dim tbl As New ADOX.Table
Dim col As New ADOX.Column
Dim filename As String

filename = "C:\Archive.mdb"

'skapar databasen till en fil
cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & filename

'Öppnar Databasen.
cat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & filename


With tbl
'skapar tabellen
.Name = "Kunder" 'tabellnamn
Set .ParentCatalog = cat


'Skappar kolumnerna
.Columns.Append "ID", adInteger

.Columns.Append "Namn", adVarWChar, 200 'Skapar kolumnerna med datatypen string, 200 tecken som maxlängd
.Columns("Namn").Properties("Jet OLEDB:Allow Zero Length") = True 'Tillåter nollängd

.Columns.Append "NR", adInteger 'Skapar en kolumnerna av typen integer.
.Columns("NR").Properties("Jet OLEDB:Allow Zero Length") = True 'Tillåter nollängd


End With
cat.Tables.Append tbl
Set cat = Nothing