急！程序利用修改注册表的方法，动态在ODBC中建立VFP数据库连接，怎样将数据库类型设为free data directory（自由表）？

[wending]

急！程序利用修改注册表的方法，动态在ODBC中建立VFP数据库连接，怎样将数据库类型设为free data directory（自由表）？应该有一个属性的。

[hnhb]

将字符写入注册表

var
Reg:TRegistry;
begin
Reg:=Tregistry.Create; //创建Tregistry对象的实例
Reg.Rootkey := HKEY_CURRENT_USER ; //设置根键名称
Reg.OpenKey('\Software\Microsoft\Icbc_SqlServer_Customer',True);
Reg.WriteString('UserID',txtUser.Text);
Reg.WriteString('SqlServerIP',txtIP.Text);
Reg.WriteString('SqlServerPwd',Decrypt(txtPassword.Text,1));
Reg.CloseKey;
Reg.Free; //释放对象
Close;
end;

读取键值用ReadString等等函数

[wending]

谢谢hnhb(不死鸟)，我的意思是目前已经可以在程序中，利用修改注册表的方法，动态在ODBC中建立VFP数据库连接，比如建立的数据源名为Mydbf。
但是打开ODBC的Mydbf的属性看到，数据库类型为Visual FoxPro database(.DBC),如果希望程序设置的Mydbf的数据库类型为Free Table directory，应该对注册表的什么键设置，设置成什么值？

[WWWWA]

给一思路：在HKEY＿CURRENT＿USER中SOFTWARE下的ODBC下的ODBCINI
中建MYDBF，其OUURCE　TYPE　为DBF即可，
其SOURCE　DB　即为Free Table directory

[railgunman]

我觉得直接调用WinApi函数SQLConfigDataSource更好！
配置DBF数据源如下：
L_Str_Attributes := 'DSN=Mydbf'+Chr(0)+'SourceDB=d:\data'
+Chr(0)+'SourceType=DBF'+Chr(0);
If Not SqlConfigDataSource(0,1,PChar(L_Str_Driver),PChar(L_Str_Attributes)) then
ShowMessage.MessageBox('ODBC配置错误！')

[railgunman]

我觉得直接调用WinApi函数SQLConfigDataSource更好！
配置DBF数据源如下：
L_Str_Attributes := 'DSN=Mydbf'+Chr(0)+'SourceDB=d:\data'
+Chr(0)+'SourceType=DBF'+Chr(0);
L_Str_Driver := L_Str_Driver;
If Not SqlConfigDataSource(0,1,PChar(L_Str_Driver),PChar(L_Str_Attributes)) then
ShowMessage.MessageBox('ODBC配置错误！')

[railgunman]

我觉得直接调用WinApi函数SQLConfigDataSource更好！
配置DBF数据源如下：
L_Str_Attributes := 'DSN=Mydbf'+Chr(0)+'SourceDB=d:\data'
+Chr(0)+'SourceType=DBF'+Chr(0);
L_Str_Driver := 'Microsoft Visal FoxPro-Treiber';
If Not SqlConfigDataSource(0,1,PChar(L_Str_Driver),PChar(L_Str_Attributes)) then
ShowMessage.MessageBox('ODBC配置错误！')