Programación General > Visual Basic 6.0 e inferiores

 Base De Datos Desde Access

(1/2) > >>

erick185:
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

jc_moty:
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:

erick185:
Hola creo que es ADO

Angel38:
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.

Angel38:
Se me olvidaba.

declara las variables en le formulario
GENERAL
Dim conexion As New ADODB.Connection
Dim registro As New ADODB.Recordset

Navegación

[0] Índice de Mensajes

[#] Página Siguiente