COMO FAZER BOTAO CONSULTA COM ALGUNS CRITERIOS?

FERNANDOMOREIRA 05/04/2011 10:43:51
#370457
Bom dia,

Estou com uma pequena dificuldade, coisa de iniciante ma sque está me atrapalhando, já fiz pesquisas achei mta coisa mais leigamente não consegui adequar ao que eu quero.

é assim, estou fazendo um catálogo de livros, onde cosntam Código, Autor, Título, edição..., fiz quase tudo direitinho, Salvar, limpar, excluir, porém empaquei no consultar, pois eu consigo fazer a consulta simples, por código pois é mais precisa, porém gostaria de fazer a consulta ou por autor, ou por Titulo...

Dessa maneira: o usário Clica em Consultar, abre uma tela com duas opções de consulta: [Ô]Autor[Ô] ou [Ô]Título[Ô] ele seleciona autor, e escolhe José. Dai irá aparecer uma lista com os nomes de José de Alencar e José Americo de Almeida e suas obras em uam tabela do tipo grid. NEsse caso se ele pesquisar só José.

Mas se ele colocar José de Alencar aparecerão as obras apenas de José de Alencar, ele clicaria e voltaria a tela inicial com os devidos campos preenchidos para fazer Alteração, exclusão etc.

Espero ter sido um pouco claro ou pouco confuso, não é trabalho de faculdade, apenas preciso disso para ver se consigo um trieinamento.

Estou usando o VB6 com banco access, sem consulta sql, encontrei esse post aqui do Macoratti, é o que preciso mais estou me mordendo nele.

http://www.macoratti.net/vb6grids.htm

agradeço a quem puder ajudar.
FERNANDOMOREIRA 05/04/2011 10:45:48
#370458
Consegui mais ou menos o que eu quero, como eu sei pouco de sql estou me pegando um pouco, mais este codigo abaixo tem o que eu preciso, mas existe umas ressalvas:


Duvidas:

1 - Ele soh aceita pesquisa por codigo numerico, mas eu preciso pesquisar por letras, nem que eu faca um formulario para cada tipo de pesquisa individual (Ex.: frmPesquisaAutor, frmPesquisaTitulo...)

2 - O formulario de pesquisa eh um, e o formulario de cadastro, exclusao alteracao eh outro, o que eu estou tentando fazer e n consigo, talvez seja ateh facil, eh ao efetuar uma pesquisa, preencha o grid com os dados, beleza, neste codigo isso jah eh feito isso, mas gostaria de saber como posso clicar em uma determinada linha do grid, e ao clicar nesta linha, os dados dela passem para o outro formulario para dai fazer as alteracoes.

Agradeco a quem puder ajudar.

Aqui estah ai exemplo:
http://www.scriptbrasil.com.br/download/codigo/4722/

Amigo se nao for pedir d+ vc poderia implementar este seu codigo no exemplo soh para eu saber como faco, se nao for possivel eu entendo. grato
FERNANDOMOREIRA 05/04/2011 11:13:26
#370462
não consigo abrir uso o VB6
GUTOTEC 05/04/2011 11:34:34
#370464
utilizando um combo - CmbCriterio.e um textbox TxtCriterio

No form do LOAD
Citação:

CmbCriterio.AddItem [Ô]Todos[Ô] [ô]0
[ô] CmbCriterio.AddItem [Ô]Data[Ô] [ô]1
CmbCriterio.AddItem [Ô]nomalun[Ô] [ô]2
[ô] CmbCriterio.AddItem [Ô]hora[Ô] [ô]3




No Botao Buscar

Citação:

Dim SQL As String, filtro As String
Dim rs As New ADODB.Recordset


Select Case CmbCriterio.ListIndex
Case 0
filtro = [Ô][Ô]
[ô]Case 1
[ô] filtro = [Ô]where Data=#[Ô] & Format(TxtCriterio.Text, [Ô]mm/dd/yyyy[Ô]) & [Ô]#[Ô]
Case 1
[ô]Case 2
filtro = [Ô]where nomalun like [ô]%[Ô] & TxtCriterio.Text & [Ô]%[ô][Ô]
[ô]Case 3
[ô] filtro = [Ô]where Hora=#[Ô] & Format(TxtCriterio.Text, [Ô]hh:nn:ss[Ô]) & [Ô]#[Ô]


End Select

SQL = [Ô] Select * from frequencia [Ô] & filtro & [Ô] order by dtdia ,hora[Ô]
rs.Open SQL, conexao



após isso é alimentar a Grid com o Record Set
FERNANDOMOREIRA 06/04/2011 11:13:21
#370597
obrigado, a duvida 1 já resolvi, foi algo com as aspas, vou agora ver a 2.


Valeu cara!
Tópico encerrado , respostas não são mais permitidas