• Welcome, Guest. Please login.
 
September 17, 2019, 02:05:42 pm

News:

Welcome to the SQLitening support forums!


Greetz

Started by bencin386, May 21, 2015, 05:55:24 pm

Previous topic - Next topic

bencin386

Hello World,

This is my introduction.  I am interested in SQLitening because of a client's requirements to keep SQLite and also migrate to a client server pattern.  Thanks in advance for any and all help and support!

Best Regards,
Ben Howard
~bencinStudios~

cj

#INCLUDE "sqlitening.inc"
FUNCTION PBMAIN () AS LONG 'helloworld.bas
  LOCAL colnum,rows AS LONG
  LOCAL sData AS STRING
  slConnect "255.255.255.255",65535  'client server if IP,Port
  slopen "sample.db3"
  slexe "drop table if exists t1"
  slexe "create table if not exists t1(c1)
  slexe "insert into t1 values('hello')
  slexe "insert into t1 values('world')
  slsel "select * from t1"
  DO WHILE slGetRow
    INCR rows
    FOR ColNum = 1 TO slGetColumnCount
      sData = sData + slf(ColNum) + "|"
     NEXT
      ASC(sData,LEN(sData)) = 13
  LOOP
  MSGBOX sData,,"Rows" + STR$(rows)
END FUNCTION