Visual Basic - ¿Facil o sencillo?

Life is soft - evento anual de software empresarial
 
Vista:

¿Facil o sencillo?

Publicado por Silvia (3 intervenciones) el 06/12/2001 23:30:27
Hola a todos.

alguien tiene un codigo para subir / levantar un archivo de texto a una tabla acces?
es facil o sencillo?
gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:¿Facil o sencillo?

Publicado por BENJO (82 intervenciones) el 07/12/2001 13:35:29
Si utilizás ADO, es sencillo guardar y recuperar bases de datos de archivos de texto.

Para guardarla
MiTabla.Save "Base.txt"

Para recuperarla
MiTabla.Open "Base.txt"


Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Gracias BENJO pero...

Publicado por Silvia (3 intervenciones) el 07/12/2001 15:43:00
Gracias por constestarme en mi duda, pero la verdad soy principiante en vb y no entendi muy bien tu explicación y tengo dudas:

1 tengo que abrir la bd y la tabla (open tabe - open recordset)?
2 en que objetos pongo el codigo tabla1.save "archivo1.txt"
3 y en donde va tabla1.open "archivo1.txt"?.

podrias ser mas explicito por favor, te lo agradecere mucho.
silvia
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Gracias BENJO pero...

Publicado por BENJO (82 intervenciones) el 08/12/2001 13:49:28
Colocá en un form, dos commandButton
- al command 1 ponele el nombre "guardar"
y el command 2 el nombre "abrir"
y copia el siguiente código

Dim cnn1 As ADODB.Connection
Dim rstPublishers As ADODB.Recordset
Dim NewrstPublishers As ADODB.Recordset
Dim strCnn As String
Private Sub Command1_Click()
'Guarda el recordset
rstPublishers.Save "c:\Mitexto.txt"
End Sub
Private Sub Command2_Click()
'Inicializa el nuevo recordset y lo abre del archivo
Set NewrstPublishers = New ADODB.Recordset
NewrstPublishers.Open "c:\Mitexto.txt"
End Sub
Private Sub Form_Load()
' Abre una conexión.
Set cnn1 = New ADODB.Connection
cnn1.Provider = "Microsoft.Jet.OLEDB.3.51"
cnn1.Open (App.Path & "\" & "BIBLIO.mdb"), "admin", ""
' Abre la tabla Clientes
Set rstPublishers = New ADODB.Recordset
rstPublishers.CursorType = adOpenKeyset
rstPublishers.LockType = adLockOptimistic
rstPublishers.Open "Publishers", cnn1, , , adCmdTable
End Sub
'Antes de ejecutarlo tenés que ir al menú Proyecto-Referencias y agregar la referencia al objeto " Microsoft ActiveX data Objects 2.1 Library"

Espero que sea claro.
Cualquier cosa mandame un email y te envio el código.
Suerte
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar