Hallo,<br>
ich möchte eine Access97 DB aufbauen und habe erhebliche Probleme beim Setzen der Properties. <br>
Verwendet wird JET OLEDB 4.
Der Code sieht ungefähr so aus:
<pre>
ConStr:=Create_Con_Str(DBN);
aCatalog:=CoCatalog.Create;
sDS:=aCatalog.Create(ConStr);
aTable:=CoTable.Create;
aTable.ParentCatalog:=aCatalog;
aTable.Name:='Ausgaben';
aCatalog.Tables.Append(aTable);
aTable.Columns.Append('Datum',adDate,0);
aTable.Columns.Append('SHOP',adVarWChar, 30);
aTable.Columns.Append('MARKER',adVarWChar, 30);
aColumn := aTable.Columns.Item['MARKER'] as _Column;
v:=true;
Propies := aColumn.Properties;
Prop:=Propies.Item['Nullable'];
Prop.Set_Value(v);<br>
</pre>
v ist OLEVariant. Die Fehlermeldung kommt auf der Zeile Prop.Set_Value(v) und lautet:<br>
Project raised exception class EOLEException with message "Errors occured". Process stopped ...<br>
Irgendeine Erklärung?<br>
Im voraus Danke Hendrik
ich möchte eine Access97 DB aufbauen und habe erhebliche Probleme beim Setzen der Properties. <br>
Verwendet wird JET OLEDB 4.
Der Code sieht ungefähr so aus:
<pre>
ConStr:=Create_Con_Str(DBN);
aCatalog:=CoCatalog.Create;
sDS:=aCatalog.Create(ConStr);
aTable:=CoTable.Create;
aTable.ParentCatalog:=aCatalog;
aTable.Name:='Ausgaben';
aCatalog.Tables.Append(aTable);
aTable.Columns.Append('Datum',adDate,0);
aTable.Columns.Append('SHOP',adVarWChar, 30);
aTable.Columns.Append('MARKER',adVarWChar, 30);
aColumn := aTable.Columns.Item['MARKER'] as _Column;
v:=true;
Propies := aColumn.Properties;
Prop:=Propies.Item['Nullable'];
Prop.Set_Value(v);<br>
</pre>
v ist OLEVariant. Die Fehlermeldung kommt auf der Zeile Prop.Set_Value(v) und lautet:<br>
Project raised exception class EOLEException with message "Errors occured". Process stopped ...<br>
Irgendeine Erklärung?<br>
Im voraus Danke Hendrik
Comment