13,824
社区成员
发帖
与我相关
我的任务
分享
DM->Table1->Active = false;
DM->Table1->TableType = ttFoxPro;
DM->Table1->TableName = "d:\\jicai\\test.dbf";
DM->Table1->FieldDefs->Clear();
DM->Table1->FieldDefs->Add("测试字段1",ftString,13,false);
DM->Table1->FieldDefs->Add("测试字段2",ftString,13,false);
DM->Table1->CreateTable();
DM->ADOQ_Test->Close();
DM->ADOQ_Test->SQL->Clear();
DM->ADOQ_Test->SQL->Add("insert into test(测试字段1,测试字段2) select 测试字段1,测试字段2 from source_table");
DM->ADOQ_Test->ExecSQL();
Provider=MSDASQL.1;Mode=ReadWrite;Extended Properties="Driver={Microsoft Visual Foxpro Driver};UID=;PWD=;SourceDB=d:\\jicai;SourceType=DBF;Exclusive=No;BackgroundFetch=Yes;Collate=;"