Postada em 01/02/2005 11:54 hs
Faça Assim
'---------------------------------------------------------
Dim Rs as new ADODB.RecordSet
rs.fields.append "nome",advarchar,90
rs.fields.append "endereco",advarchar,90
rs.open
open "c: este.txt" FOR INPUT AS #1
do while EOF(i) = false
LINE INPUT #1, TEXTO
rs.addnew
rs(0) = mid(TEXTO,1,90)
rs(1) = mid(TEXTO,91,180)
rs.Update
Loop
Close #1
rs.moveMin
TExtBox1.DataSource = RS
TExtBox2.DataSource = RS
TExtBox1.DataField = RS(0).name
TExtBox2.DataField = RS(1).name
Ai nos Botoes de Navegação :
Rs.movenext
e
rs.MovePrevious
A idéia é esta, pulei alguns tratamentos de erros, mas o básico é isto !
 Eu sou o alfa e o ômega, o princípio e o fim, diz o Senhor, que é, e que era, e que há de vir, o Todo Poderoso. (Ap 1.8) 
|
