Mensajes

necesito agregar , modificar y poder eliminar datos

Mira te muestro OTRA forma de hacerlo...

Investiga un poco sobre el Adodc, este objeto lo podes enlazar con la base de datos, tabla, etc.

Para agregar un registro nuevo a la tabla, usas:

Código [Seleccionar] Expandir

Adodc1.Recordset.AddNew

Para eliminar un registro, usas:

Código [Seleccionar] Expandir


Adodc1.Recordset.Delete adAffectCurrent

Para actualizar los datos:

Código [Seleccionar] Expandir

Private Sub CmdAceptar_Click()
    Adodc1.Recordset.Update 'Actualizas los cambios
    Adodc1.Refresh 'Refrescas el ado
End Sub


Y para cancelar cualquier acción:

Código [Seleccionar] Expandir

Private Sub CmdCancelar_Click()
    Adodc1.Recordset.Cancel 'Cancelando
    Adodc1.Refresh 'Refrescando
End Sub

Podes tener los texbox's enlazados a cada campo de la tabla, a través del Ado.

Prueba a ver que tal, ¡S4lu2!

Con lo de que si falta algo, me refiero a que no ponga @echo off
Si me lei algun manual de VB, pero no incluia nada sobre bucles

¿Qué? pero si yo aprendi mucho leyendo manuales bésicos, y recuerdo que en todos por ser manuales básicos, habian cosas básicas como esa (ya empiezo a redundar)... en fin...

http://mat21.etsii.upm.es/ayudainf/aprendainf/VisualBasic6/vbasic60.pdf

Ese es solo uno de los cientos de manuales que se pueden encontrar en la red... y tambien esta www.google.com, basta con colocar "bucle For en vb" y te llueven cantidades de ejemplos bien explicados... 

De verdad no quiero molestar con estos comentarios, pero cosas como estas:

Tengo un problema: ¿Como termino el bucle?, porque cada vez que intento iniciarlo me da error y dice: Error de compilación: For sin Next.

Se resuelven usando el buscador...

¡De verdad! sin animos de fastidiar, es solo un consejo para que mejores en tu aprendizaje...

Tengo un problema: ¿Como termino el bucle?, porque cada vez que intento iniciarlo me da error y dice: Error de compilación: For sin Next.
También falta una cosa: ¿Como puedo hacer que si en la primera linea falta algo, baje una linea y añada el @echo off?

Esto si que es muy básico, parece que no has leido ningún manual de inicio al vb y ya va llagando la hora... 

Un bloque For debe ser cerrado siempre por el next, por eso tu error:

Código [Seleccionar] Expandir

For I = Inicio To Fin
   ...
Next

Mira, este ejemplo usa iconos estándar como queres, probadlo:

http://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/375-crear-un-menu-con-un-formulario.htm

¡S4lu2!

¿Como puedo leer el texto de un archivo e introducirlo en un TextBox?

Código [Seleccionar] Expandir


Private Sub CmdAbrir_Click()
Dim Canal As Integer

    Canal = FreeFile 'Buscando un canal libre
   
    'Abriendo el archivo --> "Input"
    Open "c:\Archivo.txt" For Input As Canal
        'Pasando los datos al TexBox
        Text1.Text = Input$(LOF(Canal), #Canal)
    Close Canal 'Cerrando el archivo
End Sub

¡S4lu2!

Hola a todo el mundo.
Esto es más que nada una propuesta de proyecto que estoy interesado en averiguar o ver como se hace (cualquier source existente o que conozcais me vale, es para aprender a hacerlo)..
Mi proposito es crear una aplicacion que pida login en un formulario inicial para acceder a un formulario secundario que tiene el programa o utilidad en cuestion,a utilizar por el usuario.

Me encantaría ayudaros del todo, pero estoy un poco ocupado ahora mismo, os dejo un ejemplo sencillo que postie hace unos días:

http://foro.elhacker.net/index.php/topic,197745.msg940047.html#msg940047

Quizás os sirva, ¡S4lu2!

Bueno, pues el asunto lo deja claro, que no se como se ejecuta desde un programa hecho con VB 6 una aplicación batch de manera oculta...

Código [Seleccionar] Expandir

Shell "borrar.bat", vbHide

No tiene mas misterio...

¡S4lu2!

Escribe un programa que tome 2 numeros e indique si son enteros introducidos por el usuario mediante el teclado y los escriba en una etiqueta de mayor a menor separados por guiones.

¡Que tal así!

Código [Seleccionar] Expandir

Private Sub Command1_Click()
   'Indicamos si el valor del tex1 es entero o decimal
   MsgBox IIf(CInt(Val(Text1.Text)) = Val(Text1.Text), "El valor1 Es entero", "El valor1 No es entero")

   'Indicamos si el valor del tex2 es entero o decimal
   MsgBox IIf(CInt(Val(Text2.Text)) = Val(Text2.Text), "El valor2 Es entero", "El valor2 No es entero")

   'Mostramos los números ordenados de mayor a menor
   Label1.Caption = IIf(Val(Text1.Text) > Val(Text2.Text), Text1.Text & " - " & Text2.Text, Text2.Text & " - " & Text1.Text)
End Sub


Os tocara hacer las validaciones usando el evento KeyPress (del textbox ¡claro esta!).

¡S4lu2!

[Output:]

Con ese código consigo guardar el contenido del TextBox en un txt pero se crea un nuevo txt que borra el anterior cada vez que lo ejecuto y yo lo que necesito es que se añada lo que haya en el TextBox al txt sin perder lo que ya haya guardado, ¿Cómo puedo hacerlo?

Para solucionarlo lo que debes de hacer es usar Append y no Output.

- Output: (sobrescribirá) la información existente y si no existe creará un nuevo archivo.
- Append: como el Output, pero añadiendo la información al final del fichero, si este ya existe guarda la info sin tocar el contenido de los mismos.

Código (vb) [Seleccionar] Expandir

Open "c:\archivo.txt" For Append As #1
   Print #1, Text1.Text
Close #1

¡S4lu2!

"Comparar usuario y contraseña con la base de datos"

Este ejemplo es muy básico, en el form, un ComboBox y un TextBox.
El combo cargará desde la BD los usuarios registrados en la tabla "Usuario_Sistema"
En el TextBox se introducirá el password que posteriormente será verificado.

Código (vb) [Seleccionar] Expandir

Option Explicit
Public Conex As String 'Almacenará datos de conexión
Public RS As ADODB.Recordset 'Recordset

Private Sub Form_Load()
    Set RS = New ADODB.Recordset
   
    'Cadena de conexión
    Conex = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
    "Data Source=" & App.Path & "\BD.mdb;"
   
    'Abrimos la tabla "Usuario_Sistema" con el recordset
    RS.Open "Usuario_Sistema", Conex
        Combo1.Clear
        While Not RS.EOF
            'Añadimos el Id y el nombre de usuario al combo1
            Combo1.AddItem RS!Id_Usuario_Sistema & " - " & RS!Nombre_Usuario
            RS.MoveNext
        Wend
    RS.Close
End Sub

Private Sub CmdAceptar_Click()
Dim Id As Byte

    'Abrimos la tabla
    RS.Open "Usuario_Sistema", Conex, adOpenDynamic, adLockOptimistic
        RS.MoveFirst 'Nos movemos al primer registro
        'Extraemos el ID del usuario del combo1
        Id = Mid(Combo1.Text, 1, (InStr(Combo1.Text, "-")) - 2)
       
        'Buscamos el registro correspondiente, usando el ID que conseguimos
        RS.Find "Id_Usuario_Sistema = " & Id
       
        'Comparamos el campo contraseña con el password introducido en el textbox
        If RS!Contraseña_Usuario = Text1.Text Then
            MsgBox "contraseña correcta"
        Else
            MsgBox "La contraseña es incorrecta..."
        End If
    RS.Close
End Sub

Como el combo1 solo carga los registros existentes, es obvio que deberas tener un modulo donde se administren los usuarios del sistema, porque este es solo para limitar el acceso a aquellos que estan registrados.

El Id del usuario no es necesario cargarlo en el mismo combo1 junto con el nombre, podes tener un combo2, donde solo se agreguen los Id de cada registro de la tabla y a la hora de necesitar el id para buscar el registro y hacer comparaciones con el password, usar el contenido del mismo.

Medio enrredadito, ¿verdad? si no entendes algo, ¡avisas!

Espero os sea de ayuda, ¡S4lu2!