QUERY SQL
estou montando uma query pra pegar por bairro e tipo de imovel mas nao esta funcionando...
O DB é MYSQL
Private Sub CmdOk_Click()
Dim Sql As String
Set Rst = New ADODB.Recordset
Sql = [Ô]Select * From Tbl_Imoveis Where Bairro_Imovel=[ô][Ô] & CboBairro.Text & [Ô][ô] AND Tipo_Imovel = [ô][Ô] & CboTipoImovel.Text & [Ô][ô][Ô]
Rst.Open Sql, Conexao, 3
If Not Rst.EOF Then
With MSFlexGrid1
[ô]Quantidade de Colunas do Grid
.Rows = 1
.Cols = 3
[ô]Largura do Cabecalho
.ColWidth(0) = 0
.ColWidth(1) = 5100
.ColWidth(2) = 1322
[ô]Cabecalho do Grid
.TextMatrix(0, 0) = [Ô]Codigo[Ô]
.TextMatrix(0, 1) = [Ô]Bairro[Ô]
.TextMatrix(0, 2) = [Ô]Tipo de Imóvel[Ô]
End With
I = 1
Do While Not Rst.EOF
With MSFlexGrid1
[ô]Valores do Recordset
.Rows = I + 1
.TextMatrix(I, 0) = [Ô][Ô] & Rst!Id
.TextMatrix(I, 1) = [Ô][Ô] & Rst!Bairro_Imovel
.TextMatrix(I, 2) = [Ô][Ô] & Rst!Tipo_Imovel
End With
I = I + 1
Rst.MoveNext
Loop
End If
Rst.Close
Set Rst = Nothing
End Sub
O DB é MYSQL
Private Sub CmdOk_Click()
Dim Sql As String
Set Rst = New ADODB.Recordset
Sql = [Ô]Select * From Tbl_Imoveis Where Bairro_Imovel=[ô][Ô] & CboBairro.Text & [Ô][ô] AND Tipo_Imovel = [ô][Ô] & CboTipoImovel.Text & [Ô][ô][Ô]
Rst.Open Sql, Conexao, 3
If Not Rst.EOF Then
With MSFlexGrid1
[ô]Quantidade de Colunas do Grid
.Rows = 1
.Cols = 3
[ô]Largura do Cabecalho
.ColWidth(0) = 0
.ColWidth(1) = 5100
.ColWidth(2) = 1322
[ô]Cabecalho do Grid
.TextMatrix(0, 0) = [Ô]Codigo[Ô]
.TextMatrix(0, 1) = [Ô]Bairro[Ô]
.TextMatrix(0, 2) = [Ô]Tipo de Imóvel[Ô]
End With
I = 1
Do While Not Rst.EOF
With MSFlexGrid1
[ô]Valores do Recordset
.Rows = I + 1
.TextMatrix(I, 0) = [Ô][Ô] & Rst!Id
.TextMatrix(I, 1) = [Ô][Ô] & Rst!Bairro_Imovel
.TextMatrix(I, 2) = [Ô][Ô] & Rst!Tipo_Imovel
End With
I = I + 1
Rst.MoveNext
Loop
End If
Rst.Close
Set Rst = Nothing
End Sub
A primeira coisa a fazer, é EXECUTAR a QUERY diretamente no BANCO.
Se devolver algum registro, poste a QUERY que foi utilizada como teste aqui no tópico.
Isto facilita para os colegas que irão ajudá-lo!
Se devolver algum registro, poste a QUERY que foi utilizada como teste aqui no tópico.
Isto facilita para os colegas que irão ajudá-lo!
executei assim mas nao axou nada... tambem nao exibiu erro.. Select * From Tbl_Imoveis Where Bairro_Imovel=[ô]TURU[ô] AND Tipo_Imovel=[ô]APTO[ô]
se colocar somento o bairro ai da certo. mas preciso carregar com o tipo de imovel pelo bairro...
Select * From Tbl_Imoveis Where Bairro_Imovel=[ô]TURU[ô]
Select * From Tbl_Imoveis Where Bairro_Imovel=[ô]TURU[ô]
Então, o problema não é com o VB, mas sim com a QUERY.
A primeira coisa a fazer, é saber [Ô]o que tem[Ô] na tabela Tbl_Imoveis.
Poste um PRINT ou algum arquivo (TXT, SQL...) com os registros (ou pelo menos 2 registros) da consulta abaixo:
A primeira coisa a fazer, é saber [Ô]o que tem[Ô] na tabela Tbl_Imoveis.
Poste um PRINT ou algum arquivo (TXT, SQL...) com os registros (ou pelo menos 2 registros) da consulta abaixo:
SELECT * FROM Tbl_Imoveis
TECLA. obrigado pela atenção conseguir. resvolver.. era memo na query.
Tópico encerrado , respostas não são mais permitidas