代码应该是没有错误的,可能和JPG文件格式有关吧
不知道IMAGE对JPG图片格式有什么特别要求 当我导入一批图片时,有时会出错,就是值是导入了,但是无法读取导入SQL IMAGE的字段?代码如下
Dim MY_A0100 As String
Dim CN As New ADODB.Connection
Dim RS As New ADODB.Recordset
Dim MsStream As New ADODB.Stream For I = 0 To Me.File1.ListCount - 1
If UCase(Right(Me.File1.List(I), 4)) = ".BMP" Or _
UCase(Right(Me.File1.List(I), 4)) = ".JPG" Then
MsStream.Type = adTypeBinary
MsStream.Open
MsStream.LoadFromFile Me.File1.Path & "\" & Me.File1.List(I) Me.Adodc1.Recordset.AddNew
Me.Adodc1.Recordset.Fields("b0110") = "1"
Me.Adodc1.Recordset.Fields("a0100") = STR(I)
Me.Adodc1.Recordset.Fields("caption1") = "photo"
Me.Adodc1.Recordset.Fields("ole1").Value = MsStream.Read
Me.Adodc1.Recordset.Update Me.Adodc1.Recordset.Update
MsStream.Close
End If
Next I
'*********************************
me.adodc1连接已定义好
me.file1是一个文件控件
不知道IMAGE对JPG图片格式有什么特别要求 当我导入一批图片时,有时会出错,就是值是导入了,但是无法读取导入SQL IMAGE的字段?代码如下
Dim MY_A0100 As String
Dim CN As New ADODB.Connection
Dim RS As New ADODB.Recordset
Dim MsStream As New ADODB.Stream For I = 0 To Me.File1.ListCount - 1
If UCase(Right(Me.File1.List(I), 4)) = ".BMP" Or _
UCase(Right(Me.File1.List(I), 4)) = ".JPG" Then
MsStream.Type = adTypeBinary
MsStream.Open
MsStream.LoadFromFile Me.File1.Path & "\" & Me.File1.List(I) Me.Adodc1.Recordset.AddNew
Me.Adodc1.Recordset.Fields("b0110") = "1"
Me.Adodc1.Recordset.Fields("a0100") = STR(I)
Me.Adodc1.Recordset.Fields("caption1") = "photo"
Me.Adodc1.Recordset.Fields("ole1").Value = MsStream.Read
Me.Adodc1.Recordset.Update Me.Adodc1.Recordset.Update
MsStream.Close
End If
Next I
'*********************************
me.adodc1连接已定义好
me.file1是一个文件控件
不知道是不是ADODB.Stream有没有什么问题
是什么?
好象只能用在TXT文件上我要处理的是JPG图片