form1.frm

来自「用vb创建sqlite数据库,独家提供,不用在用access这个大个子了」· FRM 代码 · 共 65 行

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   3120
   ClientLeft      =   60
   ClientTop       =   420
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3120
   ScaleWidth      =   4680
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton Command1 
      Caption         =   "创建新表"
      Height          =   375
      Left            =   3600
      TabIndex        =   2
      Top             =   240
      Width           =   855
   End
   Begin VB.TextBox Text1 
      Height          =   375
      Left            =   1080
      TabIndex        =   1
      Text            =   "Text1"
      Top             =   240
      Width           =   2175
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "表名："
      Height          =   180
      Left            =   360
      TabIndex        =   0
      Top             =   240
      Width           =   540
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'Private Declare Function FreeLibrary Lib "kernel32" (ByVal hLibModule As Long) As Long
'Private Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long
'Private Declare Function GetProcAddress Lib "kernel32" (ByVal hModule As Long, ByVal lpProcName As String) As Long
'Private Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal Msg As Any, ByVal wParam As Any, ByVal lParam As Any) As Long
'Private lb As Long
Private oDB As Object

Private Sub Form_Load()
    'Dim lb As Long
    'lb = LoadLibrary(App.Path & "\sqlite3.dll")
    'Dim oDB As Object
    Set oDB = CreateObject("LiteX.LiteConnection")
    'TextSQLiteVersion.Text = oDB.Version
    oDB.open (App.Path & "\test.db")
    'oDB.Execute ("create table table1(one varchar(10), two smallint)")
    oDB.Execute ("insert into table1 values('laoma', 20)")
    
    'TextSQLiteChanges.Text = oDB.changes
    'TextSQLitePath.Text = oDB.Path
    
    oDB.Close
End Sub