|
分類:[VB.NET/VB2005 以降]
SQLite操作ですが、下のコードですと、データベースファイルが存在しないと作成して、存在していれば、毎回データベースファイルを新しく書き換えます。
既にデータベースファイルが存在する場合は、そのまま使用したいのです。
New=Trueをfalseにしても、ファイルが無ければ無処理です。
If System.IO.File.Exists(db_path & "\" & db_name) Then でファイルの存在をチェックしようにも、挿入場所が良くわかりません。
宜しくお願い致します。
Public Class Form1
Dim db_path As String = Application.StartupPath
Dim db_name As String = "SQLite_1.db"
Dim conn As New SQLiteConnection("Version=3;Data Source=" & db_path & "\" & db_name & ";New=True;Compress=True;")
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
conn.Open()
End Sub
Private Sub cboCreate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cboCreate.Click
Dim cmd As New SQLiteCommand
cmd = conn.CreateCommand
cmd.CommandText = "CREATE table mp3Lst (mp3Idinteger primary key, mp3File varchar(100))"
cmd.ExecuteNonQuery()
End Sub
End Class |