1,应当是
try ADOConnection.Connected := True;
在Delphi中用try..except有时候无法捕捉到一些异常,如DBEdit,设置MaskEidt为日期格式,在编辑框中输入完全的非法日期格式时。
2,好象没有
3,ADOC.GetTableNames(ComboBox1.Items, False);//第二个参数设为True则导出所有数据表
4,uses Registry;var
reg: TRegistry;
begin
try
reg := TRegistry.Create;
try
reg.RootKey := HKEY_CLASSES_ROOT;
reg.OpenKey('*\Shell\Sure', true);
reg.WriteString('', 'Open with SureMp6');
finally
reg.Free;
end;
end;
try ADOConnection.Connected := True;
在Delphi中用try..except有时候无法捕捉到一些异常,如DBEdit,设置MaskEidt为日期格式,在编辑框中输入完全的非法日期格式时。
2,好象没有
3,ADOC.GetTableNames(ComboBox1.Items, False);//第二个参数设为True则导出所有数据表
4,uses Registry;var
reg: TRegistry;
begin
try
reg := TRegistry.Create;
try
reg.RootKey := HKEY_CLASSES_ROOT;
reg.OpenKey('*\Shell\Sure', true);
reg.WriteString('', 'Open with SureMp6');
finally
reg.Free;
end;
end;
我要得到的是数据表的结构,即表中各字段的属性列表。
我已经得到了数据表的列表,在COMBOBOX中列出,然后选择数据表名,列出对应的表结构。
20点已奉上!谢!