Postada em 07/11/2005 11:06 hs
ve se te ajuda companheiro...
Dim rs As Recordset
On Error GoTo nErro
gbcadastro.Execute ("Delete * from Debitos")
Set rs = gbcadastro.OpenRecordset("Select * from debitos")
Dim linha As String, num As Integer
Dim Campo1 As String
Dim campo2 As String
Dim campo3 As String
Dim campo4 As String
Open "A:" & Text1.Text For Input As #1
num = 0
Do Until EOF(1)
Line Input #1, linha
Campo1 = Mid(linha, 1, 13)
campo2 = Mid(linha, 14, 7)
campo3 = Mid(linha, 21, 11) & "," & Mid(linha, 32, 2)
campo4 = Mid(linha, 34, 10)
Loop
blz
|
