Problema al buscar registro en access
Publicado por Antonio (30 intervenciones) el 27/10/2014 19:39:44
Hola a todos, estoy haciendo una aplicación que trabaja con BBDD Access, y necesito buscar un registro para verificar si ya existe en mi Base de Datos o no.
He creado una función como siempre la he hecho, y hasta ahora con otras aplicaciones me ha funcionado, sin embargo para esta no me funciona y no se por que.
La función en cuestión es la siguiente :
Function Buscar_Registro(ByVal UK As String) As Boolean
Dim Conexion As New OleDb.OleDbConnection
Conexion.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Nino\Documents\Visual Studio 2013\Projects\StandarTimeNewProduct 3\DataBaseCMRT.accdb;Persist Security Info =False"
Dim CadenaSql As String = "SELECT * FROM Pipe WHERE UK =" & UK
Dim Adaptador As New OleDbDataAdapter(CadenaSql, Conexion)
Dim Ds As New DataSet
Conexion.Open()
Try
Adaptador.Fill(Ds) ' (ESTA LINEA ME DA ERROR!!)
Catch ex As Exception
MsgBox(ex.ToString)
End Try
Conexion.Close()
'AHORA HAY QUE VER SI EL DATASET NOS TRAE ALGUN REGISTRO
If (Ds.Tables(0).Rows.Count = 0) Then ' Si encontro el registro entonces(ESTA LINEA ME LA MARCA COMO ERROR)
MessageBox.Show("El registro no existe")
Return False
Else
MessageBox.Show("El registro SI existe")
Ds.Dispose() 'Destruimos el DataSet que hemos creado arriba para liberar memoria
Return True
End If
End Function
Y el error que me aparece es el siguiente " System.Data.OleDbException (0x80040E10) : No se han especificado valores para algunos de los parámetros requeridos."
Por favor podrian ayudarme si son tan amables? MUCHAS GRACIAS DE ANTEMANO!!
He creado una función como siempre la he hecho, y hasta ahora con otras aplicaciones me ha funcionado, sin embargo para esta no me funciona y no se por que.
La función en cuestión es la siguiente :
Function Buscar_Registro(ByVal UK As String) As Boolean
Dim Conexion As New OleDb.OleDbConnection
Conexion.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Nino\Documents\Visual Studio 2013\Projects\StandarTimeNewProduct 3\DataBaseCMRT.accdb;Persist Security Info =False"
Dim CadenaSql As String = "SELECT * FROM Pipe WHERE UK =" & UK
Dim Adaptador As New OleDbDataAdapter(CadenaSql, Conexion)
Dim Ds As New DataSet
Conexion.Open()
Try
Adaptador.Fill(Ds) ' (ESTA LINEA ME DA ERROR!!)
Catch ex As Exception
MsgBox(ex.ToString)
End Try
Conexion.Close()
'AHORA HAY QUE VER SI EL DATASET NOS TRAE ALGUN REGISTRO
If (Ds.Tables(0).Rows.Count = 0) Then ' Si encontro el registro entonces(ESTA LINEA ME LA MARCA COMO ERROR)
MessageBox.Show("El registro no existe")
Return False
Else
MessageBox.Show("El registro SI existe")
Ds.Dispose() 'Destruimos el DataSet que hemos creado arriba para liberar memoria
Return True
End If
End Function
Y el error que me aparece es el siguiente " System.Data.OleDbException (0x80040E10) : No se han especificado valores para algunos de los parámetros requeridos."
Por favor podrian ayudarme si son tan amables? MUCHAS GRACIAS DE ANTEMANO!!
Valora esta pregunta


0