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)