Hi Leute

ich habe ein für mich als Anfänger ein riesen Problem. Ich müste zur Laufzeit eine Datenbank erstellen und diese mit Tabellen füllen. Ich hab keine Ahnung ob das geht bzw wie ich das machen sollte. Vieleicht kann mir einer von euch helfen.

Was ich auch bräuchte wären Infos ob man auf einen SQL Server eine Datenbank zur Laufzeit erstellen kann wobei dies aber nicht so wichtig im Moment wäre.

Mit besten Dank
Reinhard

Eigentlich recht einfach. Zum SQL Server verbinden und einen SQL Command absetzen. Dieser lautet

Code :

1	CREATE DATABASE mydatabase;

Und damti ist die Datenbank erstellt Mit den benötigten Tabellen musst du das gleiche machen. Sollte dies für die gleiche Struktur öfter gemacht werden müssen, dann kannst du dir ja ein Skript generieren, welches dann ausgeführt wird.

danke erstmal und sorry aber sql bin ich erst dabei mir näher anzusehen. Mein Problem liegt nur darin das ich zur Laufzeit eine Lokale Datenbank erzeugen muss z.B. Access. Hab schon die gesammte Onlinehilfe durchgeforstet und nix gefunden.

Was jetzt? SQL Server oder Access?

das mit dem sql server möchte ich später mal versuchen aber wirklich dringend ist die accessdb die lokal von meinen Projekt beim ersten start erzeugt werden soll wenn die datei nicht vorhanden ist.

Das projekt eignet sich auch für eine Netzwerkanwendung aber da will ich zuerst noch sattelfester werden in vb.net

In der ersten Post hast es wunderbar hinbekommen ... die Groß- und Kleinschreibung.

Code csharp:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

using System; using ADOX;   namespace ConsoleApplication1 {     class Class1     {         [STAThread]         static void Main(string[] args)         {             ADOX.CatalogClass cat = new ADOX.CatalogClass();               cat.Create("Provider=Microsoft.Jet.OLEDB.4.0;" +                    "Data Source=D:\\AccessDB\\NewMDB.mdb;" +                    "Jet OLEDB:Engine Type=5");               Console.WriteLine("Database Created Successfully");               cat = null;           }     } }

Pfad musst du noch anpassen und die die entsprechende Library zu den Referenzen hinzufügen.

kann ich das in visual basic übernehmen?

Kannst du dich an die Groß- und Kleinschreibung halten?

Sorry

Ja kann ich! Wuste nicht das die Groß und Kleinschreibung hier so streng gehandhabt wird.
Aber mit Rechtschreibfehlern kann ich nicht versprechen das ich keine mache. *gg*

Also irgendwie bin ich jetzt genausoweit wie vorher. Wenn ich versuche das in VB.net zu übernehmen bekomme ich nur lauter Fehler.
Gibt es soetwas auch für VB? Ich habe leider keine Ahnung von C# und ausserdem habe ich den größten Teil von meinen Projekt schon fertig.

Code :

1 2 3

Dim cat as new ADOX.CatalogClass() cat.Create("Provider=Microsoft.Jet.OLEDB.4.0;DataSource=C:\NewMDB.mdb;Jet OLEDB:Engine Type=5") cat = Nothing

So in etwa. Und ADOX musst du als Referenz einbinden.

Danke für deine Antworten nur eine Frage hab ich noch. Wie kann ich ADOX einbinden als Referenz? Kannst du mir sagen in welcher Datei ADOX integriert ist?

Im Solution Explorer eine rechte Maustaste auf References und dann "Add References ...".

Danach wählst du die zweite Lasche "COM". Hier dann "Microsoft ADO Ext. 2.8 for DDL and Security".

Das sollte es gewesen sein. Hast du ein deutsches Visual Studio, musst du die deutschen Gegenstücke zu meinen Angaben finden.

Im Menü: Projekt / Verweis hinzufügen..
Und dann wie in der englischen Version zweite Lasche COM.

Zitat von Norbert Eder

Code :

1 2 3

Dim cat as new ADOX.CatalogClass() cat.Create("Provider=Microsoft.Jet.OLEDB.4.0;DataSource=C:\NewMDB.mdb;Jet OLEDB:Engine Type=5") cat = Nothing

So in etwa. Und ADOX musst du als Referenz einbinden.

Wer sich um Groß- und Kleinschreibung im Forum schert und Newbies für Fragen rund macht, sollte auch bei seinen eigenen Postings genau hinschauen:

In VB.NET geht es so:

Dim CAT As New ADOX.Catalog
Dim strCNN$ = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=xyz.mdb; " & _
"Jet OLEDB:Engine Type=5; " & _
"Mode=" & ADODB.ConnectModeEnum.adModeShareExclusive

CAT.Create(strCNN)
CAT = Nothing