Foro de elhacker.net

Buenas, hay algun ejemplo simple, de un proyecto en VB6 que pueda editar agregar informacion de una base de datos y poder imprimirlos?

Desde ya, muchas gracias.
Saludos  :)

uta un monton desde simples hasta mas complejos pero ps ahora si men no te pases usa el buen google

http://www.google.com.mx/search?q=bases+de+datos+vb&ie=utf-8&oe=utf-8&aq=t&rls=org.mozilla:es-ES:official&client=firefox-a

si buscas en este for te encontraras un monton de post referentes a bases de datos

Muchas gracias por la contestacion! ya sabran que soy nuevo en esto!!  ;D
ya  le di un vistazo... ahora me pregunto... crear una aplicacion (compleja) con base de datos Access, es recomendable?

depende la cantidad de datos que vayas a manejar, tienes que ver y/o calcular que datos vas a manejar, cuanto va a crecer tu BD, si vas a manejar muchos registros te recomiendo y pienses en usar SQL Server

Aqui un ejemplo de creacion de credenciales escolares
form1

Private Sub Command1_Click()
If Data1.Recordset.EOF And Data1.Recordset.BOF Then
  Else
    Data1.Recordset.MoveFirst
      While Not Data1.Recordset.EOF
         If Text1(0) = Text2(0) Then
           MsgBox "El registro a cido guardado"
           Exit Sub
         Else
           Data1.Recordset.MoveNext
         End If
       Wend
End If
 
Data1.Recordset.AddNew
   For i = 0 To 7
     Text2(i) = Text1(i)
   Next i
Data1.Recordset.Update
Data1.Recordset.MoveFirst
MsgBox "El registro a sido añadido"
End Sub
 
Private Sub Command2_Click()
Form3.Show
End Sub
 
Private Sub Command3_Click()
For i = 0 To 7
Text1(i) = ""
Next i
End Sub
 
Private Sub Command4_Click()
Form2.Show
End Sub
 

Form 2

Private Sub Command1_Click()
Data1.Recordset.MoveFirst
   While Not Data1.Recordset.EOF
       If Text1 = Text2(3) Then
          For i = 0 To 7
             Form1.Text1(i) = Text2(i)
          Next i
          MsgBox "La busqueda a finalizado"
          Me.Hide
       End If
          Data1.Recordset.MoveNext
   Wend
End Sub
 

form 3

Private Sub Form_Load()
For i = 0 To 6
    T1(i) = Form1.Text1(i)
Next i
x = Form1.Text1(7) & ".jpg"
Image2 = LoadPicture("C:\Imagenes\" & x)
res = MsgBox("¿Realmente quiere imprimir la credencial?", vbYesNo, "Imprimir")
   If res = vbYes Then
      MsgBox "La credencial de " & vbCrLf & Form1.Text1(0) & vbCrLf & "a sido impresa", vbInformation, "Imprimiendo"
   Else
      MsgBox "Impresion cancelada", vbInformation, "Cancelando impresion"
      Me.Hide
   End If
 
End Sub
 

Ya solo conoecta los textbox ect

*Necesitas la carpeta "C:\Imagenes" para que funciones

Perdon pero no veo una sola consulta a una base de datos ahi, creo que este muchacho esta buscando ejemplos mas cercanos a una sql y si estas por hacer una aplicacion compleja tienes que tener 2 cosas en cuenta.

1- Acces te va a quedar chico
2- Necesitas leer muchisimo antes de escribir la primera linea de codigo

Saludos

noob_Setup:

Lo que estan pidiendo es un ejercicio simple y la consulta esta con un while en el form2 me parece y si acces queda chico en un sistema pero la que estan pidiendo es un EJERCICIO SIMPLE
Lee con mas atencion TODOS las mensajes (en especial el primero)