vb连接mysql出现的问题_连接数据库问题用户定义类型未定义【vb6】

连接数据库问题用户定义类型未定义【vb6】0

Dim cnnImage As NewADODB.Connection

Dim rsImage As New ADODB.Recordset

Dim strSql As String

Dim Chunk() As Byte

Dim lngLengh As Long

Dim intChunks As Integer

Dim intFragment As Integer

Const ChunkSize = 1000

Const lngDataFile = 1为什么这样会提示用户定义类型未定义‘-----------------------------------------------------------这是数据库存图的源代码，网上找来的能运行

Dim cnnImage As New ADODB.Connection

Dim rsImage As New ADODB.Recordset

Dim strSql As StringDim Chunk() As Byte

Dim lngLengh As Long

Dim intChunks As Integer

Dim intFragment As Integer

Const ChunkSize = 1000

Const lngDataFile = 1

Private Sub cmdBrowse_Click()

'选择 JPG OR Bmp 文件

On Error Resume Next

With cmdlFilePath

.Filter = "JPG Files|*.JPG|Bitmaps|*.BMP|gif Files|*.gif"