Motorola MC3090 + sqlite
lazarus / 35-Windows CE

----------------------------------------------------------------------
MrGruffi · 2018-06-29 13:07

Hello,
I'm trying connect to SQLite database for WinCE, compiles the program
in Typhon.
I downloaded the dll library for wince but when i run the program I
get message "TApplication.HandleException Connect1 : no such table:
nuser".
When I run the same program on windows 32 bit work fine.
Could you help  me whot I do wrong.
Here is my source code:
Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i unit
Unit1; {$mode objfpc}{$H+} interface uses  Classes, SysUtils,
sqlite3conn, sqldblib, sqldb, FileUtil, Forms,  Controls, Graphics,
Dialogs, StdCtrls; type   { TForm1 }   TForm1 = class(TForm)   
Button1: TButton;    Button2: TButton;    Edit1: TEdit;    Edit2:
TEdit;    Label1: TLabel;    Label2: TLabel;    SQLDBLibraryLoader1:
TSQLDBLibraryLoader;    Connect1: TSQLite3Connection;    SQLQuery1:
TSQLQuery;    SQLTrans1: TSQLTransaction;    procedure
Button1Click(Sender: TObject);    procedure Button2Click(Sender:
TObject);    procedure FormCreate(Sender: TObject);  private  
public   end; var  Form1: TForm1; implementation {$R *.frm} { TForm1
} procedure TForm1.FormCreate(Sender: TObject);begin 
 SetBounds(0,22,Screen.Width,Screen.Height);   try   
SQLDBLibraryLoader1.ConnectionType:= 'SQLite3';   
 SQLDBLibraryLoader1.LibraryName:= 'sqlite3.dll';   
SQLDBLibraryLoader1.Enabled:= True;  except    Label1.Caption:=
'sqlite3.dll fault';  end;end; procedure TForm1.Button2Click(Sender:
TObject);begin  Application.Terminate;end; procedure
TForm1.Button1Click(Sender: TObject);begin  begin     
Connect1.DatabaseName:= 'test.db';      Connect1.Connected:= True;   
 SQLQuery1.SQL.Clear;      if FileExists('bazatest.db') then       
 begin             SQLQuery1.SQL.Clear;           
SQLQuery1.SQL.Add('insert into nuser(id, imie) values (:id_e,
:name_e)');            SQLQuery1.Params.paramByName('id_e').AsString
:= Edit1.Text;           
SQLQuery1.Params.paramByName('name_e').AsString := Edit2.Text;       
   SQLQuery1.ExecSQL;            SQLTrans1.Active:= True;           
SQLTrans1.Commit;             SQLQuery1.Close;        end else     
begin        ShowMessage('fault!');      end;  end;end; end. 
I don't know whot is wrong
Could you help me Guys, please.

----------------------------------------------------------------------
bambamns · 2018-10-06 10:02

Hi,

First , AFAIK you need to proivde full path on WinCE for database.

Second , why do you use SQLDBLibraryLoader ?

Third , you are connecting to Connect1.DatabaseName:= 'test.db'; and
after you search for if FileExists('bazatest.db') - test.db and
bazatest.db are not the same file.

Fourth , do you use sqlite3.dll for wince ?

And last - I have tried to use Typhon several times for WinCe and run
to lot of problems so I still use plain Lazarus + cross arm wince
addon (still with fpc 2.6.4).

----------------------------------------------------------------------
Iwoks · 2018-11-02 15:14

Hay!

If you using a arm-wince
  Take sqlite3.dll for wince and paste this file in your .exe
directory.
  http://www.iwoks.net/download/sqlite3.dll

I use this lpk for sqlite3
  http://www.iwoks.net/download/SQLite3.zip

Best regard.

----------------------------------------------------------------------
Thaddy · 2018-11-02 18:27

Quote from: Iwoks on November 02, 2018, 04:14:02 pmHay!

If you using a arm-wince
  Take sqlite3.dll for wince and paste this file in your .exe
directory.
  http://www.iwoks.net/download/sqlite3.dll

I use this lpk for sqlite3
  http://www.iwoks.net/download/SQLite3.zip

Best regard.
There is no single dll for wince. It depends on the platform: arm -
even the correct architecture - , intel, mips.... make sure you have a
correct one or compile it yourself. sqlite3 is easy to compile even
for noobs.