elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Guía actualizada para evitar que un ransomware ataque tu empresa


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  AYUDA CON VALIDACION Y BUSQUEDA EN BASE DE DATOS
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: AYUDA CON VALIDACION Y BUSQUEDA EN BASE DE DATOS  (Leído 2,321 veces)
CARRY-ON

Desconectado Desconectado

Mensajes: 199



Ver Perfil
AYUDA CON VALIDACION Y BUSQUEDA EN BASE DE DATOS
« en: 3 Octubre 2007, 07:11 am »

OLA TENGO UN FORMULARIO QUE GUARDA LOS DATOS EN UNA BASE DE DATOS

pero necesito que antes de guardar verifique que algunos datos no esten actualmente en la base de datos

ejmplo

tengo un txt que me pide un nombre y pongo manuel pero al guardar si ya hay un nombre manuel me de un mensaje de advertencia y tenga que poner otro nombre que no este en la base de datos


En línea

abel_c_b

Desconectado Desconectado

Mensajes: 91



Ver Perfil
Re: AYUDA CON VALIDACION Y BUSQUEDA EN BASE DE DATOS
« Respuesta #1 en: 3 Octubre 2007, 16:19 pm »

estas seguro que quieres hacer eso? por ejemplo si tu aplicacion esta corriendo en una empresa en donde hay varias personas que se llaman manuel, les sacara una advertencia, no creo que eso deba ser un problema, el problema seria por ejemplo si escriben dos veces el numero de identificación, eso si seria un problema, saludos y me comentas


En línea

zXxOsirisxXz

Desconectado Desconectado

Mensajes: 50



Ver Perfil
Re: AYUDA CON VALIDACION Y BUSQUEDA EN BASE DE DATOS
« Respuesta #2 en: 4 Octubre 2007, 07:26 am »

Perdona por no tener una respuesta directa..

Pero, me dieron BD~VB en el cole hace tiempo, y ps, ise eso mismo, pero con un comando llamado EOF/BOF si puedes, buscate info sobre el. Son como para buscar de arriba a abajo la BD para no tener problemas con me parece.

Salu2
En línea

Hans el Topo


Desconectado Desconectado

Mensajes: 1.752


"Estoy cansado de no hacer nada"


Ver Perfil WWW
Re: AYUDA CON VALIDACION Y BUSQUEDA EN BASE DE DATOS
« Respuesta #3 en: 4 Octubre 2007, 11:52 am »

tan simple como hacer una consulta mirando en la base de datos si existe ya ese dato...
si existe sacas mensajito sino no lo sacas e insertas

para hacer consultas y demás busca por el forito,
también puedes poner se cambo de clave primaria asi te dará petardazo al meter dos datos iguales, controlando el error podrías mostrar el mensajito
on error goto actimel:

tu codigo

Código:
exit sub
actimel:
   if err.number=nomacuerdo que error es
             msgbox "ERROR! El nombre " & txtnombre & " ta duplicado. "
             txtnombre=""
   endif
endusb
En línea

 
CeLaYa


Desconectado Desconectado

Mensajes: 543



Ver Perfil
Re: AYUDA CON VALIDACION Y BUSQUEDA EN BASE DE DATOS
« Respuesta #4 en: 5 Octubre 2007, 02:33 am »

eso es facil, puedes hacer una consulta SQL para que busque registros si encuentra alguno que te mande el mensaje de error, en caso contrario que lo agrege..
En línea

"La soledad es el elemento de los grandes talentos".
Cristina de Suecia (1626-1689) Reina de Suecia.
CARRY-ON

Desconectado Desconectado

Mensajes: 199



Ver Perfil
Re: AYUDA CON VALIDACION Y BUSQUEDA EN BASE DE DATOS
« Respuesta #5 en: 12 Octubre 2007, 20:49 pm »

eso es facil, puedes hacer una consulta SQL para que busque registros si encuentra alguno que te mande el mensaje de error, en caso contrario que lo agrege..

