SoloCodigo
Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado 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
-
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:
-
Hola creo que es ADO
-
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.
-
Se me olvidaba.
declara las variables en le formulario
GENERAL
Dim conexion As New ADODB.Connection
Dim registro As New ADODB.Recordset
-
Hola :hola:
Oye Gracias por tu ayuda, pues me fue de muchisima ayuda, cuidate.
Salu2
-
De nada.
:suerte: