Bonjour Old VB6 world,
Je suis en train de maintenir une vielle application en VB6.
Je dois dans cette application (client lourd avec Oracle 9i mais client 11g) copier un champ de type blob vers un champ de type blob. Pour cela j'ai codé la méthode FieldToField :
Le problème est que après la ligne st.close, fldDestination est null, alors que fldSource n'est pas null. Et la copie ne se fait pas.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22 Public Sub Field2Field(ByRef fldSource As ADODB.Field, ByRef fldDestination As ADODB.Field, ItemJauge As BoWSmartUI.SmartItem) Dim conChunkSize As Long Dim st As ADODB.Stream Dim lngOffset As Long Dim lngTotalSize As Long Dim strChunk() As Byte On Error GoTo ErrHandler Screen.MousePointer = vbHourglass Set st = New ADODB.Stream st.Type = adTypeBinary st.Open st.Write fldSource fldDestination.Value = st.Read st.Close Screen.MousePointer = vbDefault Exit Sub ErrHandler: MsgBox ("The copy of the attachment file failed") Screen.MousePointer = vbDefault End Sub
Est-ce bien le bon algorithme ?
Merci de vos réponses.
Partager