[Rb] SQLiteデータベースの読み込み

SQLiteのデータベースをReal Studioで読み込むコードを毎回ゼロから書くのが面倒なので、ここにメモしておくことにします。

Dim db As New REALSQLDatabase
Dim rs As RecordSet
Dim sql As String
 
' データベースファイルと同じフォルダにあるデータベースを参照
db.DatabaseFile = Getfolderitem("").Child("database.db") ' データベース名
 
If db.DatabaseFile.exists Then
  If Not db.connect() Then
    MsgBox "データベースを読み込めませんでした。"
    Return
  Else
    sql = "select * from table1;" ' SQL文
    rs = db.SQLSelect(sql)
    If Not rs.EOF Then
      Do
        ' なんらかの処理
        rs.MoveNext
      Loop Until rs.EOF
    End If
    MsgBox "データベースを読み込みました。"
  End If
Else
  MsgBox "データベースが存在しません。"
  Quit
End If

以上です。