Irenko
|
BELO HORIZONTE
MG - BRASIL
|
|
Postada em 09/05/2008 09:47 hs
Galera, tenho duas tabelas sendo, (Clientes) e (Contratos)
Campos da tabela (Clientes):
Numero
Nome
Campos da tabela (Contratos):
Numero
Contrato
Tenho 01 ComboBox e um textBox, no ComboBox carrego os contratos conforme abaixo:
Set Contratos = New ADODB.Recordset
Contratos.Open "SELECT Contrato FROM Contratos", Banco4, adOpenKeyset, adLockPessimistic
ComboCT.Clear
Do Until Contratos.EOF
ComboCT.AddItem UCase(Contratos("Contrato"))
Gostaria de fazer um select quando ao selecionar um contrato no ComboBox ele me retorne no TextBox o Nome referente a esse contrato mas so tenho como referencia nas duas tabelas o campo (Numero). É possível dar um exemplo?
|
|
|
|
|
|
Treze
|
SÃO VICENTE
SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 09/05/2008 10:17 hs
Tenta fazer isto Private Sub ComboCT_Click() Set Pesquisa= New ADODB.Recordset
Pesquisa.Open "SELECT * FROM Contratos,Clientes WHERE Contratos.Contrato='" & ComboCT.Text & "' and Clientes.Numero=Contratos.Numero", Banco4, adOpenKeyset, adLockPessimistic txtNome.text=Pesquisa("Clientes.Nome") End Sub
|
|
TÓPICO EDITADO
|
|
|
|
|
|
Postada em 09/05/2008 13:46 hs
================================================================
O Aprendizado é Direito de Todos. O Saber é Privilégio de Poucos. Começando a estudar VB.NET. Realmente é incrível!!!!
|
|
|
|
|
|
Postada em 09/05/2008 17:11 hs
do jeito que vc queria nao precisa fazer o select acima era so pegar o nome que esta no combo exemplo txtNome.text = cmbCT.text |
|
|
|
