X
xiao-mei
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure tform1.process(filename:string;directory:string);
var
cat:OleVariant;
dbname:string;
begin
cat:=CreateOleObject('ADOX.Catalog');
cat.Create('Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+dbname);
//-----------动态创建数据表格-------
adoquryclass.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+dbname;
adoquryclass.Close;
adoquryclass.SQL.Text := 'Create Table cdma' +
'(' +
'DATE1 char(2) null,' +
'TIME1 char(2) null,' +
'MemoTitle char(100) not null,' +
'MemoText TEXT,' +
'MemoPublic BIT DEFAULT 0,' + //缺省是不公开
'MemoLastModifyTime DATETIME' +
')';
adoquryclass.ExecSQL;
end;
运行以后,打开数据库DATE1和TIME1的属性‘允许空字符串’那一栏还是‘否’。
怎么不是“是”:允许为空字符串?
请大家帮忙解答一下。
var
cat:OleVariant;
dbname:string;
begin
cat:=CreateOleObject('ADOX.Catalog');
cat.Create('Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+dbname);
//-----------动态创建数据表格-------
adoquryclass.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+dbname;
adoquryclass.Close;
adoquryclass.SQL.Text := 'Create Table cdma' +
'(' +
'DATE1 char(2) null,' +
'TIME1 char(2) null,' +
'MemoTitle char(100) not null,' +
'MemoText TEXT,' +
'MemoPublic BIT DEFAULT 0,' + //缺省是不公开
'MemoLastModifyTime DATETIME' +
')';
adoquryclass.ExecSQL;
end;
运行以后,打开数据库DATE1和TIME1的属性‘允许空字符串’那一栏还是‘否’。
怎么不是“是”:允许为空字符串?
请大家帮忙解答一下。