¿Cómo puedo hacer un ODBC por codigo Delphi?

[Shidalis]

Disculpen de verdad que no los entienda, ya yo les habia hablado en una de las repuestas anteiores de la funcion SQLConfigDataSource(); y no se cual es la Api que usa el ODBC porque el delphi no me acepta la funcion y con respecto a lo que me explica Maeyanes de verdad no lo entiendo por favor si puedes ser mas explicito te lo agradeceria

[lucasarts_18]

Hola:

aquí hay otro enlace..

http://msdn.microsoft.com/library/de...datasource.asp

Delphi no te está tomando la función porque seguramente no la has declarado..y me gustaría ayudarte pero no soy un experto del tema, a ver si alguien del foro sabe esto...esperemos que sí y aprendemos todos..

Saludos..

[lucasarts_18]

Hola:

Aquí encontré un ejemplo que llama a una función específica del API del ODBC.

Código Delphi [-]
 
   function SQLGetInfo(hDb: Longint; InfoType: Word; Info: pointer; Len: Integer;
              var RetLen: Integer): Integer; far; external 'ODBC' index 45;

Aquí está accediendo a una DLL, especifícamente a una del ODBC..

Aquí está todo el código completo..

Código Delphi [-]
 
 {$A+,B-,D+,F-,G+,I+,K+,L+,N+,P+,Q-,R-,S+,T-,V+,W-,X+,Y+}
 {$M 20480,4096}
 unit main;
 
 { SETUP:
     1) Make sure an ODBC Data Source is configured in the BDE correctly.
     2) The program must have access to the ODBC.DLL.
     3) Configure the TDatabase Object to open an ODBC Data Source.
     4) Run program.
 }
 interface
 
 uses
   Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
   StdCtrls, DB, DBTables, Grids, DBGrids, DbiTypes, DbiErrs, DbiProcs;
 
 type
   TMainForm = class(TForm)
     ODBCDb: TDatabase;
     GetODBCInfo: TButton;
     OutMemo: TMemo;
     procedure FormCreate(Sender: TObject);
     procedure GetODBCInfoClick(Sender: TObject);
   private
     { Private declarations }
   public
     { Public declarations }
   end;
 
 var
   MainForm: TMainForm;
 
 implementation
 
 {$R *.DFM}
 
 const
   MaxLen = 100;
   { These are ODBC Constants for the SQLGetInfo function }
   SQL_DATABASE_NAME = 16;
   SQL_DRIVER_NAME = 6;
   SQL_DATA_SOURCE_NAME = 2;
   SQL_DRIVER_VER = 7;
   SQL_USER_NAME = 47;
   SQL_MAX_TABLE_NAME_LEN = 35;
   SQL_SERVER_NAME = 13;
 
 { Call the SQLGetInfo function within the ODBC.DLL.  By using the TDUMP
   utility, you can get the function names and indexes. }
 function SQLGetInfo(hDb: Longint; InfoType: Word; Info: pointer; Len: Integer;
              var RetLen: Integer): Integer; far; external 'ODBC' index 45;
 
 procedure TMainForm.FormCreate(Sender: TObject);
 begin
   { Clear the Memo and open the database. }
   OutMemo.Lines.Clear;
   ODBCDb.Open;
 end;
 
 { This function is all you need to setup ODBC calls.  The DbiGetProp
   will retrieve the Native ODBC Handle so ODBC call can be made. }
 procedure TMainForm.GetODBCInfoClick(Sender: TObject);
 var
   DBInfo: array[0..MaxLen] of char;
   NumRead: Integer;
   Len: Word;
   VersionInfo: Integer;
   hNatDb: longint; { Native Db handle that is used for the ODBC functions}
 
 begin
   OutMemo.Lines.Clear;
   { Get the Native ODBC database handle. }
   Check(DbiGetProp(hDbiObj(ODBCDb.Handle), dbNATIVEHNDL, @hNatDb,
              sizeof(hNatDb), Len));
 
   { Call the ODBC function and display the results. }
   OutMemo.Lines.Add('Native Database Handle: ' + IntToStr(hNatDb));
   SQLGetInfo(hNatDb, SQL_DATABASE_NAME, @DBInfo, MaxLen, NumRead);
   OutMemo.Lines.Add('Database Name: ' + StrPas(DBInfo));
   SQLGetInfo(hNatDb, SQL_DRIVER_NAME, @DBInfo, MaxLen, NumRead);
   OutMemo.Lines.Add('Driver Name: ' + StrPas(DBInfo));
   SQLGetInfo(hNatDb, SQL_DATA_SOURCE_NAME, @DBInfo, MaxLen, NumRead);
   OutMemo.Lines.Add('Data Source Name: ' + StrPas(DBInfo));
   SQLGetInfo(hNatDb, SQL_DRIVER_VER, @VersionInfo, sizeof(VersionInfo), NumRead);
   OutMemo.Lines.Add('Driver Version: ' + IntToStr(VersionInfo));
   SQLGetInfo(hNatDb, SQL_USER_NAME, @DBInfo, MaxLen, NumRead);
   OutMemo.Lines.Add('User Name: ' + StrPas(DBInfo));
   SQLGetInfo(hNatDb, SQL_MAX_TABLE_NAME_LEN, @VersionInfo, sizeof(VersionInfo), NumRead);
   OutMemo.Lines.Add('Maximum Table Name Length: ' + IntToStr(VersionInfo));
   SQLGetInfo(hNatDb, SQL_SERVER_NAME, @DBInfo, MaxLen, NumRead);
   OutMemo.Lines.Add('Server Name: ' + StrPas(DBInfo));
 end;
 end.

Espero que te sirva o sino a seguir averiguando...
Roman tiene razón, es una regla del foro no repetir hilos con el mismo tema, despues se hace más difícil buscar en el foro, si algún día alguien tiene un problema similar..

Saludos.

[Shidalis]

probe el codigo y cuando se ejecuta me dice no encuentra la ODBC.dll

[lucasarts_18]

Empezado por Shidalis

probe el codigo y cuando se ejecuta me dice no encuentra la ODBC.dll

El ejemplo que te envié es para una aplicación Windows de 16 bit, trata con ODBC32.DLL

Saludos.