VB SQLite 비베용 래퍼DLL 만들기
페이지 정보
작성자
오원장
쪽지보내기
메일보내기
자기소개
아이디로 검색
전체게시물
댓글 0건
조회 4,869회
작성일 13-12-16 20:20
본문
Option Explicit
Private conn As New SQLite3_VB6.dbConnection
Private Sub Form_Load()
If conn.Open("c:\testdb.dat") = False Then
MsgBox "FAIL: conn.Open"
End If
'Init: 테이블 생성
MsgBox conn.ExecSQL("CREATE TABLE T_DAT ( ID INTEGER, TXT TEXT)")
End Sub
Private Sub cmd_insert_Click()
If conn.ExecSQL("INSERT INTO T_DAT VALUES( 1, 'DDDD')") = False Then
MsgBox conn.ErrMsg
End If
End Sub
Private Sub cmd_select_Click()
'Data
Dim rs As dbRecordset
Dim str As String
'Init
str = ""
Set rs = conn.OpenRS("SELECT * FROM T_DAT")
MsgBox "CNT =" & rs.Count
'Exec
While rs.Next
str = str & rs.GetInteger(0) & " : " & rs.GetString(1) & vbCrLf
Wend
'Last
MsgBox str
End Sub
관련링크
댓글목록
등록된 댓글이 없습니다.