hola este es mi primer tema asi que intentare ser claro. estoy tratando de crear una funcion que busque en una tabla en este caso socios y me sale un error quye dice que no se han especificado valores estoy trabajando en visual basic 2010 y access 2007 espero sepan responderme ya que lo necesito por que es algo de la escuela
CODIGO:
Function buscar_registro(ByVal tabla As String, ByVal atributo As String, ByVal valor As String) As Boolean
'CONEXION
'instanciamos la conexion en una variable
Dim conexion As New OleDbConnection
'conecto con la base de datos
Dim DirecEjecucion As String = Application.StartupPath
conexion.ConnectionString = "provider=Microsoft.ACE.OLEDB.12.0; Data source =" & DirecEjecucion & "\AlquilerVideos.accdb; persist security info = false "
'CADENA SQL
Dim cadenaSQL As String
cadenaSQL = "SELECT * FROM " & tabla & " WHERE " & atributo & " = " & valor
'ADAPTADOR
Dim adaptador As New OleDbDataAdapter(cadenaSQL, conexion)
'DATA SET
Dim ds As New DataSet
'LLENAR DATA SET
'abre conexion
conexion.Open()
'adaptador llena de datos al dataset
adaptador.Fill(ds) 'ACA ES DONDE ME TIRA EL ERROR
'cierro la conexion
conexion.Close()
'CONTAR REGISTROS
If ds.Tables(0).Rows.Count = 0 Then
'NO ENCONTRO LOS DATOS
Return False
Else
''SI ENCONTRO EL REGISTRO
Return True
End If
End Function
espero su pronta respuesta gracias
