Sql

[Guest - Alessandro -]

Ao utilizar o select ele trava e não tras o que quero localizar

São dois campos um codigodaloja e outro data e o select não funciona

alguém pode me ajudar

   If txtloja.Text = Empty And txtdata.Text = Empty Then
      rs.Open "SELECT * FROM comanda order by nomedaloja,datadacomanda", cn, adOpenDynamic, adLockOptimistic
   ElseIf txtloja.Text <> Empty And txtdata.Text = Empty Then
      rs.Open "SELECT * FROM comanda order by nomedaloja", cn, adOpenDynamic, adLockOptimistic
   ElseIf txtloja.Text = Empty And txtdata.Text <> Empty Then
      rs.Open "SELECT * FROM comanda order by datadacomanda", cn, adOpenDynamic, adLockOptimistic
   ElseIf txtloja.Text <> Empty And txtdata.Text <> Empty Then
      rs.Open "Select * from comanda where nomedaloja LIKE '%" & txtloja.Text & "%' and datadacomanda like'%" & txtdata.Text & "%' ORDER BY nomedaloja,datadacomanda", cn, adOpenDynamic, adLockOptimistic
   End If

[kuroi]

Explica melhor o erro q da. Se ele não der mensagem e ficar carregando, talvez o banco seja muito grande, tenta esperar um poco.

[William Rodrigues]

Salve!

Tem Auto_Increment ou AutoNumeração na sua Tabela?

Se tiver, é esse o problema, Auto_Increment ou AutoNumeração não rola com Order By

Abraços,

William Rodrigues

[alepe]

Tem autonumeração no bd tirei o clausula order by, mas mesmo assim o VB informa que "Nenhum valor foi fornecido para um ou mais parametros."

If txtloja.Text = Empty And txtdata.Text = Empty Then
   rs.Open "SELECT * FROM comanda WHERE nomedaloja=txtloja.Text", cn
ElseIf txtloja.Text <> Empty And txtdata.Text = Empty Then
   rs.Open "SELECT * FROM comanda WHERE nomedaloja = txtloja.Text", cn
ElseIf txtloja.Text = Empty And txtdata.Text <> Empty Then
   rs.Open "SELECT * FROM comanda WHERE datadacomanda=txtdata.Text", cn
ElseIf txtloja.Text <> Empty And txtdata.Text <> Empty Then
   rs.Open "SELECT * FROM comanda WHERE nomedaloja=txtloja.Text and datadacomanda=txtdata.Text", cn
End If

Na tela principal é solicitado Nome da loja e Data. tem um botao localizar que é esse codigo que está acima.

[CKorneLL]

Tente colocar antes do txtloja.text a palvra trim...

Ficará assim...

Trim(txtloja.text)

[William Rodrigues]

Salve!

estou meio ocupado agora cara, mas pude ver que seu comando SQL está errado!

Segue um exemplo para busca:

RecordSet.Open "Select Nome From Tabela Where Nome = ' " & Nome.Text & " ' ", Connection, TipoCursor, TipoBloqueio

Ah, e outra coisa...

Se o campo (TextBox) é Empty por que buscar um registro Empty?

Abraços,

William Rodrigues

[Guest - Alessandro -]

Ao clicar em localizar a primeira vez ele não traz nada ao clicar a segunda vez ele informa que:

"Erro operção não permitida quando o objeto está aberto"

Alteração do código ficou assim....

rs.Open "Select * From comanda Where nomedaloja = ' " & txtloja.Text & " ' ", cn, adOpenDynamic, adLockOptimistic

Mas alguma ideia.....

[William Rodrigues]

Sim, claro...

Você pode fechar o objeto RecordSet após a consulta.

RecordSet.Close

Abraços,

William Rodrigues