Autor Tema: Traer Datos De Una Base De Datos Acces (Leído 2153 veces)

Gabrielon · « **en:** Lunes 6 de Marzo de 2006, 02:27 »

Hola amigos de solocodigo, buenas noches, oigan con respecto al sistema que estoy haciendo estoy intentando, traerme los datos de la base de datos, pero no se como, por ejemplo, tengo txtNombre donde inserto los datos a la base, pero quiero poner una etiqueta, para que me los traiga de regreso lblNombre, pero al momento que escojo el nombre no me trae nada, el evento que utilizo despues de escoger un nombre es change, pero no se si este viendo, o ke codigo deberia de emplear para poder traerme los dastos....
de ante mano gracias...

Makko · « **Respuesta #1 en:** Lunes 6 de Marzo de 2006, 02:35 »

Yo hago asi.
Uso TextBox y un Data. Confuguro el data para que levante la Base de Datos (Propiedad DatabaseName y Recordsource) y despues, vas a las propiedades del TextBox y en la propiedad Datasource elijes el data como sea que se llame, por ejemplo "Data1", luego vas a la propiedad Datafield y ahi tras el campo que quieras de la Base de Datos.
Asi de simple.

Angel38 · « **Respuesta #2 en:** Lunes 6 de Marzo de 2006, 18:20 »

mmm..

Seria bueno que me mostraras el codigo que utilizas.

Puedes usar una instruccion SQL.

Tembien dime si trabajas con ADO o DAO.

Gabrielon · « **Respuesta #3 en:** Lunes 6 de Marzo de 2006, 20:28 »

Bueno... Angel38, no soy muy conocedor del tema, me he ido iniciando poco a poco, en esto de visual basic, en los foros he visto lo de ADO y DAO, pero en si no que para que es uno y para que es otro, ese es una, otra como he ido avando en mi sistema es a base de estar pruebe y pruebe y el codigo que utilizo para guardarlos en la base de acces es el siguiente:

Private Sub cmdArchivar_Click()
'DEConsulta.rsCmdAlumnos.Open
DEConsulta.rsCmdAlumnos.AddNew
DEConsulta.rsCmdAlumnos!Expediente = lblExpediente
DEConsulta.rsCmdAlumnos!FeEla = txtEva
DEConsulta.rsCmdAlumnos!Nombre = txtNombre
DEConsulta.rsCmdAlumnos!Paterno = txtPaterno
DEConsulta.rsCmdAlumnos!Materno = txtMaterno
DEConsulta.rsCmdAlumnos!Birthday = txtFeNa
DEConsulta.rsCmdAlumnos!Domicilio = txtDomicilio
DEConsulta.rsCmdAlumnos!Telefono = txtTel
DEConsulta.rsCmdAlumnos!Observaciones = txtObser
If cmbSexo.ListIndex > -1 Then
DEConsulta.rsCmdAlumnos!Sexo = cmbSexo.Text
End If
If cmbEdoC.ListIndex > -1 Then
DEConsulta.rsCmdAlumnos!EdoCivil = cmbEdoC.Text
End If
DEConsulta.rsCmdAlumnos.Update
'DEConsulta.rsCmdPacientes.Close
End Sub

ese el codigo que empleo, para llevarlo a la base y se me funciona, pero cuando los quiero traer, ahi es cuando battallo.
si pudieran tambien explicarme un pokito del ADO y DAO se los agradeceria mucho.

Angel38 · « **Respuesta #4 en:** Martes 7 de Marzo de 2006, 17:25 »

Hola Gabrielon.

Por razones de tiempo no puedo explicarte las diferencias entre DAO y ADO.

Lo unico que te dire es que DAO es un poco mas actual. y sirven para el manejo de bases de datos.

Mi respuesta te la daré en DAO

primero debes en el formulario "General "

'crear la cadena de coneccion y un recordset.

dim conexion as new adodb.connection
dim registro as new adodb.recordset

'Luego vete al boton

sub command1_clikc()

Set conexion = New ADODB.Connection
Set registro = New ADODB.Recordset

conexion.Open "Ruta_de_la_BD"
registro.Open "Select nombre, apellidos from cliente where codigocliente='"+ txtcodigo.text +"'", conexion

with registro
txtnombre.text=registro!nombre
txtapellidos.text=registro!apellidos
end with

end sub

Aprende a manejar SQL es lo mejor que puedes hacer como programador puesto que tu mismo controlas las acciones.

Espero te haya ayudado, alguna cosa que no entiendas dimelo.

Angel38 · « **Respuesta #5 en:** Martes 7 de Marzo de 2006, 17:30 »

Meti la "D" antes y la pata también

. es en ADO que está el codigo

Gabrielon

Angel38

Gracias por tu interes, ya he empezado ha leer algo de ADO y DAO y en cuanto a el codigo que me pusiste, dejame lo checo, y ya luego te digo como me fue.

SoloCodigo