ado updatebatch problem

[Vascelli Germano]

I'm currently experiencing a problem using ADO 2.7 with DB2 7
(DB2 UDB FOR OS/390 V7). I use ODBC like datasource.
After populating a disconnected recordset, reconnecting it, and doing
a UpdateBatch the application (VB6) disappears - it just stops and
vanishes.
can anyone suggest a way for solve my problem?

Thanks.

'************** *************** *************** *************** ********
Here it the source code :

Private Sub caricaTRADEviaB atch()

Dim sQuery As String, bDelete As Boolean, bSalva As Boolean
Dim sDelete As String, sErr As String
Dim sName As String, sPath As String
Dim Fn, iConta As Integer, sTEXTLINE As String
Dim CONTA_TOT As Integer

Dim objRs As Recordset, cn As New ADODB.Connectio n

sQuery = "SELECT * FROM CEC.T2254_TRADE _GENER" & _
" WHERE C2254_AZIENDA_C = " & frmAvvio.codAzi enda &
_
" AND C2254_ANNO = " & frmAvvio.anno & _
" AND C2254_MESE = " & iMese
Set objRs = New ADODB.Recordset
cn.ConnectionSt ring = glo.sConnect
cn.Open
objRs.CursorLoc ation = adUseClient
objRs.Open sQuery, cn, adOpenStatic, adLockBatchOpti mistic,
adCmdText
Debug.Print objRs.EOF
Set objRs.ActiveCon nection = Nothing
cn.Close

Fn = FreeFile
sName = UCase(FilList.L ist(FilList.Lis tindex))
sPath = UCase(FilList.P ath) & "\"
CONTA_TOT = FileLen(sPath & "\" & sName) / 260

prbCarica.Heigh t = Me.cmdCarica.He ight + 50
prbCarica.ZOrde r
prbCarica.Min = 0
prbCarica.value = prbCarica.Min
prbCarica.Max = CONTA_TOT
prbCarica.Visib le = True

Open sPath & "\" & sName For Input As #Fn

Dim vCampi As Variant, vValore As Variant
Dim vElem, i As Integer

Do Until EOF(Fn)

iConta = iConta + 1
Line Input #Fn, sTEXTLINE ' Read line into variable.
vElem = Split(sTEXTLINE , ";") 'da 0 a 44 (45 colonne)
If iConta = 1 Then vCampi = vElem
prbCarica.value = iConta

If iConta > 1 Then
objRs.AddNew
For i = 0 To 44
vValore = vElem(i)
If Len(vValore) = 0 Then vValore = " "
vValore = Left(vValore, 32)
If IsNumeric(vValo re) Then
vValore = Replace(vValore , ",", ".")
End If
Select Case Trim(vCampi(i))
Case "IMPOSTA", "IVANOREC", "IMPONIVA"
vValore = " "
Case "CATMER", "IMP"
If Not IsNumeric(vValo re) Then
vValore = 0
End If
End Select

objRs(0) = frmAvvio.codAzi enda
objRs(1) = frmAvvio.anno
objRs(2) = iMese
objRs(3) = iConta - 1
objRs(4) = Date
objRs(5) = Time
objRs(6 + i) = vValore

Next i

End If
Debug.Print sTEXTLINE
DoEvents
Loop

cn.Open
Set objRs.ActiveCon nection = cn
objRs.UpdateBat ch

prbCarica.Visib le = False
Screen.MousePoi nter = vbDefault

End Sub

[Mark Yudkin]

Use the MS ADO over ODBC driver together withthe the IBM ODBC driver.

"Vascelli Germano" <gv*******@libe ro.it> wrote in message
news:39******** *************** ***@posting.goo gle.com...

I'm currently experiencing a problem using ADO 2.7 with DB2 7
(DB2 UDB FOR OS/390 V7). I use ODBC like datasource.
After populating a disconnected recordset, reconnecting it, and doing
a UpdateBatch the application (VB6) disappears - it just stops and
vanishes.
can anyone suggest a way for solve my problem?

Thanks.

'************** *************** *************** *************** ********
Here it the source code :

Private Sub caricaTRADEviaB atch()

Dim sQuery As String, bDelete As Boolean, bSalva As Boolean
Dim sDelete As String, sErr As String
Dim sName As String, sPath As String
Dim Fn, iConta As Integer, sTEXTLINE As String
Dim CONTA_TOT As Integer

Dim objRs As Recordset, cn As New ADODB.Connectio n

sQuery = "SELECT * FROM CEC.T2254_TRADE _GENER" & _
" WHERE C2254_AZIENDA_C = " & frmAvvio.codAzi enda &
_
" AND C2254_ANNO = " & frmAvvio.anno & _
" AND C2254_MESE = " & iMese
Set objRs = New ADODB.Recordset
cn.ConnectionSt ring = glo.sConnect
cn.Open
objRs.CursorLoc ation = adUseClient
objRs.Open sQuery, cn, adOpenStatic, adLockBatchOpti mistic,
adCmdText
Debug.Print objRs.EOF
Set objRs.ActiveCon nection = Nothing
cn.Close

Fn = FreeFile
sName = UCase(FilList.L ist(FilList.Lis tindex))
sPath = UCase(FilList.P ath) & "\"
CONTA_TOT = FileLen(sPath & "\" & sName) / 260

prbCarica.Heigh t = Me.cmdCarica.He ight + 50
prbCarica.ZOrde r
prbCarica.Min = 0
prbCarica.value = prbCarica.Min
prbCarica.Max = CONTA_TOT
prbCarica.Visib le = True

Open sPath & "\" & sName For Input As #Fn

Dim vCampi As Variant, vValore As Variant
Dim vElem, i As Integer

Do Until EOF(Fn)

iConta = iConta + 1
Line Input #Fn, sTEXTLINE ' Read line into variable.
vElem = Split(sTEXTLINE , ";") 'da 0 a 44 (45 colonne)
If iConta = 1 Then vCampi = vElem
prbCarica.value = iConta

If iConta > 1 Then
objRs.AddNew
For i = 0 To 44
vValore = vElem(i)
If Len(vValore) = 0 Then vValore = " "
vValore = Left(vValore, 32)
If IsNumeric(vValo re) Then
vValore = Replace(vValore , ",", ".")
End If
Select Case Trim(vCampi(i))
Case "IMPOSTA", "IVANOREC", "IMPONIVA"
vValore = " "
Case "CATMER", "IMP"
If Not IsNumeric(vValo re) Then
vValore = 0
End If
End Select

objRs(0) = frmAvvio.codAzi enda
objRs(1) = frmAvvio.anno
objRs(2) = iMese
objRs(3) = iConta - 1
objRs(4) = Date
objRs(5) = Time
objRs(6 + i) = vValore

Next i

End If
Debug.Print sTEXTLINE
DoEvents
Loop

cn.Open
Set objRs.ActiveCon nection = cn
objRs.UpdateBat ch

prbCarica.Visib le = False
Screen.MousePoi nter = vbDefault

End Sub