pero no se donde colocar la consulta ni como redactarla  :(
En línea

CeLaYa


Desconectado Desconectado

Mensajes: 543



Ver Perfil
Re: AYUDA CON VALIDACION Y BUSQUEDA EN BASE DE DATOS
« Respuesta #6 en: 17 Octubre 2007, 03:51 am »

la consulta la pondrias antes de guardar tu registro. si posteas el código que tienes para guardar ayudaría mucho para decirte como debes hacerlo, pero mientras te dejo algo:

para buscar si el registro existe más o menos deberás hacer lo siguiente:
Código:

...'Abres tu bd

'Abres tu tabla por medio de una consulta
Set tb = bd.OpenRecordSet("SELECT * FROM Tabla WHERE Nombre = '" & txtNombre.text & "';")

if tb.RecordCount > 0 then ' si encontro registros se supone debe mandarte un mensaje de error.
     msgbox "ERROR! El nombre " & txtnombre & " ta duplicado. "
             txtnombre.text=""
else
     .'aqui guardas
     tb.Addnew....
end if

...'Cierras tu bd




En línea

"La soledad es el elemento de los grandes talentos".
Cristina de Suecia (1626-1689) Reina de Suecia.
TyMeS


Desconectado Desconectado

Mensajes: 343



Ver Perfil
Re: AYUDA CON VALIDACION Y BUSQUEDA EN BASE DE DATOS
« Respuesta #7 en: 17 Octubre 2007, 11:53 am »

Hace tiempo que no toco BDD, pero eso no sería quizás más comodo el hacerlo mediante triggers en la BDD y después capturar excepciones en la aplicación¿?
En línea

Es más grande el hombre que se levanta, que el que no ha caído.
LICHONGO

Desconectado Desconectado

Mensajes: 13


Ver Perfil
Re: AYUDA CON VALIDACION Y BUSQUEDA EN BASE DE DATOS
« Respuesta #8 en: 17 Octubre 2007, 14:36 pm »

hola que tal yo aprendi visual de una manera muy rara a eso me refiero que no se nada de SQL de ADO ni de DAO cuando me hablan de eso no se ni que es
pero he realizado aplicaciones y me funcionan

lo primero que hago en una aplicacion es añadir un control Data y lo quito esto es para poder crear las variable de la base da datos y la de la tabla

el codigo seria algo como asi

__________________________________________________________________
General            Declaraciones 'esto no es el codigo esto es donde se declaran las variables


Public db As Database 'esta variable es para la base de dato
Public rt As Recordset 'esta variable es para la tabla
Public Band as Boolean 'esta variable es para hacer la busqueda
Public resp As String  'esta vairable es para carateres

'para abrir la base de datos primero la buscamos en la raiz del programa
If Right(App.Path, 1) = "\" Then
    Set db = OpenDatabase(App.Path + "MI Base de Datos.mdb") 'con esto la abrimos
Else
    Set db = OpenDatabase(App.Path + "\MI Base de Datos.mdb") 'la diferecia esta en el (\) antes del nombre de la BD
End If
Set rt = db.OpenRecordset("MI Tabla") 'aqui abrimos la tabla
' supongamos que nuestra tabla es de empleados
' y los campos sean Codigo, Nombres, Apellidos, Direccion, Telefono, Cargo, Fecha de Ingreso
' los campos en la programacion serian algo asi como
' Codigo = rt.Fields(0)
' Nombres = rt.Fields(1)
' Apellidos = rt.Fields(2)
' Direccion = rt.Fields(3)
' Telefono = rt.Fields(4)
' Cargo = rt.Fields(5)
' Fecha de Ingreso = rt.Fields(6)

'supongamos que tengamos un botton para agregar
'emplados, para esto escogemos un campo unico
'que seria el codigo este campo no ser repiete
'en nuestra tabla, los campos nombre, apellido
'direccion, telefono, cargo y fecha de ingreso
'si se pueden repetir
'para buscar si exite en la tabla hacemos un
'repetitivo con do while
resp = InputBox("Introduzca el codigo del empleado", "Ingreso de Nuevo Empledo")
If Len(Trim(resp)) = 0 Then
    MsgBox "Debe introducir un codigo para Ingresar Empleados", vbInformation, "Error Falta de Dato"
Else
    rt.MoveFirst
    band = True
    Do While (rt.EOF = False) And band 'esto repiete hasta que no sea fin de la tabla o Band=verdadero
        If UCase(Trim(rt.Fields(0))) = UCase(Trim(resp)) Then 'verifica si exite el dato
            MsgBox "Ese Codigo ya esta Registrado", vbInformation, "Fin de Busqueda"
            band = False 'si lo encuentra antes de fin de la tabla hacemos band=falso para salir del do while
        Else
            rt.MoveNext
        End If
    Loop
    If band Then
        MsgBox "Ese codigo no esta registrado", vbInformation, "Fin de Busqueda"
    End If
End If
En línea

CeLaYa


Desconectado Desconectado

Mensajes: 543



Ver Perfil
Re: AYUDA CON VALIDACION Y BUSQUEDA EN BASE DE DATOS
« Respuesta #9 en: 18 Octubre 2007, 21:48 pm »

LICHONGO ese código esta bien pero imaginate que  pasaría si la tabla contiene muchos registros... se tardaría un monton en recorrer cada registro, lo mejor es hacer uns consulta sql para checar ese dato:
Código:
Public db As Database 'esta variable es para la base de dato
Public rt As Recordset 'esta variable es para la tabla
Public Band as Boolean 'esta variable es para hacer la busqueda
Public resp As String  'esta vairable es para carateres

'para abrir la base de datos primero la buscamos en la raiz del programa
If Right(App.Path, 1) = "\" Then
    Set db = OpenDatabase(App.Path + "MI Base de Datos.mdb") 'con esto la abrimos
Else
    Set db = OpenDatabase(App.Path + "\MI Base de Datos.mdb") 'la diferecia esta en el (\) antes del nombre de la BD
End If

'supongamos que tengamos un botton para agregar
'emplados, para esto escogemos un campo unico
'que seria el codigo este campo no ser repiete
'en nuestra tabla, los campos nombre, apellido
'direccion, telefono, cargo y fecha de ingreso
'si se pueden repetir
'para buscar si exite en la tabla hacemos un
'repetitivo con do while
resp = InputBox("Introduzca el codigo del empleado", "Ingreso de Nuevo Empledo")
If Len(Trim(resp)) = 0 Then
    MsgBox "Debe introducir un codigo para Ingresar Empleados", vbInformation, "Error Falta de Dato"
Else
    'Aqui abrimos la tabla y checamos el dato.
    Set rt = db.OpenRecordset("SELECT * FROM MI Tabla" & _
                                            "WHERE rt!Nombre = '" & resp & "';")
    if rt.recordcount > 0 then ' Si recordCount es mayor a 0 entonces si hay un registro con ese nombre
           msgbox "Ese Codigo ya esta Registrado", vbInformation, "Fin de Busqueda"
     else
            rt.AddNew
            ......
      end if
end if       
' y no olviden cerrar la tabla y base de datos
rt.close
db.close
'Liberamos memoria
set rt = nothing
set db = nothing
En línea

"La soledad es el elemento de los grandes talentos".
Cristina de Suecia (1626-1689) Reina de Suecia.
Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines