moduli!

[izzusan]

anche tu ha ragione

Dim fSetup As TextStream

x ora ho scritto sto codice


Option Compare Database
Option Explicit

Private Sub FileTxt()

Dim fsSetup As New FileSystemObject

Dim fSetup As TextStream

Dim rstSetup As New ADODB.Recordset

Dim strSql As String

Dim Campi As String

Dim mstrPathSetup As String

Dim codiceRiga As String

Dim ragSoc As String

Dim ragSoc2 As String

mstrPathSetup = app.Path & "\anagra.txt"


Set fSetup = fsSetup.OpenTextFile(mstrPathSetup, ForReading, False)



Do While fSetup.AtEndOfStream <> True

codiceRiga = fSetup.ReadLine

codiceRiga = Mid(riga, 1, 7)
mstrCnDb = fSetup.ReadLine


Loop



fSetup.Close

Set fSetup = Nothing

Set fsSetup = Nothing





Exit Sub


End Sub


puo' andare bene?

[Genius7115]

usa questo metodo

Dim Riga As String

On Error GoTo errore
  nrFile = FreeFile
  Open fSetDir & filetoOpen For Input As #nrFile
  While Not EOF(nrFile)
    Input #nrFile, Riga
    Parsing Riga
  Wend
  Close #nrFile
Exit Sub
errore:

dove Parsing è una funzione che manipola la riga, la divide con MID e la spedisce nel DB come meglio credi.

[Genius7115]

cerca di dividere il codice in più funzioni possibile!!
Lo spezzettare il codice per quello che deve fare ti faciliterà la sua manutenzione. E' il primo passo verso la programmazione OOP (a oggetti). Hehehehe fidati:tongue:

[izzusan]

grazie mille sei un grande scusa se ti ho disturbato ciaooooo

[izzusan]

grazie mille sei un grande scusa se ti ho disturbato ciaooooo