[비주얼베이직] SQLite을 이용하여 DB 저장/불러오기

프로그램 안에서 리스트를 저장하고 불러오는 기능을 DB를 이용하는 방법으로 만들려고 했는데

MSSQL, MySQL을 이용하려니 인증문제에서 막혔다.

다른 방법은 없을까 생각하다가 안드로이드에서 SQLite를 사용하여 내부DB를 만들던 책의 내용이

머릿속에 확! 떠올랐다.

-> 내부DB 작성은 'SQLite Expert Personal 3' 프로그램을 이용하세요.

 

# 가져오기

1. SQLite를 사용하기 전에 DLL 파일을 다운로드 받아야 한다.

(http://system.data.sqlite.org/index.html/doc/trunk/www/downloads.wiki)

위 주소로 가서 개발중인 프로그램의 닷넷버전에 맞는 설치파일을 다운로드 받아 설치한다.

2. SQLite가 설치된 곳에 있는 'System.Data.SQLite.dll' 를 참조한다.

3. 코드를 작성한다. (불러오는 코드만 작성되었음.)

1 2 3 4 5 6 7 8 9

Dim dbPath As String = "Data Source=" & Environment.CurrentDirectory & "\bm.db" '// DB파일이 있는위치         Dim sq_conn As SQLiteConnection = New SQLiteConnection(dbPath) '// 연결객체 생성         Dim da As SQLiteDataAdapter = New SQLiteDataAdapter("select * from settings", sq_conn) '// 명령어와 연결객체를 넣음.         Dim dt As DataTable = New DataTable()         da.Fill(dt)         For Each dr As DataRow In dt.Rows             lsvProcList.Items.Add(lsvProcList.Items.Count + 1) '// 이건 No.1, No.2 등 넘버를 넣어주기 위한 코드             lsvProcList.Items.Item(lsvProcList.Items.Count - 1).SubItems.Add(dr(0).ToString) '// 2번째에 아이템 추가. (1 | 아이템) 이런씩으로 나옴.         Next

CodeHighlighter

 

# 저장하기

1 2 3 4 5 6 7 8 9 10 11 12

Dim dbPath As String = "Data Source=" & Environment.CurrentDirectory & "\bm.db" Dim sq_conn As SQLiteConnection = New SQLiteConnection(dbPath) Dim sq_command As SQLiteCommand = New SQLiteCommand() '// 명령어를 쓰기위한 객체 Dim Query As String '// insert 문 줄이기 위한 변수 sq_command.Connection = sq_conn sq_command.Connection.Open() '// DB 열기(?) For i = 0 To lsvProcList.Items.Count - 1     Query = "insert into listTable values('" & lsvProcList.Items(i).SubItems(1).Text & "')"     sq_command.CommandText = Query '// SQL문 입력     sq_command.ExecuteNonQuery() '// 적용. Next sq_command.Connection.Close() '// 연결 끝.

CodeHighlighter