COMO FACO ESSE SQL??
Boa noite alguém pode me ensinar como fazer isso??
SELECT Audiovisual.Professor, Audiovisual.Curso, Audiovisual.Aparelho, Audiovisual.Horário, Audiovisual.[Local de Utilização], Audiovisual.Bloco, Audiovisual.[Data da Utilização]
FROM Audiovisual
WHERE (((Audiovisual.Aparelho)="Retro") AND ((Audiovisual.Horário)="19:00/21:00") AND ((Audiovisual.[Data da Utilização])=14052007))
ORDER BY Audiovisual.Horário, Audiovisual.Bloco;
O meu código tá assim:
Como eu consigo colocar um SQL na "CSQL"
desde já grato pela colaboração,
João Bosco
SELECT Audiovisual.Professor, Audiovisual.Curso, Audiovisual.Aparelho, Audiovisual.Horário, Audiovisual.[Local de Utilização], Audiovisual.Bloco, Audiovisual.[Data da Utilização]
FROM Audiovisual
WHERE (((Audiovisual.Aparelho)="Retro") AND ((Audiovisual.Horário)="19:00/21:00") AND ((Audiovisual.[Data da Utilização])=14052007))
ORDER BY Audiovisual.Horário, Audiovisual.Bloco;
O meu código tá assim:
Private Sub Command1_Click()
If Option1.Value = True Then
CSQL = "Select * from Audiovisual Where DatadeEmissao Like '" & "*" & Text1.Text & "*'order by Horario"
Data1.RecordSource = CSQL
Data1.Refresh
End Sub
Como eu consigo colocar um SQL na "CSQL"
desde já grato pela colaboração,
João Bosco
Olha só , aqui estou selecionanado a tabela Pedido e vendas.
RSVendas.Open "SELECT Pedidos.CodigoPedido AS Pedidos_CodigoPedido,Pedidos.CodigoBarras AS Pedidos_CodigoBarras, " & _
"Vendas.CodigoPedido AS Vendas_CodigoPedido," & _
"Vendas.Card AS Vendas_Card," & _
"Vendas.SubTotal AS Vendas_SubTotal,Vendas.Lucro AS Vendas_Lucro FROM Pedidos INNER JOIN Vendas ON Pedidos.CodigoPedido = Vendas.CodigoPedido where Pedidos.CodigoPedido=" & NPed & " and Vendas.CodigoPedido=" & NPed & ";", Conexao, 3, 3
RSVendas.Open "SELECT Pedidos.CodigoPedido AS Pedidos_CodigoPedido,Pedidos.CodigoBarras AS Pedidos_CodigoBarras, " & _
"Vendas.CodigoPedido AS Vendas_CodigoPedido," & _
"Vendas.Card AS Vendas_Card," & _
"Vendas.SubTotal AS Vendas_SubTotal,Vendas.Lucro AS Vendas_Lucro FROM Pedidos INNER JOIN Vendas ON Pedidos.CodigoPedido = Vendas.CodigoPedido where Pedidos.CodigoPedido=" & NPed & " and Vendas.CodigoPedido=" & NPed & ";", Conexao, 3, 3
tenta assim:
if option1.value then
dim CSQL
CSQL = "Select * from Audiovisual Where DatadeEmissao Like '" & "*" & Text1.Text & "*'order by Horario"
Data1.RecordSource = CSQL
Data1.Refresh
if option1.value then
dim CSQL
CSQL = "Select * from Audiovisual Where DatadeEmissao Like '" & "*" & Text1.Text & "*'order by Horario"
Data1.RecordSource = CSQL
Data1.Refresh
cara, se voce nao está relacionando eu acho que nao precisa colocar tipo adiovisual.curso... basta colocar curso... só o nome do campo ja basta!
tenta ai cara, ve se resolve! senao, qualquer coisa manda o bd ai que eu fo uma olhada..
uma coisa, nao coloca acento no nome dos campos nao!
qualquer coisa posta ae
abraços
"SELECT Professor, Curso, Aparelho, Horario, Local_util, Bloco, DataUtil" & _
"FROM Audiovisual WHERE Aparelho ='" & Retro & "'" & _
" AND Horário '" & 19:00/21:00 & "'" & " AND DataUtil = '" & 14052007 & "'" & _
" ORDER BY Horario "
tenta ai cara, ve se resolve! senao, qualquer coisa manda o bd ai que eu fo uma olhada..
uma coisa, nao coloca acento no nome dos campos nao!
qualquer coisa posta ae
abraços
Eltão, não consegui não estou mandando o DB vê se vc pode me ajudar!
vou te esplicar melhor o que eu quero...
é o seguinte onde eu trabalho tem um número limitado de aparelhos audio visual, e várias pessoas fazem o cadastro dos mesmos.
um exemplo 4 retros ai eu queria fazer uma consulta no DB no dia quantos "retros" estão sendo usados no horário.
e quando chegasse no 5 retro o sitema não ia deixar o cadastro.
será que tem como vc me ajudar??
Sou muito grato pela sua ajuda.
vou te esplicar melhor o que eu quero...
é o seguinte onde eu trabalho tem um número limitado de aparelhos audio visual, e várias pessoas fazem o cadastro dos mesmos.
um exemplo 4 retros ai eu queria fazer uma consulta no DB no dia quantos "retros" estão sendo usados no horário.
e quando chegasse no 5 retro o sitema não ia deixar o cadastro.
será que tem como vc me ajudar??
Sou muito grato pela sua ajuda.
puts cara nao to conseguindo fazer down =\
manda no msn
elton.osd@terra.com.br
ou email
eltim.alves@gmail.com
abraços
manda no msn
elton.osd@terra.com.br
ou email
eltim.alves@gmail.com
abraços
Tópico encerrado , respostas não são mais permitidas