Ola pessoal... eu de novo... me perdoem.. é que estou aprendendo por isso tenho tantas duvidas... e o que estou em duvida nao encontrei dicas..mas vamos lá..

Gostaria de saber se tem como fazer com que o DBGRID relacione apenas os registros

que eu "escolher". Por exemplo, listar todos os registros em que as pessoas tenham nascido em "Sorocaba" por exemplo.... alguem pode me dar mais essa dica por favor...

muito obrigado... desde ja!!!!

 

Amigo é aquele que chega, quanto todos ja se foram!!!!

Ok colega, aqui vou usar um exemplo usando ADO (conexão ao BD via código) e usando um DataGrid q é um componente de uma versão superior ao DBGrid.

Exemplo:

 

Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset

 

*********************************************

No evento Load do form as variáveis de conexão ao banco são inicializadas e é feita a conexão:

 

Private Sub Form_Load()

Set cnn = New ADODB.Connection

'Conexão ao banco
cnn.Provider = "Microsoft.Jet.OLEDB.4.0"
cnn.ConnectionString = "C:BD.mdb"
cnn.Open

End Sub
***************************************************

Consultando e mostrando o resultado no grid:

 

Private Sub Command1_Click()
Set rs = Nothing
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.Open "select * from Tabela where cidade like '" & InputBox("Nome da cidade", "Consulta") & "%'", cnn
Set DataGrid1.DataSource = rs
End Sub

*************************************************

 

Esta é uma forma de se fazer...Poderia usar um comando chamado "filter". Neste caso eu não necessitaria estar inicializando a variável "RS" toda hora para fazer a consulta, só q teria q abrir a tabela com todos os seus registros para o "filter" funcionar... deste jeito:

********************************************************

Declaração das variáveis:

 

Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset

*********************************************************

 

 

Set cnn = New ADODB.Connection

'Conexão ao banco
cnn.Provider = "Microsoft.Jet.OLEDB.4.0"
cnn.ConnectionString = "C:BD.mdb"
cnn.Open

 

rs.Open "select * from Tabela, cnn
Set DataGrid1.DataSource = rs
end sub

 

*********************************************************

Private Sub Command1_Click()

rs.Filter = "cidade like '" & InputBox("Nome da cidade", "Consulta") & "%'"
End Sub
********************************************************

 

Espero ter esclarecido as suas dúvidas

 

t+