RDM
|
SÃO PAULO
SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 24/06/2010 17:52 hs
Boa Tarde! Pessoal, eu estou desenvolvendo um aplicativo que esta utilizando varias tabelas do sql, eu preciso fazer o seguinte: quando o usuário digitar o código X ele vai na tabela para validar este codigo, se existe mostrar a descrição do item para ele, até ai beleza, mas se neste mesmo campo ele digitar o código Y o aplicativo deverá ir para uma outra tabela e mostrar a descrição deste item de outra tabela, porem eu só tenho o campo código que é comum entre as tabelas, o resto é tudo diferente, então não da p mim validar o dado, eu vou ter que pegar uma coluna da tabela para validar. Ex: o usuário digita o código, ai o aplicativo vai na tabela e verifica se nela tem a coluna ZZZZ, se sim, ele valida o código digitado e mostra a descrição, se não ele vai na tabela NNNN e valida o código e mostra a descrição. mas eu não sei como ir até uma tabela e verificar se a coluna X existe ou não. alguem pode me dar uma ajuda, por favor desde ja obrigado!
RDM Informática
|
|
|
|
|
|
Augusto
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 26/06/2010 09:39 hs
TENTE ESTE Private Sub Text4_Change()
CALL PESQUISAR
End Sub Private Sub PESQUISAR()
Set rsBD = New ADODB.Recordset
Set rsBD.ActiveConnection = DB
If Text4.Text = "" Then
Exit Sub
Else
rsBD.Open "SELECT * FROM CLIENTES WHERE CODIGO= " & Text4.Text & " Order by Codigo", DB
If Not rsBD.EOF Then
Text1.Text = "" & rsBD(0)
Text2.Text = "" & rsBD(1)
Text3.Text = "" & rsBD(2)
Text5.Text = "" & rsBD(3)
Text6.Text = "" & rsBD(4)
End If
rsBD.Close
Set rsBD = Nothing
Set rsBD = New ADODB.Recordset
Set rsBD.ActiveConnection = DB
rsBD.Open "SELECT * FROM AUTORES WHERE CODIGO=" & Text4.Text & " Order by Codigo", DB
If Not rsBD.EOF Then
Text1.Text = "" & rsBD(0)
Text2.Text = "" & rsBD(1)
Text3.Text = "" & rsBD(2)
Text5.Text = "" & rsBD(3)
End If
rsBD.Close
Set rsBD = Nothing
Set rsBD = New ADODB.Recordset
Set rsBD.ActiveConnection = DB
rsBD.Open "SELECT * FROM TESTE WHERE CODIGO= " & Text4.Text & " Order by Codigo", DB
If Not rsBD.EOF Then
Text1.Text = "" & rsBD(0)
Text2.Text = "" & rsBD(1)
Text3.Text = "" & rsBD(2)
End If
rsBD.Close
Set rsBD = Nothing
End If
End Sub
|
|
|
|
Afranio
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 03/07/2010 23:18 hs
Cara, é simples.
Crie uma consulta com os campos que deseja. Não se esquecendo de fazer relacionamento entre as tabelas.
On Error Resume Next
'Deleto a consulta
Call Cn.Execute("DROP VIEW cProdutoAtores")
Sql = "CREATE VIEW cProdutoAtores AS "
Sql = Sql & "SELECT Produtos.SITUACAO, PRO_NOME, ATO_NOME, PRO_ESTOQUE, GEN_NOME, PRENORMAL, PREPROMOC, "
Sql = Sql & "PREMULTA, PRE_COD, ATO_COD, PRO_BAR, Produtos.PRO_COD, PRO_CODIGO, PRO_ATIVO "
Sql = Sql & " FROM Produtos LEFT JOIN ProdutoAtores ON Produtos.PRO_COD = ProdutoAtores.PRO_COD "
Call Cn.Execute(Sql, 128)
Não sei se vai dar pra entender, mas criei uma consulta (cProdutoAtores) onde tenho duas tabelas (PRODUTOS e PRODUTOSATORES e o campo que está relacionado é (PRO_COD).
Pronto, feito isso, voce poderá consultar o Ator de um determinado Produto, que aqui no caso é um filme, bastando para tal, pesquisar o codigo do produto e sua consulta lhe trará o nome e outros campos relacionados.
|
|
|
|
Augusto
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 04/07/2010 14:29 hs
Afranio,Do seu jeito os campos estam relacionados,e no caso dele pelo jeito são codigos distintos.Não tem nada
haver com outra tabela.Um exemplo.
Ele digita no textbox1 0121 ele procura a tabela na qual satisfaz e apresenta os dados restantes.Este codigo foi
encontrado na tabela "B".
Digita no mesmo texbox 8769 ele procura a tabela na qual satisfaz novamente e acha na tabela "A" e mostra o restante.
|
|
|
|
|
