Visual Basic.NET - Problema con comprobacion de la existencia de un registro determinado

   
Vista:

Problema con comprobacion de la existencia de un registro determinado

Publicado por jose antonio kokiujo@gmail.com (21 intervenciones) el 09/03/2016 13:50:58
En primer lugar gracias por acogerme en este foro, estoy realizando una aplicacion en vb.net 2005 para la gestion de una Base de Datos Access, en el formulario de altas, al introducir el dni que es la clave principal quiero en el evento lostfocus que compruebe la existencia o no del dni, pero me da un error de sintaxis que no veo por ningun lado

este es el codigo fuente

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub t_dni_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles t_dni.LostFocus
	Dim consulta As String
	Dim lista As Byte
	If t_dni.Text <> "" Then
		consulta = "SELECT * FROM miembros_club WHERE e-mail = " & t_dni.text & ""
		adaptador = New OleDb.OleDbDataAdapter(consulta, conex)
		registro = New DataSet
		adaptador.Fill(registro, "miembros_club") AQUI ERROR Error de sintaxis (falta operador) en la expresión de consulta 'c_dni = 14255278Q'.
		lista = registro.Tables("miembros_club").Rows.Count
	End If
	If lista <> 0 Then
		t_nombre.Text = registro.Tables("miembros_club").Rows(0).Item("c_nombre")
		t_apellidos.Text = registro.Tables("miembros_club").Rows(0).Item("c_apellidos")
		t_direccion.Text = registro.Tables("miembros_club").Rows(0).Item("c_direccion")
	End If
End Sub

la cadena de conexion con la base de datos es la siguiente:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Public Class altas
    ' Declaro e inicializo objeto para hacer la conexión a mi base de datos 
    Public conex As New OleDb.OleDbConnection("provider = microsoft.jet.oledb.4.0;data source= " + My.Application.Info.DirectoryPath + "\socios.mdb")
    Public comm As New OleDb.OleDbCommand
    Dim adaptador As New OleDb.OleDbDataAdapter
    Dim registro As New DataSet
    Dim sql As String
    Dim fechaSeleccionada As Date, edad As String
    Private Sub altas_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try
            ' Trato de abrir la conexión
            conex.Open()
            ' Inicializo el objeto Command
            comm.Connection = conex
            comm.CommandType = CommandType.Text
        Catch ex As Exception
            If Err.Number = 5 Then
                MsgBox("No se pudo encontrar el archivo de la base de datos", MsgBoxStyle.Exclamation, "Gestion Bases de Datos")
                End
            Else
                MsgBox(Err.Description, MsgBoxStyle.Exclamation, "Gestion Bases de Datos")
            End If
        End Try
    End Sub

por favor echarme una mano estoy desesperado llevo tres dia loco, y si no es pedir mucho me podiais orientar para que en el condicional If lista <> 0 Then compruebe que el campo logico c_baja si es false o no?? o en la misma instruccion Select * from

gracias de antemano a todos
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Hugo Correa

Problema con comprobacion de la existencia de un registro determinado

Publicado por Hugo Correa (72 intervenciones) el 09/03/2016 16:59:03
Pon apostrofe en la consulta después de email = ' "& t_dni.text & " ' "

consulta = "SELECT * FROM miembros_club WHERE e-mail = '" & t_dni.text & "' "
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
2
Comentar

Problema con comprobacion de la existencia de un registro determinado

Publicado por jose antonio (21 intervenciones) el 09/03/2016 19:23:00
muchisiiiiiimas gracias funciona
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Hugo

Problema con comprobacion de la existencia de un registro determinado

Publicado por Hugo (72 intervenciones) el 09/03/2016 23:41:33
Visita: http://vbpuntonet.blogspot.mx/

Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar