Tweet
hallo,
wie ist es mir möglich standardmäßig im textfeld die leere zeichenfolge auf "ja" zu setzen.
wie ist es mir möglich standardmäßig im textfeld die leere zeichenfolge auf "ja" zu setzen.
-
-
Hallo,
wenn die ACCESS-Datenbank (MDB-Datei) über ADOX angelegt wird, kann dort die Eigenschaft <b>'Jet OLEDB:Allow Zero Length</b> gesetzt werden - siehe folgendes Beispiel:
<pre><b>uses</b> ADOX_TLB;
<br>
<b>resourcestring</b>
cCONNECTSTRING = 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=';
<br>
<b>procedure</b> TFormMain.ButtonCreateClick(Sender: TObject);
<b>var</b>
aCatalog : _Catalog;
aTable : _Table;
aColumn : _Column;
sDBPath : String;
sDS : String;
<b>begin</b>
MemoLog.Lines.Clear;
sDBPath := EditMDB.Text;
<b>if</b> FileExists(sDBPath) <b>then</b>
<b>begin</b>
DeleteFile(sDBPath);
MemoLog.Lines.Add(Format('Datenbankdatei %s gelöscht',[sDBPath]));
<b>end</b>;
aCatalog := CoCatalog.Create;
MemoLog.Lines.Add('Catalog...');
sDS := aCatalog.Create(Format('%s%s',[cCONNECTSTRING, sDBPath]));
MemoLog.Lines.Add(sDS);
aTable := CoTable.Create;
MemoLog.Lines.Add('Table...');
aTable.ParentCatalog := aCatalog;
aTable.Name := 'Kunden';
aCatalog.Tables.Append(aTable);
aColumn := CoColumn.Create;
MemoLog.Lines.Add('Column...');
<b>with</b> aColumn <b>do</b>
<b>begin</b>
Name := 'KdnName';
Type_ := adVarWChar;
ParentCatalog := aCatalog;
Attributes := adColNullable;
aColumn.DefinedSize := 30;
Properties['Jet OLEDB:Allow Zero Length'].Value := True;
Properties['Description'].Value := 'Name des Kunden'
<b>end</b>;
aTable.Columns.Append(aColumn.Name, adVarWChar, 0);
MemoLog.Lines.Add('Spalte 1 hinzugefügt...');
// Alternative 2: Spalte direkt deklarieren
aTable.Columns.Append('eMail', adVarWChar, 20);
MemoLog.Lines.Add('Spalte 2 hinzugefügt...');
aTable.Columns.Refresh;
MemoLog.Lines.Add('.... Fertig!');
<b>end</b>;</pre>
Comment