Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Conexión con bases de datos (https://www.clubdelphi.com/foros/forumdisplay.php?f=2)
-   -   Conectar SQLite con Delphi XE (https://www.clubdelphi.com/foros/showthread.php?t=80398)

albertougo 25-09-2012 01:55:46

Conectar SQLite con Delphi XE
 
Hola amigos:
Por favor necesito conectar Delphi XE con SQLite 3.0 y si es Free, mejor.
Escucho sugerencias...
Gracias.

ElMug 25-09-2012 02:49:45

Segun este wrapper sirve de Delphi-7 al XE, y es gratuito:

http://www.itwriting.com/blog/?page_id=659

albertougo 25-09-2012 18:50:53

Gracias ElMug. Lo pruebo y te cuento.

albertougo 28-09-2012 17:32:05

Probe el wrapper.
En el ejemplo que ellos dan, funciona bárbaro.
Pero cuando creo un nuevo proyecto, enlazo las librerías y trato de crear el objeto database:

sldb := TSQLiteDatabase.Create(slDBPath);

Cuando corre el programa se pierde y no continua su ejecución al llegar a esa sentencia.
Ni siquiera muestra el form en pantalla.
Quizás mis conocimientos limitados en debug Delphi no me permiten rastrear donde está el error y/o problema.

Por que será ? Si en el ejemplo del wrapper funciona. Y en mi proyecto no.
Si alguien me explica, agradeceré.

Casimiro Notevi 28-09-2012 17:37:26

Pues explica qué haces, cómo, por qué, pon tu código, etc. no podemos adivinar ;)

albertougo 28-09-2012 17:51:36

Pues muy simple.
Abro un nuevo proyecto, un form, pongo un botón, y un control edit para ver mi registro, si se abre la DB.
En el Click del boton este código:
Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var        // Boton Conectar
    AdrDBpath: string;
    AdrDb: TSQLiteDatabase;
begin
      AdrDBPath := 'C:\sqlite\dist2013.db';
      
      AdrDb := TSQLiteDatabase.Create(AdrDBpath);
end;
Nada mas. Las uses son las mismas que en el programa de ejemplo.
Incluso el proyecto es igual al ejemplo de ellos:
Código Delphi [-]
program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  SQLite3 in 'SQLite3.pas',
  SQLiteTable3 in 'SQLiteTable3.pas';

{$R *.res}

begin
  {$IF RTLVersion >= 18}
   ReportMemoryLeaksOnShutdown := true;
  {$IFEND}
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

Cuando hago Run el programa se compila pien pero no muestra el form.
Y si ejecuto el .exe me da un error que no encuentra la MSVCR110.DLL

Casimiro Notevi 28-09-2012 18:31:22

Recuerda poner los tags al código fuente, ejemplo:



Gracias :)

ElMug 29-09-2012 00:53:56

Diria que este archivo: MSVCR110.DLL debe de estar en el mismo folder donde este el .exe (resultado de la compilacion de tu programa).

Trata a ver si es eso.


La franja horaria es GMT +2. Ahora son las 13:12:14.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi