Tengo un programa que consulta por medio de SQL a tablas dbf, pero me entrega los registros deleteados, como puedo hacer para que no los muestre.
Este es mi codigo:
Dim oConn As ADODB.Connection
Dim oRs As ADODB.Recordset
Private Sub Command1_Click()
' Creo la cadena SQL
SQL = "SELECT valor,codvddor FROM contado2 " & _
"WHERE fechcomp Between #04/01/05#" & _
" And #04/01/05#;"
' Establecemos la conexión, indicando el nombre de la
' carpeta donde se encuentra el archivo dBASE
Set oConn = New ADODB.Connection
oConn.Open "Driver={Microsoft dBASE Driver (*.dbf)};" & _
"DBQ=J:\CTAS\HELLEN\;" & _
"Deleted=Yes"(esto no funciona)
' Abrimos un objeto Recordset con la base de datos dBASE
Set oRs = New ADODB.Recordset
oRs.Open SQL, oConn, , adLockReadOnly, adCmdText
If oRs.RecordCount <> 0 Then
oRs.MoveFirst
Do While Not oRs.EOF
MSFlexGrid1.AddItem oRs.Fields("codvddor") & Chr(9) & Format(oRs.Fields("valor"), "##,###")
oRs.MoveNext
Loop
End If
End Sub