Consulta también:
- Manipular Base de Datos de Access con VB6.0
- Access descargar - Programas - Bases de datos
- Enlazar datos de una hoja de excel a otra automáticamente - Guide
- Descargar base de datos kiwix - Programas - Otros
- Descargar base de firmas de virus eset nod32 gratis en cuba ✓ - Foro Software
- Pila placa base - Guide
4 respuestas
crazyzero
Mensajes enviados
13
Fecha de inscripción
domingo, 7 de junio de 2009
Estatus
Miembro
Última intervención
jueves, 23 de julio de 2009
35
7 jun 2009 a las 06:25
7 jun 2009 a las 06:25
talves esto te ayude un comanbuton para agragar un rejistro, el codigo es el siguiente:
Adodc1.Recordset.AddNew
para modificar un registro es
Adodc1.Recordset.Update
para eliminar un rejistro es
Adodc1.Recordset.Delete
espero y te aya ayudado =)
Adodc1.Recordset.AddNew
para modificar un registro es
Adodc1.Recordset.Update
para eliminar un rejistro es
Adodc1.Recordset.Delete
espero y te aya ayudado =)
su pongamos q tenemos una base de datos llamada clientes con los sigtes campos: codcliente-nombre-apellido-telefono.
la busqueda se realizaria de a sigtes forma:
realiza la busquedad
rs.find("codcliente")='" & txtbusqueda.text "'" & ,,,1
si la busquedad tiene exito muestra los datos
if rs.BOF=false and rs.EOF then
tnombre.text=rs.fields("nombre")
tapellido.text=rs.fields("apellido")
ttelefono.text=rs.fields("telefono")
end if
espero q te ayude es te codigo.
la busqueda se realizaria de a sigtes forma:
realiza la busquedad
rs.find("codcliente")='" & txtbusqueda.text "'" & ,,,1
si la busquedad tiene exito muestra los datos
if rs.BOF=false and rs.EOF then
tnombre.text=rs.fields("nombre")
tapellido.text=rs.fields("apellido")
ttelefono.text=rs.fields("telefono")
end if
espero q te ayude es te codigo.
Hola que tal mi nombre es Mariuxi Jimbo, y tengo un codigo que de pronto pueda ayudarte, lo primero que tienes que hacer es enlazar los text donde quieres q se visualice la información con un adodc1, posteriormente crea un boton y ahi pones el siguiente codigo, este codigo te realizara una búsqueda y si encuentra en base de datos los datos los viisualizara.
On Error GoTo BuscarErr
Dim auxced As String
Dim auxcon As String
auxced = InputBox("Ingresar Cedula a buscar: ", "Busqueda", "0")
auxcon = "num_ced like '" & Trim(auxced) & "'"
Adodc1.Recordset.Find auxcon
If Adodc1.Recordset.EOF Or Adodc1.Recordset.BOF Or (Label2 <> auxced) Then
MsgBox "No existe el dato buscado"
End If
Exit Sub
BuscarErr:
MsgBox Err.Description
On Error GoTo BuscarErr
Dim auxced As String
Dim auxcon As String
auxced = InputBox("Ingresar Cedula a buscar: ", "Busqueda", "0")
auxcon = "num_ced like '" & Trim(auxced) & "'"
Adodc1.Recordset.Find auxcon
If Adodc1.Recordset.EOF Or Adodc1.Recordset.BOF Or (Label2 <> auxced) Then
MsgBox "No existe el dato buscado"
End If
Exit Sub
BuscarErr:
MsgBox Err.Description