Postada em 12/09/2005 15:59 hs
sql = " SELECT ps_imoveis.COD_MAQUINA, fm_etiquetas_imovel.COD_MAQUINA, fm_etiquetas_imovel.NUM_SEQ_ETIQUETA_INI, fm_etiquetas_imovel.NUM_SEQ_ETIQUETA_FIM,"
sql = sql & " fm_etiquetas_imovel.NUM_SEQ_BEM,"
sql = sql & " ps_imoveis.COD_PESSOA, ps_pessoas.DES_PESSOA AS PESSOA"
sql = sql & " FROM (fm_etiquetas_imovel INNER JOIN"
sql = sql & " ps_imoveis ON (fm_etiquetas_imovel.COD_MAQUINA = ps_imoveis.COD_MAQUINA) AND"
sql = sql & " (fm_etiquetas_imovel.NUM_SEQ_BEM = ps_imoveis.NUM_SEQ_BEM)) INNER JOIN"
sql = sql & " ps_pessoas ON ps_imoveis.COD_PESSOA = ps_pessoas.COD_PESSOA"
sql = sql & " WHERE ((('" & NOME_ALUNo & "')>=fm_etiquetas_imovel.num_seq_etiqueta_ini AND"
sql = sql & " ('" & NOME_ALUNo & "')<=fm_etiquetas_imovel.num_seq_etiqueta_FIM))"
RS1.CursorLocation = adUseClient
RS1.Open sql, CN, adOpenStatic, adLockReadOnly
Do While Not rs1.EOF
procura_etiqueta.cod = RS1!COD_PESSOA
rs1.movenext
loop
tenho esta instrução e quero retornar os dados para textbox mas se utilizar este modelo não busca o dado.
oq fazer
obrigado
|
