title image


Smiley Nimm mal ein paar der nicht genutzten...
Verweise heraus, damit die Verweise eindeutig werden. Anbei ein Beispiel, welches mit VB.net 2005 bei mir funktioniert mit einem kleinen Überblick der bei mir gesetzten Verweise:



Imports ADOX



Public Class Form1





Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim cat As Catalog = New Catalog()



cat.Create("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\NewMDB.mdb;Jet OLEDB:Engine Type=5")



cat = Nothing



End Sub



Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim conn As New ADODB.Connection

Dim cat1 As New ADOX.Catalog()

Dim objtable As New ADOX.Table



conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\NewMDB.mdb"



conn.Open()



cat1.ActiveConnection = conn



objtable.Name = "Irgendwas"



objtable.Columns.Append("Nachname", DataTypeEnum.adVarWChar, 50)

objtable.Columns.Append("Vorname", DataTypeEnum.adVarWChar, 30)



cat1.Tables.Append(objtable)



conn.Close()



MessageBox.Show("Fertig!")





End Sub

End Class

Gruß aus Ostfriesland. Möge Tux mit Dir sein!

ff


Proggst du schon .net oder quälst du dich noch mit VB6?



geschrieben von

Anhang
Bild 10236 zu Artikel 494813

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: