You are not logged in.

Dear visitor, welcome to Jabaco - Community. If this is your first visit here, please read the Help. It explains in detail how this page works. To use all features of this page, you should consider registering. Please use the registration form, to register here or read more information about the registration process. If you are already registered, please login here.

frankp

Beginner

  • "frankp" started this thread

Posts: 14

Date of registration: Jan 12th 2009

  • Send private message

1

Thursday, January 29th 2009, 9:33am

SQLITE 3 support

What about SQLITE 3 support and binding?

How is it possible to use, under Jabaco, sqlite3.dll and especially the export functions:

int sqlite3_open(
const char *filename, /* Database filename (UTF-8) */
sqlite3 **ppDb /* OUT: SQLite db handle */
);

int sqlite3_exec(
sqlite3*, /* An open database */
const char *sql, /* SQL to be evaluated */
int (*callback)(void*,int,char**,char**), /* Callback function */
void *, /* 1st argument to callback */
char **errmsg /* Error msg written here */
);

int sqlite3_get_table(
sqlite3 *db, /* An open database */
const char *zSql, /* SQL to be evaluated */
char ***pazResult, /* Results of the query */
int *pnRow, /* Number of result rows written here */
int *pnColumn, /* Number of result columns written here */
char **pzErrmsg /* Error msg written here */
);

void sqlite3_free_table(char **result);

int sqlite3_close(sqlite3 *);


Thanks,

Frank

OlimilO

Intermediate

  • "OlimilO" is male

Posts: 277

Date of registration: Jan 18th 2009

Location: Germany

Occupation: software engineer

  • Send private message

2

Thursday, January 29th 2009, 11:29am

Hello frankp,

did you use sqlite3 in VB6?

i made a short look around the sourcecode of sqlite3 and i did not found the __stdcall calling convention.

in fact it is possible to use winapi-functions like the following, but winapi-functions use the __stdcall calling convention

Jabaco Source

1
2
3
4
5
6
7
8
9
Public WinAPI Function TheFunctionName lib "thedllname" (ByVal ahandle As Integer) As Integer
'int sqlite3_open( 
'Const char *filename, /* Database filename (UTF-8) */ 
'sqlite3 **ppDb /* OUT: SQLite db handle */ 
'); 
Private WinApi Function sqlite3_open Lib "sqlite3"( _
    ByVal filename As String, _
    ByVal ppDb As Integer _
    ) As Integer


i do not know if it is possible to call __cdecl-functions in jabaco, lets see what Manuel will say, i am interested in this point also

another problem would be the callbackfunction for the function sqlite3_exec this must be in __cdecl also

Maybe another (harder) solution would be to get the sourcode of sqlite3 and export all functions with __stdcall.

greetings

OlimilO

frankp

Beginner

  • "frankp" started this thread

Posts: 14

Date of registration: Jan 12th 2009

  • Send private message

3

Thursday, January 29th 2009, 6:47pm

SQLITE 3 support


Hello OlimilO and thanks for your answer.

I haven't used sqlite3 with VB6 succesfully, but I do have use it succesfully with Rapid-Q and FreeBasic who also use stdcall (at least I think...).

I agree that using the callback function is rather difficult, so I don't use the sqlite_exec() function for SELECT queries. I use sqlite3_get_table() instead. I have also made a sort of "wrapper" dll in FreeBasic to acquire the result delimited data string from sqlite3_get_table(), as well as the number of rows and columns, without having to pass pointers as parameters. It works well with FreeBasic-compiled programs, but it fails to give the data string in Rapid-Q and VB6. In the latter cases I can only get the number of rows and columns. In Jabaco, I only get JRE error, concerning the sqlite3.dll module, not my own dll.

Greetings,

Frank



This post has been edited 1 times, last edit by "frankp" (Jan 29th 2009, 7:02pm)


Manuel

Administrator

  • "Manuel" is male

Posts: 256

Date of registration: Jul 16th 2008

Location: Erlangen, Germany

Occupation: Software Developer

Hobbies: Jabaco, game theory, text-mining

  • Send private message

4

Thursday, January 29th 2009, 7:49pm

SQLiteJDBC is a Java JDBC driver for SQLite. You should wait for the next Jabaco version. The current beta couldn't load this library.

maXim

Trainee

  • "maXim" is male

Posts: 51

Date of registration: Jan 5th 2009

Location: Sesto Fiorentino, Florence (ITALY)

Occupation: design & development (HW, SW & FW)

Hobbies: chess, fly fishing, good wine and beautiful women!

  • Send private message

5

Tuesday, February 3rd 2009, 10:01am

I found this wrapper: http://www.ch-werner.de/javasqlite/. Provides no error! Someone knows how to manage it properly in Jabaco?

Massimo

Manuel

Administrator

  • "Manuel" is male

Posts: 256

Date of registration: Jul 16th 2008

Location: Erlangen, Germany

Occupation: Software Developer

Hobbies: Jabaco, game theory, text-mining

  • Send private message

6

Tuesday, February 3rd 2009, 10:57pm

Hmm... seems simple. The only thing you have to do is copying the files from javasqlite-20081006-win32.zip into your JRE-folder (the structure is already correct in the zip-file). Now you have installed the SQLite driver for JDBC and you can use it like all other JDBC-compatible databases:

Jabaco Source

1
2
3
4
5
6
7
On Error Resume Next
Dim database As New DataBase 
Dim driver As Class
driver = Class.forName("SQLite.JDBCDriver")
If driver = Nothing Then MsgBox "Not found!"
On Error Goto 0
Call database.Connect("jdbc:sqlite:/:memory:")

maXim

Trainee

  • "maXim" is male

Posts: 51

Date of registration: Jan 5th 2009

Location: Sesto Fiorentino, Florence (ITALY)

Occupation: design & development (HW, SW & FW)

Hobbies: chess, fly fishing, good wine and beautiful women!

  • Send private message

7

Wednesday, February 4th 2009, 12:09pm

Hi Manuel,

thanks for Your help, now I work with SQLite but I would also like to populate a JBGrid: do You have to submit me some example?

frankp

Beginner

  • "frankp" started this thread

Posts: 14

Date of registration: Jan 12th 2009

  • Send private message

8

Thursday, February 5th 2009, 6:52pm


And then what? How can I open an sqlite3 database, e.g. "mydata.db" , execute an SQL statement and/or get some rows in a grid?

The question may sound naive, but after all, I am just a BASIC programmer, not a Java one...

Thanks

maXim

Trainee

  • "maXim" is male

Posts: 51

Date of registration: Jan 5th 2009

Location: Sesto Fiorentino, Florence (ITALY)

Occupation: design & development (HW, SW & FW)

Hobbies: chess, fly fishing, good wine and beautiful women!

  • Send private message

9

Thursday, February 5th 2009, 7:40pm

with the help of Manuel I would have understood how to use JavaSQLite wrapper in Jabaco, what follows is just a simple example to read the fields names:

Jabaco Source

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Dim dbFile As String 
dbFile = App.Path & "/test.db" 
dbFile = Replace(dbFile, "", "/") 
Dim driver As Class 
driver = Class.forName("SQLite.JDBCDriver") 
If driver = Nothing Then 
    MsgBox "SQLite Driver Not Found!" 
Exit Sub 
End If 
Dim database As New DataBase 
Dim rs As ResultSet 
Dim rsMetaData As java#sql#ResultSetMetaData 
database.Connect("jdbc:sqlite:/" & dbFile) 
rs = database.ExecuteStatement("SELECT * FROM country ORDER BY iso_code") 
rsMetaData = rs.getMetaData 
Dim ColumnName(1 To rsMetaData.getColumnCount) AS String 
Dim f As Integer 
For f = 1 To rsMetaData.getColumnCount 
    ColumnName(f) = rsMetaData.getColumnName(f) 
Next f 
rs.close

... the problem is that I do not know what methods and properties to fill a JBGrid with data from a Select!

frankp

Beginner

  • "frankp" started this thread

Posts: 14

Date of registration: Jan 12th 2009

  • Send private message

10

Thursday, February 5th 2009, 7:56pm

Perhaps this helps?

Jabaco Source

1
2
3
4
5
6
7
8
9
10
rs = Database1.ExecuteStatement("SELECT * FROM Contacts") 
Do While res.next 
JBGrid1.TextMatrix(res.getRow() - 1, 0) = rs.getString("RecordId") 
JBGrid1.TextMatrix(res.getRow() - 1, 1) = rs.getString("Title") 
JBGrid1.TextMatrix(res.getRow() - 1, 2) = rs.getString("FirstNAME") 
JBGrid1.TextMatrix(res.getRow() - 1, 3) = rs.getString("MiddleName") 
JBGrid1.TextMatrix(res.getRow() - 1, 4) = rs.getString("LastName") 
rows = rows + 1 
JBGrid1.Rows = rows 
Loop


Do you know btw what should I include in Project/References?

Manuel

Administrator

  • "Manuel" is male

Posts: 256

Date of registration: Jul 16th 2008

Location: Erlangen, Germany

Occupation: Software Developer

Hobbies: Jabaco, game theory, text-mining

  • Send private message

11

Thursday, February 5th 2009, 8:10pm

I'm too late but i won't trash my sample...

Quoted

Do you know btw what should I include in Project/References?
Nothing. Just "install" the driver by copying the files from the zip into your Java (JRE)-folder.

Quoted

... the problem is that I do not know what methods and properties to fill a JBGrid with data from a Select!
I'll show you a better way in future. For now you could use this sample:

Jabaco Source

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
On Error Goto ERROUT

   Dim driver As Class
   driver = Class.forName("SQLite.JDBCDriver")
   If driver = Nothing Then MsgBox "Not found!"

   Call database1.Connect("jdbc:sqlite:/:memory:")
   
   Call database1.ExecuteStatement("CREATE TABLE user (id Integer PRIMARY KEY, name varchar(10) NOT NULL, desc varchar(30) NOT NULL)")
   Call database1.ExecuteStatement("INSERT INTO user (id, name, desc) VALUES (1, 'manuel', 'developer')")
   Call database1.ExecuteStatement("INSERT INTO user (id, name, desc) VALUES (2, 'frankp', 'developer')")
   Call database1.ExecuteStatement("INSERT INTO user (id, name, desc) VALUES (3, 'maxim', 'developer')")
   Call database1.ExecuteStatement("INSERT INTO user (id, name, desc) VALUES (4, 'david', 'supporter')")
   
   Dim rsAllUsers As java#sql#ResultSet
   rsAllUsers = database1.ExecuteStatement("SELECT * FROM user")

   Dim i As Integer
   Dim rsAllUserColCount = rsAllUsers.getMetaData.getColumnCount
   JBGrid1.Cols = rsAllUserColCount
   For i = 1 To rsAllUserColCount
  	JBGrid1.Header(i-1) = rsAllUsers.getMetaData.getColumnName(i)
   Next
   
   Do While rsAllUsers.next
  	For i = 1 To rsAllUserColCount
     	JBGrid1.TextMatrix(rsAllUsers.getRow() - 1, i - 1) = rsAllUsers.getString(i)
  	Next
  	rows = rows + 1
  	JBGrid1.Rows = rows
   Loop

   Exit Sub
ERROUT:
   MsgBox Err.toString

maXim

Trainee

  • "maXim" is male

Posts: 51

Date of registration: Jan 5th 2009

Location: Sesto Fiorentino, Florence (ITALY)

Occupation: design & development (HW, SW & FW)

Hobbies: chess, fly fishing, good wine and beautiful women!

  • Send private message

12

Thursday, February 5th 2009, 8:48pm

8o 8o 8o 8o 8o 8o 8o 8o 8o 8o 8o 8o 8o 8o

:thumbsup: Thanks Manuel! :thumbsup:

8o 8o 8o 8o 8o 8o 8o 8o 8o 8o 8o 8o 8o 8o

frankp

Beginner

  • "frankp" started this thread

Posts: 14

Date of registration: Jan 12th 2009

  • Send private message

13

Friday, February 6th 2009, 8:51am

Thank you both, Manuel and MaXim,

Frank

Sbleck

Beginner

  • "Sbleck" is male

Posts: 13

Date of registration: May 29th 2010

Location: Santos, Brazil

Occupation: Consultant

Hobbies: Builing some apps for accessing databases and some automation processes

  • Send private message

14

Wednesday, June 23rd 2010, 10:28pm

Found some compilation problems when tried the SQLite sample code...

Hello,
I'm too late but i won't trash my sample...

Quoted

Do you know btw what should I include in Project/References?
Nothing. Just "install" the driver by copying the files from the zip into your Java (JRE)-folder.

Quoted

... the problem is that I do not know what methods and properties to fill a JBGrid with data from a Select!
I'll show you a better way in future. For now you could use this sample:

Jabaco Source

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
On Error Goto ERROUT 

Dim driver As Class 
driver = Class.forName("SQLite.JDBCDriver") 
If driver = Nothing Then MsgBox "Not found!" 

Call database1.Connect("jdbc:sqlite:/:memory:") 

Call database1.ExecuteStatement("CREATE TABLE user (id Integer PRIMARY KEY, name varchar(10) NOT NULL, desc varchar(30) NOT NULL)") 
Call database1.ExecuteStatement("INSERT INTO user (id, name, desc) VALUES (1, 'manuel', 'developer')") 
Call database1.ExecuteStatement("INSERT INTO user (id, name, desc) VALUES (2, 'frankp', 'developer')") 
Call database1.ExecuteStatement("INSERT INTO user (id, name, desc) VALUES (3, 'maxim', 'developer')") 
Call database1.ExecuteStatement("INSERT INTO user (id, name, desc) VALUES (4, 'david', 'supporter')") 

Dim rsAllUsers As java#sql#ResultSet 
rsAllUsers = database1.ExecuteStatement("SELECT * FROM user") 

Dim i As Integer 
Dim rsAllUserColCount = rsAllUsers.getMetaData.getColumnCount 
JBGrid1.Cols = rsAllUserColCount 
For i = 1 To rsAllUserColCount 
JBGrid1.Header(i-1) = rsAllUsers.getMetaData.getColumnName(i) 
Next 

Do While rsAllUsers.next 
For i = 1 To rsAllUserColCount 
JBGrid1.TextMatrix(rsAllUsers.getRow() - 1, i - 1) = rsAllUsers.getString(i) 
Next 
rows = rows + 1 
JBGrid1.Rows = rows 
Loop 

Exit Sub 
ERROUT: 
MsgBox Err.toString
I downloaded the file (http://www.ch-werner.de/javasqlite/javas…81006-win32.zip) and have put the contents in the appropriate folders (Bin and in Java\Jre6\lib\ext), as described in other place, here in the forum.

But couldn´t reproduce the connection to the SQLite database, only because in the compilation process showed that there is an error, even when doing a copy-and-paste of the code mentioned above. Could you (or anyone) comment what I´m doing wrong ? I´ve sent the sample code (with the snapshot of the error tha occured), for better analysis. Please comment, when possible.

Regards,
Sven
Sbleck has attached the following file:
  • SQLite sample.zip (139.19 kB - 408 times downloaded - latest: Oct 5th 2018, 6:27am)

spodhajecki

Beginner

Posts: 6

Date of registration: Dec 3rd 2010

Occupation: IT Specialist

Hobbies: Woodworking, Welding, Biking.

  • Send private message

15

Wednesday, December 8th 2010, 9:55pm

Sven,

I looked at your code and all is fine if you add a database control and a grid control to your form.

Regards,

Stephen

spysonic

Trainee

  • "spysonic" is male

Posts: 88

Date of registration: Jul 11th 2014

About me: A beginner programmer.

Location: ...Jabaco Academy

Occupation: i have some but still not enough...

Hobbies: Jabaco

  • Send private message

16

Wednesday, July 30th 2014, 7:04am

hello,

I have been experimenting with sqlite lately, im a beginner in programming and knows only most of the basics. I have this program a user log-in using sqlite with code based from the above samples... it works fine just by putting the required sqlite files to the Java JRE...

but i had problems after installing JDK 1.7.0.
.
.
Spare me, im new to Programming

spysonic

Trainee

  • "spysonic" is male

Posts: 88

Date of registration: Jul 11th 2014

About me: A beginner programmer.

Location: ...Jabaco Academy

Occupation: i have some but still not enough...

Hobbies: Jabaco

  • Send private message

17

Wednesday, July 30th 2014, 7:23am

ahh ok..

before i only have "jre7" inside the JAVA folder and i inserted my sqlite files onto jre7.. my proj runs fine...
but after insatlling jdk.1.7.0, Jabaco is referring to "C:\Program Files\Java\jdk1.7.0_55\jre" and not on "C:\Program Files\Java\jre7" anymore. so I transfered my sqlite files from (..\JAVA\jre7) to (..\jdk1.7.0_55\jre) and my problem was solved.


:whistling:
.
.
Spare me, im new to Programming

Rate this thread
WoltLab Burning Board