SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: erick185 en Domingo 15 de Enero de 2006, 22:04

Título: Base De Datos Desde Access
Publicado por: erick185 en Domingo 15 de Enero de 2006, 22:04
Hola a todos, como puedo guardar los datos de vb  hacia access, en access tengo estos campos "codigo", "nombre", "apellidos" y "telefono" y en visual basic  tengo 4 txt, dos botones (guardar, buscar), cuando presione el boton "guardar " la informacion debe quedar guardad en la base de access, y cuando persione el boton "buscar" que me permita buscar el nombre por medio del codigo que le di, pero no se como hacer que los nombres se guarden por medio del codigo que le quiera dar, y asi a la hora de buscar solo  tenga que escribir el codigo presionar el boton y que me aparesca los datos de cada nombre.

espero que me ayuden y salu2
Título: Re: Base De Datos Desde Access
Publicado por: jc_moty en Lunes 16 de Enero de 2006, 04:09
Bueno, para darte la respuesta que buscas seria bueno que aclararas si utilizas ADO o DAO...
Asi que, si puedes aclararnos esta duda, mucho que mejor.

Saludos :hola:
Título: Re: Base De Datos Desde Access
Publicado por: erick185 en Martes 17 de Enero de 2006, 18:12
Hola creo que es ADO
Título: Re: Base De Datos Desde Access
Publicado por: Angel38 en Martes 17 de Enero de 2006, 18:51
Hola Erick :hola:

Espero te encuentres bien.

No se en realidad que tanto conocimiento tengas de DAO, la ayuda que te voy a dar es solo si conoces sobre codigo SQL.

Puedes hacer esto.

[CODE]
Private Sub btnguardar_Click()
on error goto error
Set conexion = New ADODB.Connection
Set registro = New ADODB.Recordset

conexionbd.Open "c:/Base de datos"
'truco para generar el codigo iniciado desde 1
sql1 = "select max(codigo) as maximo from nombre_tabla"
registrobd.Open sql1, conexionbd
error:
If Err = 94 Then
   ID = 1
End If
ID = CInt(registrobd!maximo) + 1
'grabar en la bd
SQL = "insert into nombre_tabla " & _
"values ('" + Str(ID) + "','" + texnombre + "','" + texapellidos + "','" + texttelefono + "')"

conexionbd.Execute SQL
conexionbd.Close
MsgBox "Datos guardados Satisfactoriamente", vbInformation
End If
End Sub

private sub btnbuscar_click()
Set conexion = New ADODB.Connection
Set registro = New ADODB.Recordset
conexionbd.Open "c:/Base de datos"
'debes selleccionar el codigo, aunque te sugiero que lo busques por el nombre ya que se memoriza mejor

SQL="Select * nombre_tabla where codigo =txtcodigo.text"
conexionbd.Execute SQL

While not registro.EOF
     txtnombre.text=!Nombre
     txtapellidos.text=!Apellido
     txttelefono=!telefono
movenext
end while
conexionbd.Close


end sub


No se si te funcione a la primera, alguna duda dejame un mensaje en este foro.
Título: Re: Base De Datos Desde Access
Publicado por: Angel38 en Martes 17 de Enero de 2006, 18:55
Se me olvidaba.

declara las variables en le formulario
GENERAL
Dim conexion As New ADODB.Connection
Dim registro As New ADODB.Recordset
Título: Re: Base De Datos Desde Access
Publicado por: erick185 en Sábado 25 de Febrero de 2006, 05:20
Hola :hola:

Oye Gracias por tu ayuda, pues me fue de muchisima ayuda, cuidate.



Salu2
Título: Re: Base De Datos Desde Access
Publicado por: Angel38 en Sábado 25 de Febrero de 2006, 15:16
De nada.

:suerte: