Ich hatte kürzlich hier im Forum angefragt, wie man mit ADO die Eigenschaften von

Access Feldern einstellen kann. Ich hatte 2 Tips bekommen, die aber bei mir nicht

so richtig funktioniert haben. Hier habe ich nun abschliesend eine Lösung zu 

diesem Problem anzubieten. Beispiel: "Leere Zeichenfolge" = JA

Ansonsten danke nochmals für Eure Hilfe.



Dim conn As Connection

Dim feld2 As ADOX.Column

Dim cat As ADOX.Catalog

Dim tabelle1 As Table



Private Sub Command1_Click()



Set conn = New Connection

conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _

                        "Data Source=H:test.mdb;Persist" & _

                        "Security Info=False"

conn.Open



Set cat = New ADOX.Catalog

Set cat.ActiveConnection = conn

Set tabelle1 = New Table

Set feld2 = New ADOX.Column

Set tabelle1 = cat.Tables("Tabelle1")

Set feld2 = tabelle1.Columns("feld3")

feld2.Properties("Jet OLEDB:Allow Zero Length").Value = False



'Clean Up

conn.Close

Set cat = Nothing

Set feld2 = Nothing

Set tabelle1 = Nothing

Set conn = Nothing



End Sub







 
     Code eingefügt mit Syntaxhighlighter 1.15