Autor Tema: Salvar Archivos A Disco (Leído 1350 veces)

enri333 · « **en:** Martes 31 de Octubre de 2006, 16:05 »

Buenas:
La pregunta es sencilla, los datos que intoduzco en mi aplicación en forma de Textbox, combos, grids, etc. los quiero salvar en el disco en un archivo ¿en qué formato se deben guardar? me explico, ¿como archivo aleatorio separado por comas o tabuladores o con caracteres especiales y luego recuperarlos con split? (es lo que suelo hacer pero no sé si hay otros métodos mejores utilizo Char$28,29 y 30 como separadores) ¿como archivo secuencial? ¿binario? ¿algún otro? ¿y si hay imágenes? gracias.

ArKaNtOs

Puedes con una BD

lo mas recomendable si buscas el manejo ficheros es el manejo de ficheros secuenciales para cuando quieres guardar valores de Grid, ahora si son de varios TextBox y es para un uso como de propiedades del sistema o algo asi te conviene el manejo de ficheros binarios y separalos por chr 13 aunque tambien los que mencionas estan bien, y si hay imagenes solo guarda los path

Mollense

Como ha dicho mi amigo, lo más fácil es con una Base de datos.

Así te conectas con una DB Access que está en el mismo directorio que la aplicación.

Código: Text

 
Sub conectar(ByRef base As ADODB.Connection)
    ChDir (App.Path)
    Set base = New ADODB.Connection
    txtConexion = &#34;db.mdb&#34;
    base.Provider = &#34;Microsoft.Jet.OLEDB.4.0&#34;
    base.ConnectionString = App.Path & &#34;&#092;&#34; & txtConexion
    base.Open
End Sub
 
 

Así cargas los registros de una consulta.

Código: Text

 
Sub cargarRegistro(sql As String, ByRef reg As Recordset)
    On Error Resume Next
    If (reg.State) Then
        reg.Close
    End If
    reg.LockType = adLockPessimistic
    reg.Open sql, base
End Sub
 
 

Así ejecutas una sentencia SQL.

Código: Text

 
Sub goSQL(sql As String, ByRef base As ADODB.Connection)
    base.Execute (sql)
End Sub

PD: Debes agregar el control "Microsoft ADO Data Control 6.0 (ALEDB)" para que funcione.

Espero que te sirva.

F_Tanori

Hola

Pues si lo mejor es una BD
aqui hay unos ejemplos de como escribir y leer achivos

Modulo

Código: Text

 
Type Datos
    nombre As String
    apellidos As String
    edad As String
End Type
 
 

Form

Código: Text

 
Private Sub Command1_Click()
Dim Num As Integer, Cliente As Datos
 
Num = FreeFile
 
Cliente.nombre = Me.Text1
Cliente.apellidos = Me.Text2
Cliente.edad = Me.Text3
 
'Modo Binary o Random
  Open App.Path & &#34;&#092;archivo.txt&#34; For Binary As #Num
     Put #Num, , Cliente.apellidos & &#34;,&#34; & Cliente.nombre & &#34;,&#34; & Cliente.edad
  Close #Num
  
 ' en Modo Output o Append
 ' Open App.Path & &#34;&#092;archivo.txt&#34; For Append As #Num
   ' Print #Num, Cliente.apellidos & &#34;,&#34; & Cliente.nombre & &#34;,&#34; & Cliente.edad
 ' Close #Num
  
End Sub
 
 
Private Sub Command2_Click()
Dim Num As Integer, Cliente As Datos, Vcio
 
Num = FreeFile
 
Cliente.nombre = Me.Text1
Cliente.apellidos = Me.Text2
Cliente.edad = Me.Text3
 
'Lectura separada por comas
'  Open App.Path & &#34;&#092;archivo.txt&#34; For Input As #Num
 '   Input #Num, Cliente.apellidos, Cliente.nombre, Cliente.edad
'  Close #Num
'MsgBox &#34;Nombre:&#34; & Cliente.nombre & vbCrLf & &#34; Apellidos &#34; & vbCrLf & Cliente.apellidos & vbCrLf & &#34;edad:&#34; & Cliente.edad
 
'Lectura binaria
  Open App.Path & &#34;&#092;archivo.txt&#34; For Binary As #Num Len = LenB(Cliente)
    Get #Num, , Cliente
  Close #Num
  
MsgBox &#34;Registro:&#34; & Cliente.nombre
  
 
End Sub
 

Espero te sirva
Suerte

Tambien busca sobre la funcion EOF

SoloCodigo

Autor Tema: Salvar Archivos A Disco (Leído 1350 veces)

enri333

Salvar Archivos A Disco

ArKaNtOs

Re: Salvar Archivos A Disco

Mollense

Re: Salvar Archivos A Disco

F_Tanori

Re: Salvar Archivos A Disco