VB6 y Base de Datos

[plf84]

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 

[Red Mx]

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

[CeLaYa]

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

[plf84]

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

[CeLaYa]

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

[under!!!]

Aqui un ejemplo de creacion de credenciales escolares
form1

Código (vb) [Seleccionar] Expandir


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

Código (vb) [Seleccionar] Expandir


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

Código (vb) [Seleccionar] Expandir


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

[noob_Setup]

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

[under!!!]

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)