VB6 下使用SQLite 的完整例子(全面且好用)

【实例截图】

【核心代码】

Option Explicit

Private DBName As String, Cnn As cConnection, Rs As cRecordset

Private Sub Form_Load()
  DBName = App.Path & "\InsertTest.db"
End Sub

Private Sub Form_Resize()
On Error Resume Next
  fDG.Move 45, (bInsert.Top   bInsert.Height), ScaleWidth - 90, ScaleHeight - (bInsert.Top   bInsert.Height) - 45
  DG.Move 15, 240, fDG.Width - 45, fDG.Height - 255
End Sub

Private Sub Form_Unload(Cancel As Integer)
  Set DG.DataSource = Nothing
  Set Rs = Nothing
  Set Cnn = Nothing
End Sub

Private Sub bInsert_Click()
Dim i&, T!, D&, Cmd As cCommand
  Set Cnn = Nothing
  Set Rs = Nothing
  
  On Error Resume Next
    Kill DBName
  If Err Then Err.Clear
  
  Set Cnn = New_c.Connection
  Cnn.CreateNewDB DBName
  'Cnn.Execute "Pragma journal_mode=OFF"
  Cnn.Execute "Create Table T (ID INTEGER Primary Key, Txt TEXT,  " & _
                              "Dbl DOUBLE, Int INTEGER,  " & _
                              "Date SHORTDATE, Bln BOOLEAN)"
  If Err Then MsgBox Err.Description: Err.Clear: Exit Sub
  
  T = HPTimer
  Set Cmd = Cnn.CreateCommand("Insert Into T Values(?,?,?,?,?,?)")
  If Err Then MsgBox Err.Description: Err.Clear: Exit Sub
  
  D = CLng(Now)
  Cnn.Synchronous = False
  Cnn.BeginTrans
    For i = 1 To 50000
      Cmd.SetInt32 1, i                  'ID
      Cmd.SetText 2, "SomeText_" & i    'Txt
      Cmd.SetDouble 3, i / 2            'Dbl
      Cmd.SetInt32 4, i * 10            'Int
      Cmd.SetShortDate 5, D: D = D   1  'Date
      Cmd.SetBoolean 6, i Mod 2         'Bln
      Cmd.Execute 'here we insert this new Record into Table 'T'
      If i Mod 1000 = 0 Then
        lTiming.Caption = Format$(i / 50000, "Percent")
        DoEvents
      End If
    Next i
  Cnn.CommitTrans
  Cnn.Synchronous = True
  If Err Then MsgBox Err.Description: Err.Clear: Exit Sub

  lTiming.Caption = Format$(HPTimer - T, "0.00 Seconds")
  lTiming.Refresh
  
  Set Rs = Cnn.OpenRecordset("Select * From T")
  If Err Then MsgBox Err.Description: Err.Clear: Exit Sub
  
  Set DG.DataSource = Rs.DataSource
End Sub