[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

以上です。

[Web] 郵便番号検索窓

最近、自社のグループウェアを、twitter bootstrapを使ってリニューアルしています。

今回は、仕事中に住所から郵便番号を調べることがたまにあるので、navbarに郵便番号検索窓をつけてしまいます。Submitすると日本郵便の郵便番号検索に飛びます。

<form class="navbar-search pull-right" action="http://www.post.japanpost.jp/cgi-zip/zipcode.php" method="post">
 <input class="search-query" type="text" size="20" name="addr" placeholder="郵便番号検索" />
 <input type="hidden" name="pref" value="0" />
</form>

classを変えればtwitter bootstrapじゃなくても動きます。


というのが、初投稿っていうのもなんだか...。