Hola amigos, estoy desarrollando un programa para acceder a una tabla .DBF y cuando ejecuto la sentencia me da el siguiente error: "La operación de múltiples pasos de OLE DB generó errores. Compruebe los valores de estado de OLE DB si es posible. No se realizó ningún trabajo.
La clave de búsqueda no se encontró en ningún registro."
Para que puedan tener una idea del problema les coloco el codigo completo del formulario
[Imports System.Data.OleDb
Imports System.Data
Public Class Form1
Private Sub btnAbrir_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnAbrir.Click
Dim dt As DataTable
Dim da As OleDbDataAdapter
Dim txtBase As String = "d:\temp\afiliado.dbf"
Dim sCnn As String = "Provider='Microsoft.Jet.OLEDB.4.0';Extended Properties=dBASE IV;Data Source=F:\Gesros"
' La cadena de selecci n
Dim sSel As String = "SELECT F1NUME FROM FACT01" ' WHERE F1FECH = #04/06/2012#" '& DateTimePicker1.Value.ToString("dd/mm/yyyy") & "#"
' Crear un nuevo objeto del tipo DataAdapter
'Dim Conexion As OleDbConnection 'conexion a la bd
'Conexion = New OleDbConnection(sCnn)
'Conexion.Open()
'Dim cmaCr As New OleDbCommand(sSel, Conexion)
'Dim registroCr As OleDbDataReader
'registroCr = cmaCr.ExecuteReader
'If registroCr.Read Then 'si hay registro
'txtSelect.Text = registroCr("SUN")
'End If
'registroCr.Close()
'Conexion.Close()
da = New OleDbDataAdapter(sSel, sCnn)
' Crear los comandos de insertar, actualizar y eliminar
Dim cb As New OleDbCommandBuilder(da)
' Como hay campos con caracteres especiales,
' al usarlos incluirlos entre corchetes.
cb.QuotePrefix = "["
cb.QuoteSuffix = "]"
' Asignar los comandos al DataAdapter
' (se supone que lo hace automñticamente, pero...)
'da.UpdateCommand = cb.GetUpdateCommand
'da.InsertCommand = cb.GetInsertCommand
'da.DeleteCommand = cb.GetDeleteCommand
'
' Esta base de datos usa el ID con valores automñticos
'da.MissingSchemaAction = MissingSchemaAction.AddWithKey
dt = New DataTable
' Llenar la tabla con los datos indicados
da.Fill(dt)
dgvDiarios.DataSource = dt
MsgBox("Conexi n realizada")
' Y mostrar el primer registro
' If dt.Rows.Count > 0 Then
' Dim uf As Integer = 0
'Dim kr As DataRow
' kr = dt.Rows(uf)
' MsgBox(kr.Item(2))
' End If
End Sub
End Class
]
con otra tabla anda perfecto
Espero sus respuestas
