Opcion de Guardar y Cargar

[djboro88]

Hola buenas a todos/as, mi problema es el siguente:

Tengo este programita que he hecho, que lo que hace es sumar unas cantidades y si el usuario quiere le puede aplicar un porcentaje, al darle a "Calcular", pues hace sus funciones correctamente.

El programa funciona perfecto. Lo único que busco (de momento) es la opción de poder guardar la infromación. A su vez tambien la opcion de cargarla de nuevo, cada contenido en su campo correspondiente.

(pondría una imágen pero no me es permiido)

PD: De programación, concretamente de VB6, se lo "justito", es decir soy un novatillo en esto.

PD2: ¿Sería el mismo codigo para VB 2008?

Saludos y Gracias

[STK_Pablo]

Mirá, lo más sencillo que se me ocurre para tu caso es que a cada grupo de calculos les pongas un nombre y que guardes todo en un archivo .ini. Mas o menos podria quedarte algo así:

archivo.ini

[Grupo 01]
txtUno=10
txtDos=5
....=....

[Grupo 05]
txtUno=30
txtDos=51
....=....

etc....

Para poder programar ésto deberás valerte de llamadas a la api, usando los comandos savesetting y loadsetting, busca dentro de las faqs de éste mismo sitio que existen ejemplos....

[vicentecamesella]

Puedes crearte una base de datos en MySql o Acces creas un Odbc en el modulo de arranque lo que haces es esta linea en mi caso lo coloco en un modulo en sub main()
sub main()
With cn 'Creo la conexion a la base de datos
.CursorLocation = adUseClient
.ConnectionString = "SISADM"
.Open
End With
end sub

donde cn lo creo como una variable de tipo conexion de adodb

ahora bien en el boton de guardar creas esto

Sub insertar(Tabla As String, campos As String, Valores As String)
On Error GoTo ErrorSub 'Creo bloque para evitar salir del sistema en caso de error

cn.Execute " INSERT INTO `" & Tabla & "` (" & campos & ") VALUES " & _
"(" & Valores & ")"

Exit Sub
ErrorSub:
Call Error(Err.Description, Err.Number)


y para cargar creas un recordset que cargue los valores de tu base de datos y luego lo pasas al formulario ejemplo

donde rs la creo como una variable de tipo recordset de adodb

luego al momento del Load o Activate del formulario

If rs.State = adStateOpen Then
rs.Close
End If

strsql= "SELECT * FROM tabla"
rs.Open StrSql, cn, adOpenDynamic, adLockOptimistic

text1.text = rs!campo1
text2.text=rs!campo2

para crar las variables debes activar los componentes necesarios microsoft recordset 2.8
y microsoft ado algo.....

para crear las variables es asi

public cn as adodb.conectionstring
public rs as adodb.recordset

espero haberte ayudado

[djboro88]

Probare lo tuyo pablo, ya que lo veo mas sencillo, y por lo visto vicentecamesilla no ha leido la parte que dice que soy novatillo...

Ya os dire algo...

[djboro88]

Hola otra vez...

He estado buscando eso que me comentabas Pablo, pero sin éxito.
Varias cuestiones:

1ª.- De Visual tengo muy poca idea.
2ª.- ¿Donde escribo lo de los grupos (o como lo hago)?
3ª.- ¿Cómo lo guardo con extensión .ini?

Y supongo que lo de igualar los text a un numero será un suponer. Porque lo que quiero es que este vacios y para eso: text1.text=""

¿No?

PD: Si me puedes explicar paso a paso lo que debo de hacer, te lo agradecería mucho

*Utilizo Visual Basic 6, pero tambien tengo el 2008.

Gracias otra vez.

[vicentecamesella]

Entonces no pidas ayuda si la que te podemos dar no te gusta de echo por ser novatillo te lo explique hasta con comas...........

[djboro88]

Mira Vicente, no es que no quiera vuestra ayudam sino todo lo contrario, pero necesito algo sencillo y me parece que lo que me dice Pablo es mas sencillo, aun así tampoco me aclaro...

Pues con lo que tu me explicas aún menos... xD.
No te lo tomes a mal.

[djboro88]

Mirar haber si me podeis ayuda con esta idea que me ha surgido esta mañana...

Supongamos, que tengo 3 textbox y dos botones (guadar) y otro (cargar).

text1.text
text2.text
text3.text

El usuario iría rellenando los campos, y cuando él quisiera, que lo guardase de esta forma:

El text1 que se guarde en caja1.txt
El text2 que se guarde en caja2.txt
El text3 que se guarde en caja3.txt

(Se que si tengo 100 textbox, me voy a matar a escribir codigo, pero me da igual)


Y a la hora de cargar la informacion, que la informacion que haya en caja1.txt se cargue en text1
La caja2.txt en text2
Y la caja3.txt en text3

¿Eso sería posible hacerlo?

Saludos.

[David]

En las FAQ's hay un ejemplo de cómo guardar datos en archivos:
http://www.forosdelweb.com/2590739-post177.html

Saludos.

[djboro88]

Para escribir está claro, pero para poder mostrar el contenifo cada txt en su textbox correspondiente, ¿como lo hago?.

[David]

En el ejemplo que te mostré también está como leer los datos del archivo. Sólo necesitas usar Line Input #numfile para almacenar el contenido de la línea en una variable.

[djboro88]

¡¡¡ Ya he conseguido el codigo que necesitaba !!!

Solo hay un problemita, es que al crearme los .txt, les mete un Enter cuando acaba de escribir, claro al cargar los txt me los mete perfecto, pero al final de cada uno me introduce unos signos muy extraños.

El codigo que utilizo es:

Abrir

Código:

Private Sub Command1_Click()
Dim foo As Integer
    
    foo = FreeFile
    Open "C:\textbox1.txt" For Input As #foo
        Text1 = Input(LOF(foo), #foo)
    Close #foo
    
    Open "C:\textbox2.txt" For Input As #foo
        Text2 = Input(LOF(foo), #foo)
    Close #foo
    
    Open "C:\textbox3.txt" For Input As #foo
        Text3 = Input(LOF(foo), #foo)
    Close #foo
End Sub

Guardar

Código:

Private Sub Command2_Click()
Dim foo As Integer
    
    foo = FreeFile
    Open "C:\textbox1.txt" For Output As #foo
        Print #foo, Text1
    Close #foo
    
    Open "C:\textbox2.txt" For Output As #foo
        Print #foo, Text2
    Close #foo
    Open "C:\textbox3.txt" For Output As #foo
        Print #foo, Text3
    Close #foo
    
End Sub

Con el Multiline se soluciona.

Gracias por todo.

[David]

mmm... No necesitas tres archivos. Puedes guardar los datos en un único archivo:

Código vb:

Open "C:\Datos.txt" For Output As #1
Print #1, Text1.Text
Print #1, Text2.Text
Print #1, Text3.Text
Close #1
 

Y para leer:

Código vb:

Dim Linea As String
Open "C:\Datos.txt" For Input As #1
Line Input #1, Linea
Text1.Text = Linea
Line Input #1, Linea
Text2.Text = Linea
Line Input #1, Linea
Text3.Text = Linea
Close #1