Isasf Postado Abril 12, 2006 Denunciar Share Postado Abril 12, 2006 COMO FAÇO UM BOTÃO PARA LOCALIZAR (VB.NET) POR EXEMPLO NOME, ENDEREÇO, BAIRRO,... ENFIM TODOS OS DADOS DO IMÓVEL.COMO POR EXEMPLO O DO PROPRIO ACCESS QUE NA HORA EM QUE você CLICA NO LOCALIZAR APARECE O QUE QUER LOCALIZAR E QUAL CAMPO QUER LOCALIZAR.Private Sub Bt_Localizar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt_Localizar.Click ''LOCALIZAR'' Try CN.Open() DS.Clear() If txtPesquisa.Text.Trim = "" Then DA.SelectCommand.CommandText = "select * from Cad_Imovel" Else DA.SelectCommand.CommandText = "Select * from Nome where nome like '%" & txtPesquisa.Text & "%'" End If DA.Fill(DS, "Cad_Imovel") CN.Close() Catch ex As Exception MessageBox.Show(ex.Message) End Try End SubDESTE JEITO não ESTA FUNCIONANDO!! :( GENTE ME DESCULPE MAS SOU NOVATA!!! Link para o comentário Compartilhar em outros sites More sharing options...
0 Graymalkin Postado Abril 13, 2006 Denunciar Share Postado Abril 13, 2006 O quê, exatamente, não dá certo?Abraços,Graymalkin Link para o comentário Compartilhar em outros sites More sharing options...
0 Guest Visitante Postado Abril 25, 2006 Denunciar Share Postado Abril 25, 2006 Bom, na verdade eu já consegui, ele dava um erro estranho, acho que era algum ero besta.mas mesmo assim orbigada! Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
Isasf
COMO FAÇO UM BOTÃO PARA LOCALIZAR (VB.NET) POR EXEMPLO NOME, ENDEREÇO, BAIRRO,... ENFIM TODOS OS DADOS DO IMÓVEL.
COMO POR EXEMPLO O DO PROPRIO ACCESS QUE NA HORA EM QUE você CLICA NO LOCALIZAR APARECE O QUE QUER LOCALIZAR E QUAL CAMPO QUER LOCALIZAR.
Private Sub Bt_Localizar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt_Localizar.Click
''LOCALIZAR''
Try
CN.Open()
DS.Clear()
If txtPesquisa.Text.Trim = "" Then
DA.SelectCommand.CommandText = "select * from Cad_Imovel"
Else
DA.SelectCommand.CommandText = "Select * from Nome where nome like '%" & txtPesquisa.Text & "%'"
End If
DA.Fill(DS, "Cad_Imovel")
CN.Close()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
DESTE JEITO não ESTA FUNCIONANDO!! :(
GENTE ME DESCULPE MAS SOU NOVATA!!!
Link para o comentário
Compartilhar em outros sites
2 respostass a esta questão
Posts Recomendados