SQLitening Support Forum

@cls
@echo off
rem enable.bat change if different --> "c:\sql\bin\SQLiteningServer.exe"
rem delete previous rules so they don't stack up
rem change property of shortcut, advanced, Run as administrator
netsh advfirewall firewall delete rule name= "SQLiteningServer.exe"
netsh advfirewall firewall add rule name="SQLiteningServer.exe" dir=in action=allow program="C:\sql\bin\SQLiteningServer.exe" enable=yes

https://sqlite.org/forum/forumpost/d6aaaee4a5
#INCLUDE ONCE "sqlitening.inc"  'Anything.bas with binding so keys can be anything
MACRO bind(str) = slBuildbindDat(str,"T")

FUNCTION PBMAIN AS LONG
LOCAL sWord,sdata AS STRING
slOpen "words.db3","C"
'slexe  "drop table if exists WordTable;drop table if exists PointerTable" 'start over
slexe  "create table if not exists WordTable(Word text primary key,Pointers text) without rowid"
slexe  "create table if not exists PointerTable(HighPointer integer)
IF LEN(slSelStr("Select * from PointerTable"))=0 THEN slexe "insert into PointerTable values(0)"
DO
  sdata = GetRecordSet("Select * from WordTable")
  sWord = INPUTBOX$(sdata,"Insert word",sWord)
  IF LEN(sWord) = 0 THEN EXIT DO
  slexe "begin immediate"
  AddWord sWord
  slexe "end"
LOOP
END FUNCTION
'=====================================================================================
FUNCTION AddWord(sWord AS STRING) AS STRING
LOCAL sHighPointer AS STRING

'increment pointertable.highpointer
sHighPointer = FORMAT$(VAL(slSelStr("Select HighPointer from PointerTable limit 1"))+1)
slexebind  "update PointerTable set HighPointer=?",bind(sHighPointer)

'search wordtable.word for sWord
slSelBind  "Select Word,Pointers from WordTable where Word=?", bind(sWord)

IF slGetRow THEN 'update wordtable pointers column
  slexebind "update WordTable set Pointers = ? where Word = ?",bind(slf(2)+ "," + sHighPointer) + bind(sWord)
ELSE            'insert wordtable
  slexebind "insert into WordTable values(?,?)",bind(sWord)+bind(sHighPointer)
END IF
END FUNCTION
'=====================================================================================
FUNCTION GetRecordSet(sql AS STRING) AS STRING
LOCAL sArray() AS STRING
slSelAry sql,sArray(),"Q9"
FUNCTION = JOIN$(sArray(),$CRLF)
END FUNCTION

Try downloading it now. The attachment was missing/corrupted so I just re-uploaded it again and attached it to the original post.

sqlitening_170.zip does not download. How can I download it?
user name Joel couto
email joelcouto@gmail.com

1) I had "Receive Emails and Alerts" for this forum, but can't find an email.
2) Forum Look and Layout "Turn notification on when you post or reply to a topic"
3) Account setttngs:  email address is current
4) Maybe something more?  Yes, found these under notifications. 

Notifications checked:
Receive forum newsletters, announcements and important notifications by email.
Follow topics I create and reply to
Receive message body in e-mails
How frequently to tell me immediately
Notify me of Replies and moderation

When a new topic is create in a board I follow, I normally want to know via
Receive alert and email checked

Posts
When one of my posts is quoted  receive alert and email
When a reply is made to my unapproved top receive alert and email

Personal Messages
If enable, notify me of personal messages from All members
When I receive a new personal message receive email
When I receive a reply to a personal message  receive email

Members
When other members add me as their buddy receive alert (can't check email)
When it's my birthday receive email











Looking again for an email and will recheck my settings.

Thanks, Paul.  8:53 AM CST Sunday July 31, 2022

Quote from: cj on July 30, 2022, 05:54:11 PMPaul,
Do you get email notifications?

No I did not, but I also do not have the "Alerts or Emails" enabled for myself for this Board.

Paul,
Do you get email notifications?

Here is another test.  Did you receive an email notification on this post #6?
Still haven't heard back from Fredrick.

That's weird. I went into the forum admin settings and merely viewed and saved the Boards. It must have reset something that was screwing up your permissions.... I don't know why it worked, but happy that maybe it was what fixed it.

Other 3 boards just appeared!