Pembuatan Database SQLite dengan VB.NET 2005

Tutorial ini mencoba menunjukkan bagaimana koneksi dengan SQLite dengan VB.NET 2005.
Kita membutuhkan sebuah DLL yang bernama System.Data.SQLite (http://sqlite.phxsoftware.com/) yang bersifat freeware…

01	Imports System.Data.SQLite

02	Imports System.IO

03

04	Private Sub btn_createdb_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_createdb.Click

05

06	'Save Dialog Box

07	Dim f As New SaveFileDialog

08	f.Filter = "SQLite 3 (*.db3)|*.db3|All Files|"

09	f.ShowDialog()

10	'Create Database

11	Dim SQLconnect As New SQLite.SQLiteConnection()

12	'Database Doesn't Exist so Created at Path

13	SQLconnect.ConnectionString = "Data Source=" & f.FileName & ";"

14	SQLconnect.Open()

15	SQLconnect.Close()

16

17

End Sub

18

19	Private Sub btn_tables_create_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles btn_tables_create.Click

20

21	Dim SQLconnect As New SQLite.SQLiteConnection()

22	Dim SQLcommand As SQLiteCommand

23	SQLconnect.ConnectionString = "Data Source=" & txt_dbpath.Text & ";"

24	SQLconnect.Open()

25	SQLcommand = SQLconnect.CreateCommand

26	'SQL query to Create Table

27	SQLcommand.CommandText = "CREATE TABLE " & txt_tables_name.Text & "(id INTEGER PRIMARY KEY AUTOINCREMENT, title TEXT, description TEXT, image BLOB);"

28	SQLcommand.ExecuteNonQuery()

29	SQLcommand.Dispose()

30	SQLconnect.Close()

31

End Sub

Selamat mencoba!

Sumber : http://actual-training.com/2008/05/06/pembuatan-database-sqlite-dengan-vbnet-2005/
Lihat Juga Tulisan : http://faisalmuzaddiq.wordpress.com/2012/02/17/koneksi-vb-net-sqlite/