如何用语句修改ACCESS2000字段允许空字符串?
解决方案 »
- VC++6.0源码改成delphi源码,急呀!
- 自写delphi基类(属性是packed record),继承基类之后。属性没法用,出现‘Left side cannot be assigned to’
- 各位大侠帮个忙,有分送啦.
- 怎样操作fsMDIChild和fsMDIForm!
- 循环添加一批记录进数据库该怎么写呀。
- 打开文件为什么出错?
- MD5就那么难吗?
- 哪里有InstallShield高版本下载
- 如何用DELPHI来获得网卡的MAC地址?
- webbrowser如何得到新开窗口的地址,在OpenNewWindow里要怎么写
- access violation错误
- 大家伙谈谈用XE3后的感受,!!!!
ADOX_TLB;procedure TForm1.Button1Click(Sender: TObject);
var
DS: string;
Catalog: _Catalog;
DBName : string;
begin
DBName := 'c:\test\test.mdb';
Catalog := CoCatalog.Create;
DS := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + DBName + ';Jet OLEDB:Engine Type=5';
Catalog.Set_ActiveConnection(DS);
Catalog.Tables['MyTable'].Columns['MyField'].Properties['Jet OLEDB:Allow Zero Length'].Value := True;
Catalog.Tables['MyTable'].Columns['MyField'].Properties['Nullable'].Value := True;end;