title image


Smiley ADO statt DAO
Hi,das was Carsta beschiebn hat benutzt DAO möchest Du das ganze über ADO abfragen gehtdas wie folgtDim cnn As ADODB.Connection Dim cat As ADOX.Catalog Dim xtable As ADOX.Table Dim xcol As ADOX.Column Dim test As String Set cnn = New Connection With cnn .ConnectionString = "C:\KASSE\KASSE.MDB" .CursorLocation = adUseClient .Provider = "MICROSOFT.JET.OLEDB.4.0" .Mode = adModeRead .Open End With Set cat = New Catalog cat.ActiveConnection = cnn Set xtable = cat.Tables("BHDZZ") Set xcol = xtable.Columns("WGTXT") test = xcol.Attributeswobei "Attributes" angibt was das Feld darfStandardwert=0Attributes 1 = Feld hat Fixlänge (z.B. bei Long)Attributes 2 = Nullwerte erlaubtd.h. Du liest das Attribut aus und ist der Rückgabewert >1 dann sind nullwerte erlaubt bei GrußMarkus

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: