vc diz o componente ADODC? nao veio, tudo sql

Este erro dá-se qdo não há registros. Pode acontecer se vc fez o filtro e não retornou nenhum registro. Caso vc tenha feito uma pesquisa e sabe q existem registros conforme a sua pesquisa e deu este erro, por favor coloque o código de conexão do recordset "rscasas" e ao Banco de dados.

 

Qto a outra dúvida eu recomendo vc fazer um link da sua tabela a um Grid como o DataGridControl. Colocando os dados neste Grid vai aparecer os registros q vc quer assim q vc filtrar sendo desnecessário fazer uma pesquisa para mostrar os registros filtrados. Vc somente precisa, depois de fazer a conexão ao seu bco de dados, escrever esta linha, por exemplo:

 

Set DataGrid.DataSource = rscasas

 

sendo rscasas tipo ADODB.recordset

Procure este grid indo no menu "Projetct", clique em "Components..." procure por "Microsoft DataGrid Control 6.0 (OLEDB)".

 

t+

Voce disse "por favor coloque o código de conexão do recordset "rscasas" e ao Banco de dados." nao entendi direito vc quer q eu coloque a conexao com o banco de dados junto com o codigo? quanto ao datagrid eu coloquei akele codigo junto dele ainda nao esta funcionando, vei

Sim, todo o código. Gostaria q vc colocasse o mesmo código q vc fez ao rsApartamentos:

 

Dim rsApartamentos As ADODB.Recordset
Dim Bdimobiliaria As ADODB.Connection
 
Set rsApartamentos = New ADODB.Recordset
Set Bdimobiliaria = New ADODB.Connection
Bdimobiliaria.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:WINDOWSDesktopCópia de ImobiliariaBdimobiliaria.mdb"
rsApartamentos.CursorLocation = adUseClient
rsApartamentos.Open "select * from Tbl_Apartamentos", Bdimobiliaria
Set DataGrid.DataSource = rsApartamentos

 

Gostaria de saber se vc está fazendo desde jeito.

Ae veio eu to pondo o codigo no botao cmdpesquisar e tipo assim entro no form e ta la o codigo 1 qu é por ordem crescente eu vo no faze a pesquisa pelo codigo 2 la no datagrid o primeiro registro vai ser o 1 , tinha q aparecer somente o 2 no datagrid , pq era pra ser assim no form pra falar a verdade eu nem tava pensando em por datagrid pra visuallizar os dados se fosse somente no form tava bom pesquisase por codigo e so aparecesse os codigos pesquisados se tivesse mais q um codido por , ia paginando pelo recordset mesmo , mas eu coloquei o codigo assim no botao, e esta dando erro assim "Filter cannot be openned" e apontaeste codigo :".Filter = "Codigo Like '" & TxtPesquisar & "*'"

 

Dim texto As String
Dim rscasas As ADODB.Recordset
Dim Bdimobiliaria As ADODB.Connection
 
Set rscasas = New ADODB.Recordset
Set Bdimobiliaria = New ADODB.Connection
Bdimobiliaria.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:WINDOWSDesktopCópia de ImobiliariaBdimobiliaria.mdb"
rscasas.CursorLocation = adUseClient
rscasas.Open "select * from Tbl_Casas", Bdimobiliaria
Set DataGrid1.DataSource = rscasas

If Option1.Value = True Then

With rscasas
.Filter = "Codigo Like '" & TxtPesquisar & "*'"
.MoveMin
Do While Not .EOF
texto = !Codigo & " - " & !Descricao & vbCrLf & texto
.MoveNext
Loop
txtcod = texto

End With

End If

o codigo no gatagrid esta assim , obrigado eu nao conhecia deste jeito vei

Set rscasas.ADODB = Recordset
Set DataGrid1.DataSource = rscasas