rs q nao esta recebendo o select

[mestre fyoda 1]

nao apresenta nenhum erro , mas ele nao esta abrindo .nome de tabela nao é pq eu testei .pq ele vai no 1 while e ele ja sai e vai pro segundo while , e na verdade ele deveria entrar no if . o rs nao deve estar recebendo o select . pq ?Conexao :

Global cn As ADODB.ConnectionGlobal rs As ADODB.RecordsetGlobal rs2 As ADODB.RecordsetGlobal agenda As StringPrivate Sub Main()Dim strArquivo As StringDim strLocal As StringDim Conexao As StringSet cn = New ADODB.ConnectionSet cn = CreateObject("ADODB.Connection")Conexao = "Driver={SQL Server};" & _"Server=RAFAEL;" & _"Database=Dentista;" & _"Uid=sa;Pwd=janio1;"cn.Open ConexaoAgendamento.ShowEnd Sub

Private Sub Form_Load()campo_data.Caption = Calendario.ValueSet rs = cn.Execute(" Select * from Agendar_Consulta where data = '" & Date & "' ")Set rs2 = cn.Execute(" Select * from Hora ") Dim item As ListItem While Not rs.EOF If rs.Fields("hora").Value = rs2.Fields("hora").Value Then Set item = ListView.ListItems.Add(, , rs("hora")) item.ListSubItems.Add , , rs("data") item.ListSubItems.Add , , rs("tel_res") item.ListSubItems.Add , , rs("tel_com") item.ListSubItems.Add , , rs("nom_pac") rs.MoveNext rs2.MoveNext Else Set item = ListView.ListItems.Add(, , rs2("hora")) item.ListSubItems.Add , , rs2("data") item.ListSubItems.Add , , rs2("tel_res") item.ListSubItems.Add , , rs2("tel_com") item.ListSubItems.Add , , rs2("nom_pac") rs2.MoveNext End If Wend While Not rs2.EOF Set item = ListView.ListItems.Add(, , rs2("hora")) rs2.MoveNext WendEnd Sub

[Luizgrs 0]

Quando se utiliza data ou hora no Where o correto é utilizar os # # assim:

where data = #" & Date & "#"

[mestre fyoda 1]

deu erro :Incorrect Syntax near '#'

[mestre fyoda 1]

no access mesmo , to com um probleminha .o meu access ta da seguinte maneira .tabela Agendar_Consultahora -> textodata -> textotel_res -> textotel_com -> textonom_pac -> textotabela hora 8:008:309:009:3010:0010:3011:0011:3013:0013:3014:0014:3015:0015:3016:0016:3017:0017:3018:0018:30meu codigo .

Private Sub Form_Load()campo_data.Caption = DateSet rs = cn.Execute(" Select * from Agendar_Consulta where DateValue(data) = DateValue('" & Date & "') ORDER BY hora ASC ")Set rs2 = cn.Execute(" Select * from Hora ") Dim item As ListItem While Not rs.EOF If rs("hora") = rs2("hora") Then Set item = ListView.ListItems.Add(, , rs("hora")) item.ListSubItems.Add , , rs("nom_pac") item.ListSubItems.Add , , rs("data") item.ListSubItems.Add , , rs("tel_res") item.ListSubItems.Add , , rs("tel_com") rs.MoveNext rs2.MoveNext Else Set item = ListView.ListItems.Add(, , rs2("hora")) rs2.MoveNext End If Wend While Not rs2.EOF Set item = ListView.ListItems.Add(, , rs2("hora")) rs2.MoveNext WendEnd Sub

notem q se a tabela Agendar Consulta estiver cadastrado com as horas :14:0013:008:00dá o seguinte erro :BOF e EOF sao verdadeiros , ou o registro atual foi excluido . A operação solicitada pelo aplicativo requer um registro atual . nessa linha da o erro :

If rs("hora") = rs2("hora") Then

ja tentei mudar essa linha para

If rs.Fields("hora").Value = rs2.Fields("hora").Value Then

mas nao adiantou muito pq deu o mesmo erro .e se eu retirar esse 8:00 da certo . pq disso ?

[Luizgrs 0]

para não ocorrer esse erro, no order by também utilize a função datevalue, pois o seu campo texto e o número 1 vem antes do 8 por isso está ficando desordenado...E os # # não funcionaram pois o seu campo é do tipo texto, eu pensei que era data/hora ^^