COMPARACAO DE TABELAS MYSQL

HERSYS 10/11/2010 17:38:07
#357156
Boa tarde pessoal !!!

Estou desenvolvendo um sistema em vb6 com MySQL e minha dúvida é o seguinte:
Tenho duas tabelas chamadas DADOS_DIARIOS e EXAMES.
Na tabela DADOS_DIARIOS tenho 698 itens gravados e na tabela EXAMES tenho 26.
tenho no Form um MSFLEXGRID com todos os itens de DADOS_DIARIOS e gostaria que aparecesse em um label qualquer o total de itens de DADOS_DIARIOS que seja igual aos itens de EXAMES.

Não tenho a menor idéia de como fazer isso.
Me ajudem por favor !!!!
MARCELO.TREZE 10/11/2010 17:56:10
#357159 Resposta escolhida
Qual campo a se comparar, existe algum campo ao possa se fazer uma comparação?

exemplo

tabela: DADOS_DIARIOS Tabela: EXAMES
campo:CodExame Campo: CodExame
HERSYS 10/11/2010 18:40:35
#357164
Citação:

:
Boa tarde pessoal !!!

Estou desenvolvendo um sistema em vb6 com MySQL e minha dúvida é o seguinte:
Tenho duas tabelas chamadas DADOS_DIARIOS e EXAMES.
Na tabela DADOS_DIARIOS tenho 698 itens gravados e na tabela EXAMES tenho 26.
tenho no Form um MSFLEXGRID com todos os itens de DADOS_DIARIOS e gostaria que aparecesse em um label qualquer o total de itens de DADOS_DIARIOS que seja igual aos itens de EXAMES.

Não tenho a menor idéia de como fazer isso.
Me ajudem por favor !!!!



Eles tem um campo em comum: Nome_Exame
LUIZCOMINO 10/11/2010 19:12:01
#357167
coloque no label :

apenas adicione no label

label= rs.recordcount

o rs é seu recordset
MARCELO.TREZE 10/11/2010 19:12:47
#357168
se vc usa ADO poderia fazer assim:

sSSQL = [Ô] SELECT D.Nome_exame,COUNT(D. Nome_Exame) As TotalExames, E.Nome_Exame FROM DADOS_DIARIOS D,EXAMES E WHERE D.Nome_Exame = E.NomeExame[Ô]

Set RS = CNN.Execute(sSQL)

Label.Caption = RS!TotalExames
HERSYS 11/11/2010 10:15:53
#357187
Citação:

:
se vc usa ADO poderia fazer assim:

sSSQL = [Ô] SELECT D.Nome_exame,COUNT(D. Nome_Exame) As TotalExames, E.Nome_Exame FROM DADOS_DIARIOS D,EXAMES E WHERE D.Nome_Exame = E.NomeExame[Ô]

Set RS = CNN.Execute(sSQL)

Label.Caption = RS!TotalExames





Marcelo, esse é meu código para aparecer os dados no Msflexgrid todos os itens da tabela DadosDiarios, como eu procedo agora para aparecer em um Label o total de itens do campo Exame da tabela DadosDiarios que seja igual ao campo Exame da Tabela Exames

Desde já agradeço.

***************************************************************************************************************************************************
MyCon.Open ([Ô]Provider=MSDASQL.1;Persist Security Info=False;User ID=root;Data Source=MySQLMensurador;Initial Catalog=mensurador[Ô])

MyRs.CursorLocation = adUseClient
With MyCmd
Set .ActiveConnection = MyCon
.CommandType = adCmdText
.CommandText = SQL
End With

With MyRs
.LockType = adLockPessimistic
.CursorType = adOpenKeyset
.CursorLocation = adUseClient
End With

MyRs.Open [Ô]SELECT * FROM dadosdiarios[Ô], MyCon, adOpenStatic, adLockOptimistic

MSFlexGrid1.Rows = 2

Do While Not MyRs.EOF
MSFlexGrid1.TextMatrix(MSFlexGrid1.Rows - 1, 0) = MyRs.Fields(3).Value
MSFlexGrid1.TextMatrix(MSFlexGrid1.Rows - 1, 1) = MyRs.Fields(1).Value
MSFlexGrid1.TextMatrix(MSFlexGrid1.Rows - 1, 2) = MyRs.Fields(2).Value
MSFlexGrid1.TextMatrix(MSFlexGrid1.Rows - 1, 3) = Format(MyRs.Fields(5).Value, [Ô]hh:mm[Ô])
MSFlexGrid1.TextMatrix(MSFlexGrid1.Rows - 1, 4) = Format(MyRs.Fields(6).Value, [Ô]hh:mm[Ô])
MSFlexGrid1.TextMatrix(MSFlexGrid1.Rows - 1, 5) = Format(MyRs.Fields(7).Value, [Ô]hh:mm[Ô])
MSFlexGrid1.TextMatrix(MSFlexGrid1.Rows - 1, 6) = Format(MyRs.Fields(8).Value, [Ô]hh:mm[Ô])

MSFlexGrid1.Rows = MSFlexGrid1.Rows + 1
MyRs.MoveNext

Loop

MSFlexGrid1.Rows = MSFlexGrid1.Rows - 1

regContador = CStr(MyRs.RecordCount)

If MSFlexGrid1.Rows = 2 Then
LblTotal.Caption = [Ô]Dados Diários: [Ô] & regContador & [Ô] exames no dia de hoje[Ô]
Else
LblTotal.Caption = [Ô]Dados Diários: [Ô] & regContador & [Ô] exames no dia de hoje[Ô]
End If
************************************************************************************************************************************************
ACG1574 11/11/2010 11:33:35
#357200
SELECT nome, exame,count(exame) qtd_exame FROM dadosdiarios group by nome,exame
HERSYS 11/11/2010 16:09:43
#357235
Citação:

:
SELECT nome, exame,count(exame) qtd_exame FROM dadosdiarios group by nome,exame



Consegui pessoal !!!! Meu SELECT ficou desse jeito:

MyRs.Open [Ô]SELECT dadosdiarios.exame,exames.exame AS exame FROM dadosdiarios, exames WHERE dadosdiarios.exame = exames.exame[Ô], MyCon, adOpenStatic, adLockOptimistic

O contador eu coloquei separado.

Muito obrigado a todos !!!
Tópico encerrado , respostas não são mais permitidas
Voltar