关于SQLITE的问题

[shortppsy]

Option Explicit
Function FileText(ByVal filename As String) As Byte
Dim handle As Integer
' 判断文件存在性
If Len(Dir$(filename)) = 0 Then
Err.Raise 53 '文件没有找到
End If
' 以binary模式打开文件
handle = FreeFile
Open filename$ For Binary As #handle
FileText = Space$(LOF(handle))
' 读取内容，关闭文件
Get #handle, , FileText
Close #handle
End Function

Private Sub Command1_Click()
为什么下面的代码总是出现变量未定义的错误
Dim cn As LITEXLib.LiteConnection
Dim BinStream(10000) As Byte
Dim z As Integer
Set cn = New LITEXLib.LiteConnection
cn.Path = "c:\cunwenjian.db"
cn.Open
BinStream(10000) = ("c:\haha.bin")
sql = "create table wenjian ( pid string, name varchar(100000))"
cn.Execute sql
sql = "INSERT INTO wenjian VALUES ('" & z & " ','" & BinStream(10000) & " ');"
cn.Execute sql
MsgBox ("成功！")
End Sub

[脆皮大雪糕]

Dim cn As LITEXLib.LiteConnection

检查你的工程，是否正确引用了LITEXLib库

[ilove8]

如楼上

[crycoming]

变量未定义，不是类型未定义 楼上两位都看错了
应当是sql没有定义了，添加下面的定义
dim sql as string

[junki]

呵呵,这些问题应该自己调试Debug就清楚了,
刚开始编程时,最好一步步跟踪