SQL VB6

NIELSEN 12/04/2011 15:02:46
#371096

Boa tarde galera, tenho o seguinte codigo usado em um dos exemplos do macoratti para conexao ao banco sql.
Private Sub Form_Load()usuario = [Ô]sa[Ô]
senha = [Ô]minhasenha[Ô]
servidor = [Ô]192.168.0.10[Ô]
BancoDados = [Ô]db_sys[Ô]

cn.Provider = [Ô]SQLOLEDB[Ô]
cn.Properties([Ô]Data Source[Ô]).Value = servidor
cn.Properties([Ô]Initial Catalog[Ô]).Value = BancoDados
cn.Properties([Ô]User ID[Ô]).Value = usuario
cn.Properties([Ô]Password[Ô]).Value = senha
cn.Open
[ô]sql = [Ô]Select cliente_varejo, endereco, numero, complemento, bairro, cidade, uf, cep FROM clientes_varejo[Ô]
rs.CursorLocation = adUseClient
[ô]rs.Open sql, cn, adOpenForwardOnly, adLockPessimistic
End Sub
========================================================
AQUI é PARA FILTRAR
========================================================
Private Sub localiza_Click()Dim Titulo, padrao, criterio

Titulo = [Ô]Filtrando por nome[Ô] [ô] define o titulo
padrao = [Ô][Ô] [ô] define o valor padrao

criterio = txt_cliente
If criterio <> [Ô][Ô] Then
With rs

.Close

sql = [Ô]Select cliente_varejo from clientes_varejo Where cliente_varejo like [ô]%[Ô] & criterio & [Ô]%[ô] [Ô]
.Open sql
mostra_dados
End With
txt_bairro = RTrim(txt_bairro)
txt_endereco = RTrim(txt_endereco)
txt_cep = RTrim(txt_cep)
txt_cidade = RTrim(txt_cidade)
txt_complemento = RTrim(txt_complemento)
txt_numero = RTrim(txt_numero)
txt_uf = RTrim(txt_uf)

End If
End Sub

ATE AQUI TB BELEZA, SO Q O MEU PROBLEMA é CONSEGUIR CONSULTAR DADOS DE 2 TABELAS. NAO SEI SE TERIA Q MEXER NA ESTRUTURA DE CONEXAO..
AGRADEÇO FUTUROS HELPS.