ado连接dbf新问题。不能指定目录！急求答案！

[rocsoar]

使用ado连接dbf，在第一个button事件中，可以读取指定目录下的dbf文件，但在第二个button事件中，要在另外一个目录下生成新的dbf文件时，指定的defaultdatabase不起作用，生成的dbf文件跑到第一个button事件中指定的目录中去了。为什么？？？？？

部分源代码如下

[rocsoar]

void __fastcall TForm1::Button1Click(TObject *Sender)
{
AnsiString CntStr;
if(OpenDialog1->Execute())
{
CntStr = "Provider=MSDASQL.1;Persist Security Info=False;";
CntStr += "Extended Properties=\"Driver={Microsoft Visual FoxPro Driver};";
CntStr += "UID=;SourceDB=C:\\;SourceType=DBF;Exclusive=No;BackgroundFetch=Yes;";
CntStr += "Collate=Machine;Null=Yes;Deleted=Yes;\"";
dbfconn->ConnectionString = CntStr;
dbfconn->DefaultDatabase = ExtractFilePath(OpenDialog1->FileName);
dbfconn->LoginPrompt = false;
dbfconn->Open();
dbfq->Connection = dbfconn;
AnsiString sql = "select * from " + ExtractFileName(OpenDialog1->FileName);
dbfq->SQL->Clear();
dbfq->SQL->Add(sql);
dbfq->Open();
ShowMessage(dbfq->RecordCount);
dbfq->Close();
dbfconn->Close();
dbfconn->ConnectionString = "";
}

}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button2Click(TObject *Sender)
{
AnsiString CntStr;
CntStr = "Provider=MSDASQL.1;Persist Security Info=False;";
CntStr += "Extended Properties=\"Driver={Microsoft Visual FoxPro Driver};";
CntStr += "UID=;SourceDB=C:\\;SourceType=DBF;Exclusive=No;BackgroundFetch=Yes;";
CntStr += "Collate=Machine;Null=Yes;Deleted=Yes;\"";
dbfconn->ConnectionString = CntStr;
dbfconn->DefaultDatabase = "D:\\";
dbfconn->LoginPrompt = false;
dbfconn->Open();
dbfq->Connection = dbfconn;
AnsiString sql = "create table testdbf(aaa char(2),bbb number(10,2))";
dbfq->SQL->Clear();
dbfq->SQL->Add(sql);
dbfq->ExecSQL();
ShowMessage("hi");
dbfq->Close();
dbfconn->Close();
dbfconn->ConnectionString = "";
}
//---------------------------------------------------------------------------

[rocsoar]

另外，在有些机器上生成的DBF文件名自动截取成了6位，这又是为什么呢？

[rocsoar]

怎么用savefile？？？

[rocsoar]

晕了，怎么没人关心啊。

[lishimin00]

TStringList * sl = new TStringList();
sl->SaveToFile("d:\\shuju.dbf");
你这样试试看吧

[rocsoar]

晕倒，这样也行？

[rocsoar]

谁来帮帮忙啊？

[lishimin00]

你试一下用SAVEFILE来保存你这个表

[zjt621]

你可以试下用两个控件，看可不可以。

[rocsoar]

还是找不到解决方法啊。