Programación General > Visual Basic 6.0 e inferiores

 Salvar Archivos A Disco

(1/1)

enri333:
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  :P

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 = "db.mdb"    base.Provider = "Microsoft.Jet.OLEDB.4.0"    base.ConnectionString = App.Path & "\" & txtConexion    base.OpenEnd 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, baseEnd 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.

 :hola:

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 StringEnd Type  
Form


--- Código: Text --- Private Sub Command1_Click()Dim Num As Integer, Cliente As Datos Num = FreeFile Cliente.nombre = Me.Text1Cliente.apellidos = Me.Text2Cliente.edad = Me.Text3 'Modo Binary o Random  Open App.Path & "\archivo.txt" For Binary As #Num     Put #Num, , Cliente.apellidos & "," & Cliente.nombre & "," & Cliente.edad  Close #Num   ' en Modo Output o Append ' Open App.Path & "\archivo.txt" For Append As #Num   ' Print #Num, Cliente.apellidos & "," & Cliente.nombre & "," & Cliente.edad ' Close #Num  End Sub  Private Sub Command2_Click()Dim Num As Integer, Cliente As Datos, Vcio Num = FreeFile Cliente.nombre = Me.Text1Cliente.apellidos = Me.Text2Cliente.edad = Me.Text3 'Lectura separada por comas'  Open App.Path & "\archivo.txt" For Input As #Num '   Input #Num, Cliente.apellidos, Cliente.nombre, Cliente.edad'  Close #Num'MsgBox "Nombre:" & Cliente.nombre & vbCrLf & " Apellidos " & vbCrLf & Cliente.apellidos & vbCrLf & "edad:" & Cliente.edad 'Lectura binaria  Open App.Path & "\archivo.txt" For Binary As #Num Len = LenB(Cliente)    Get #Num, , Cliente  Close #Num  MsgBox "Registro:" & Cliente.nombre   End Sub 
Espero te sirva
Suerte

Tambien busca sobre la funcion EOF

Navegación

[0] Índice de Mensajes