DBF建立问题(20分)

path := 'E:/';

ADOQuery1.close;

ADOQuery1.ConnectionString :=
'Provider=MSDASQL.1;' +
'Extended Properties="CollatingSequence=ASCII;' +
'DBQ=' + path + ';' +
'DefaultDir=' + path +';' +
'Deleted=0;' +
'Driver={Driver do Microsoft dBase (*.dbf)};' +
'FIL=dBase 5.0;"';

ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Text :=
'create table a.dbf (ID char(18),ks Char(10),amo numeric(8,2), name char(8))';

ADOQuery1.ExecSQL;


这样写总出现create table语句中有错误,但把amo numeric(8,2)去掉就没问题..请问是什么原因?

那就去掉啊

我就是要加才这么写

'Driver={Driver do Microsoft dBase (*.dbf)};' +
如果这句改成：'Driver={Microsoft FoxPro VFP Driver (*.dbf)};
那么connectionstring要怎么写？请知道的高手帮帮忙！

amo是不是关键字呀，你换成amo_1试一试。

听说是{Driver do Microsoft dBase (*.dbf)}不能建numeric的，但现在 要是改为：
'Driver={Microsoft FoxPro VFP Driver (*.dbf)};我却不知全句connectionstring怎么写！

procedure TForm1.Button1Click(Sender: TObject);
var
DBPath: String;
begin
DBPath:=ExtractFilePath(Paramstr (0));
ADOConnection1.LoginPrompt := false;
ADOConnection1.ConnectionString:='Provider=MSDASQL.1;'
+'Persist Security Info=False;'
+'Extended Properties='
+'"Driver={Microsoft Visual FoxPro Driver};'
+'UID=;'
+'SourceDB='+ DBPath + ';'
+'SourceType=DBF;'
+'Exclusive=No;'
+'BackgroundFetch=Yes;'
+'Collate=Machine;'
+'Null=Yes;'
+'Deleted=Yes;"';
AdoConnection1.Open;
AdoQuery1.Sql.Text := 'create table "aaa.dbf" (aaa char(2),bbb number(8,2),rdate date)';
AdoQuery1.ExecSql;
end;

to zjkzs
AdoConnection1.Open;
执行到这里时,程序出错:[ODBC驱动程序管理器]驱动程序不支持此功能

谢谢!最近才上网...