 Autor
|
Tema: Base de Datos access con visual basic 6 (Leído 17,809 veces)
|
hannah
 Desconectado
Mensajes: 29
|
Hola Buenos Dias: Quiero hacer una base de datos donde pueda hacer altas, bajas, consultas y modificaciones de personas como una agenda o algo asi para despues irle moviendo, es decir estas aprendiendo.. Hasta ahorita tengo estes codigo k es para dar de alta si me lo ase bien me guarda lo que pido, pero quisiera saber como es para consultar dar de baja o modiicar espero que me ayuden.... Este es el codigo de alta: Dim SentenciaSQL As String
Dim Base As Database
'suponiendo que tienes un boton denominado command1, tendriamos:
Private Sub Command1_Click()
Dim Datos_1 As Recordset
Set Base = OpenDatabase("C:\BDPRUEBA.mdb", False, False, "")
SentenciaSQL = "Select * from DATOS"
Set Datos_1 = Base.OpenRecordset(SentenciaSQL)
Datos_1.AddNew
Datos_1(1).Value = Text1
Datos_1(2).Value = Text2
Datos_1(3).Value = Text3
Datos_1(4).Value = Text4
Datos_1(5).Value = Text5
Datos_1.Update
MsgBox "Datos Guardados", vbOKOnly + vbInformation
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text5 = ""
End Sub
Pero busco en internet que me aparcen codigos mas complicados, lo que quiero es por ejemplo decirle que busque por el nombre or ejemplo JOSE y me muestre los campos en text separados y de ahi poder modificar y despues guardar los cambios Muchas Gracias por su ayuda
|
|
|
|
|
En línea
|
|
|
|
hannah
Desconectado
Mensajes: 29
|
Ya tengo el codigo, pero me pone solamente a la primero persona quiero saber como se le hace pra que me ponga una sola persona que yo le de por ejemplo JOSE, se que es con un where pweo cuando se lo pongo le pongo asi: Nombre = text6.Text Me marca que esperaba mas parametros en la siguiente linea que esta pasando. Ahi les dejo el codigo
Private Sub Command2_Click()
Dim Datos_1 As Recordset
Set Base = OpenDatabase("C:\BDPRUEBA.mdb", False, False, "")
SentenciaSQL = "Select * from DATOS"
Set Datos_1 = Base.OpenRecordset(SentenciaSQL)
Datos_1.Edit
Text11.Text = Datos_1(1).Value
Text7.Text = Datos_1(2).Value
Text8.Text = Datos_1(3).Value
Text9.Text = Datos_1(4).Value
Text10.Text = Datos_1(5).Value
Datos_1.Update
MsgBox "Datos Guardados", vbOKOnly + vbInformation
End Sub
|
|
|
|
|
En línea
|
|
|
|
|
seba123neo
|
Hola, yo te puedo ayudar en esto, primero veo que usas DAO para conectarte..
te recomendaria usar ADO...
que la base de datos este en la carpeta de tu proyecto y no en una ruta de tu PC y despues la cargas con App.Path..
que cuando hagas referencia a un campo trata de no poner el indice...Datos_1(1).Value, sino el nombre del campo...Datos_1("codigo")...tampoco hace falta el .Value
que crees funciones o simplemente un sub...por ejemplo para borrar los datos de los textbox..en vez de limpiar los txt linea por linea despues de un alta o lo que sea...
los codigos que decis que encontras y son complicados , deben ser de ADO..pero para nada complicado es mas son re-entendible por lo menos para mi...una vez que le hagarras la mano ni necesitas buscar nada...te acordas de como hacer todo...
veo que queres mostrar los campos en textbox y de ahi ir avanzando y retrocediendo registros..esa forma es buen a...pero para mi lo mejor de todo es usar una grilla..ahi te lista todo y el usuario tiene todos los registros a la vista...aparte si buscas y tenes 50 personas con el nombre "jose" podes verlas y editar la que quieras...
para hacer una baja, o modificacion simplemente lo haces ejecutando un comando a la base de datos...o sea una consulta SQL UPDATE,DELETE...y listo..ni siquiera es necesario usar el .AddNew o el .Update...
saludos.
|
|
|
|
|
En línea
|
|
|
|
ssccaann43 ©
Desconectado
Mensajes: 792
¬¬
|
|
|
|
|
|
En línea
|
 - Miguel Núñez Todos tenemos derechos a ser estupidos, pero algunos abusan de ese privilegio... "I like ^TiFa^" |
|
|
hannah
Desconectado
Mensajes: 29
|
Muchas Gracias pro sus repuestas, baje el codigo lo corri y me parece mui mui bien a lo que necesitaba, solo me falta estudiar el codigo para saber como se usa y asi de esta manera implementar mas kosas. En si no es algo k necesite es solo que quiero estar aprendiendo y estar moviendo codigo..,
Muchisisimas Gracias
|
|
|
|
|
En línea
|
|
|
|
|
seba123neo
|
el ejemplo que te puso ssccaann43 es perfecto para aprender, es lo mas basico que vas a encontrar sobre ADO...
|
|
|
|
|
En línea
|
|
|
|
|
| Mensajes similares |
|
Asunto |
Iniciado por |
Respuestas |
Vistas |
Último mensaje |
|
|
|
xfa un codigo en visual basic 2010 para abrir base de datos
.NET (C#, VB.NET, ASP)
|
duckcrazy
|
2
|
4,473
|
28 Noviembre 2011, 20:45 pm
por duckcrazy
|
|
|
|
Access 2007 y visual basic 2008, error ar guardar lo datos
Dudas Generales
|
01munrra
|
2
|
4,638
|
11 Febrero 2012, 20:49 pm
por 01munrra
|
|
|
|
Como modificar una tabla de una base de datos en btrieve desde Visual Basic.NET
.NET (C#, VB.NET, ASP)
|
superjuanito88
|
0
|
2,746
|
12 Febrero 2012, 20:14 pm
por superjuanito88
|
|
|
|
base de datos en visual basic
« 1 2 »
Programación Visual Basic
|
themindmaster
|
11
|
6,706
|
29 Noviembre 2013, 02:03 am
por Vaagish
|
|
|
|
Cambiar contraseña en Visual Basic 2013 de una base Access 2010 (ADO.NET)
.NET (C#, VB.NET, ASP)
|
Tazmania40
|
0
|
2,535
|
21 Febrero 2016, 20:08 pm
por Tazmania40
|
 |
