PureBasic Forums - English

Code: Select all

; Convert SQLite-Database (ANSI -> Unicode)
; by Thorsten Hoeppner

XIncludeFile "SQLite3_Include.pbi"

If Not SQLiteInit()
  MessageRequester("Error", "Couldn't init SQLite3 lib") : End
EndIf

Structure SQLiteMasterStructure
  Name.s
  sql.s
EndStructure

Procedure.b ConvertDB(dbfile.s) ; Konvertiere von ANSI nach Unicode
  If Not FileExist(dbfile) : ProcedureReturn #False : EndIf
  Define.SQ3_TABLEMAP TableMap
  NewList Table.SQLiteMasterStructure()
  
  CopyFile(dbfile, StringField(dbfile,1,".")+".asc")
  
  ; ===== Load as ANSI =====
  hDB1.l = SQLiteOpen(dbfile, #True)
  If hDB1
    ;{ --- Get table names ---
    If SQLiteGetTable(hDB1, "SELECT name, sql  FROM sqlite_master WHERE type='table';", TableMap)
      While SQLiteNextRow(TableMap)
        AddElement(Table())
        Table()\Name = SQLiteColValue(TableMap,1)
        Table()\sql = SQLiteColValue(TableMap,2)
      Wend 
    EndIf ;}
    ;{ --- Read table content ---
    If CreateFile(0, "SQLDump.sql")
      ForEach Table()
        If SQLiteGetTable(hDB1, "SELECT * FROM "+Table()\Name+";", TableMap)
          WriteStringN(0, Table()\sql)
          While SQLiteNextRow(TableMap)
            SQLiteSelectCol(TableMap, 1)
            sql$ = "INSERT INTO "+Table()\Name+" VALUES ('"+SQLiteValue(TableMap)+"'"
            While SQLiteNextCol(TableMap)
              sql$ + ", '"+SQLiteValue(TableMap)+"'"
            Wend
            sql$ + ");"
            sql$ = ReplaceString(sql$, Chr(10), " ")
            sql$ = RemoveString(sql$, Chr(13))
            WriteStringN(0, sql$, #PB_UTF8)
          Wend
          SQliteFreeTable(TableMap)
        EndIf
      Next
      CloseFile(0)
    EndIf ;}
    SQLiteClose(hDB1)
  EndIf
  
  SQLiteEnd()
  If Not SQLiteInit()
    MessageRequester("Error", "Couldn't init SQLite3 lib")
  EndIf
  
  ;{ ===== Save as unicode =====
  If ReadFile(1, "SQLDump.sql")
    DeleteFile(dbfile)
    hDB.l = SQLiteOpen(dbfile)
    If hDB
      SQLiteExecute(hDB, "BEGIN TRANSACTION;")
      While Eof(1) = 0 
        SQLiteExecute(hDB, ReadString(1))
      Wend
      If SQLiteExecute(hDB, "CREATE TABLE DBInfo (id INTEGER PRIMARY KEY, format TEXT);")
        SQLiteExecute(hDB, "INSERT INTO DBInfo (format) VALUES('unicode');")
      EndIf
      SQLiteExecute(hDB, "COMMIT;")
      SQLiteClose(hDB)
    Else
      ProcedureReturn #False
    EndIf
    CloseFile(1)
  Else
    ProcedureReturn #False
  EndIf ;}
  
  DeleteFile("SQLDump.sql")
  
  ProcedureReturn #True
EndProcedure

Procedure.b CheckDBCodePage(dbfile.s) ; Überprüfe CodePage
  If Not FileExist(dbfile) : ProcedureReturn #False : EndIf
  Define.SQ3_TABLEMAP TableDB
  hDB = SQLiteOpen(dbfile)
  If hDB
    If SQLiteGetTable(hDB, "Select format From DBInfo;", TableDB) 
      SQliteFreeTable(TableDB)
    ElseIf SQLiteErrorMsg(hDB) = "no such table: DBInfo"
      SQLiteClose(hDB)
      ProcedureReturn #True
    EndIf 
  EndIf
  SQLiteClose(hDB)
  ProcedureReturn #False
EndProcedure

If CheckDBCodePage("test.db") ; Überprüfe Codepage (Datenbank-Klasse)
  ConvertDB("test.db")
EndIf

SQLiteEnd()

Code: Select all

XIncludeFile("SQLite3_Include.pbi")

SQLiteInit()

Procedure.s CheckRSK(hDB.l) 
  Define.SQ3_TABLEMAP TableDB 
  found.b = #False : test$ = "Test"
  SQLiteGetTable(hDB, "SELECT opt FROM worte WHERE wortstamm = '"+test$+"' ;", TableDB)
  While SQLiteNextRow(TableDB) 
    Select SQLiteColValue(TableDB, 1)
      Case "1"
        ; --- found ---
        Break 
    EndSelect
  Wend
  SQliteFreeTable(TableDB)
  ProcedureReturn "Test"
EndProcedure

hDB = SQLiteOpen("TestDB.db")
SQLiteExecute(hDB, "CREATE TABLE worte (id INTEGER PRIMARY KEY, wortstamm TEXT, endung TEXT, opt TEXT);")
SQLiteExecute(hDB, "INSERT INTO worte (wortstamm, endung, opt) VALUES('Test', 'e', '1');")
; --------------------------------------------------
Result$ = CheckRSK(hDB) : Debug "Result: "+Result$
; --------------------------------------------------
SQLiteClose(hDB)

SQLiteEnd() ; Close SQLite

Code: Select all

Procedure.s CheckRSK(hDB.l)
  Define.SQ3_TABLEMAP TableDB
  Define.l RowCounter
  found.b = #False : test$ = "Test"
  SQLiteGetTable(hDB, "SELECT opt FROM worte WHERE wortstamm = '"+test$+"' ;", TableDB)
  
  For RowCounter = 1 To SQLiteRows(TableDB)
  
    SQLiteSelectRow(TableDB, RowCounter)
    SQLiteSelectCol(TableDB, 1)
    
    Select SQLiteValue(TableDB)
      Case "1"
        ; --- found ---
        RowCounter = SQLiteRows(TableDB)
    EndSelect
    
  Next
    
  SQliteFreeTable(TableDB)
  
  ProcedureReturn "Test"
  
EndProcedure

Code: Select all

Procedure.s CheckRSK(hDB.l)
  Define.SQ3_TABLEMAP TableDB
  found.b = #False : test$ = "Test"
  SQLiteGetTable(hDB, "SELECT opt FROM worte WHERE wortstamm = '"+test$+"' ;", TableDB)
  While SQLiteNextRow(TableDB)
    opt$ = SQLiteColValue(TableDB, 1)
    Select opt$
      Case "1"
        ; --- found ---
        Break
    EndSelect
  Wend
  SQliteFreeTable(TableDB)
  ProcedureReturn "Test"
EndProcedure 

Code: Select all

PureBasic - Error

purebasic.asm: 1263:Invalid mnemonic 'SUB'
purebasic.asm: 1264:Invalid mnemonic 'CALL'
purebasic.asm: 1265:Invalid mnemonic 'ADD'
purebasic.asm: 1585:Invalid mnemonic 'SUB'
purebasic.asm: 1586:Invalid mnemonic 'CALL'
purebasic.asm: 1587:Invalid mnemonic 'ADD'
purebasic.asm: 3120:Invalid mnemonic 'SUB'
purebasic.asm: 3121:Invalid mnemonic 'CALL'
purebasic.asm: 3122:Invalid mnemonic 'ADD'
purebasic.asm: 3939:Parameter syntax error (parameter 1)
Error: Assambler

Code: Select all

XIncludeFile "SQLite3_Include.pbi"
EnableExplicit