Problema con comprobacion de la existencia de un registro determinado
Publicado por jose antonio (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
la cadena de conexion con la base de datos es la siguiente:
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
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 DataSetadaptador.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.OleDbDataAdapterDim registro As New DataSet
Dim sql As String
Dim fechaSeleccionada As Date, edad As StringPrivate 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
0
