BDE中怎样才能打开ODBC中的名为dbase files数据源呢?

Question

按将该数据源定位到了一个具体的目录也不行!为什么呢?

Answer 1

我看了一下，好象你说的那个ODBC是专供Dbase的.dbf文件操作的，Delphi可以不通过ODBC而直接操作.dbf文件。你可以拉一下TTable控件下来，在TableType里选ttDbase，然后指定文件名即可！Dbase是桌面文件型数据库，所以很好操作的！

Answer 2

是你说的那个!
不过我是想知道怎么才能把这个ODBC配置好,通过BDE用.
直接用我知道的!

Answer 3

在odbc中的system dsn配置好,bde中就有这个数据库别名

Answer 4

试一下这个
var tempreg:tregistry;
    bytearray:array[0..0] of byte;
begin
  tempreg:=tregistry.create;
    with tempreg do
    begin
      rootkey:=hkey_local_machine;
      if openkey('software\odbc\odbc.ini\ODBC DATA SOURCES',true) then
          begin
           writestring('MyODBC','Microsoft Access Driver (*.mdb)');
           end
        else
          begin
            showmessage('increase odbc sources failed');
            exit;
            end;
        closekey;
      if openkey('software\odbc\odbc.ini\myodbc',true) then
        begin
         writestring('dbq',pchar(extractfilepath(application.ExeName)+'test.mdb'));//你的ODBC的路径
         writestring('description','new data sources');
         try
          writestring('driver','c:\windows\system32\odbcjt32.dll');
         except
          writestring('driver','c:\windows\system\odbcjt32.dll');
         end;
         writeinteger('driverid',25);
         writestring('fil','Ms Access;');
         writeinteger('safetransaction',0);
         writestring('uid','abc');
         writestring('PWD','123');
         bytearray[0]:=0;
         writebinarydata('exclusive',bytearray,1);
         writebinarydata('readonly',bytearray,1);
       end
      else
        begin
          showmessage('increase datasources failed');
           exit;
         end;
      closekey;
      if openkey('software\odbc\odbc.ini\myodbc\engines\jet',true) then
      begin
        writestring('implicitcommitsync','yes');
        writeinteger('maxbuffersize',512);
        writeinteger('pagetimeout',20);
        writeinteger('threads',5);
        writestring('usercommitsync','yes');
       end
     else
        begin
          showmessage('increase datasources failed');
          exit;
         end;
     closekey;
     showmessage('increase odbc datasources success');
    end;end;