Jump to content
Fórum Script Brasil
  • 0

O Rs Nao Abre


mestre fyoda

Question

não apresenta nenhum erro , mas ele não esta abrindo .

nome de tabela não é porque eu testei .

porque ele vai no 1 while e ele já sai e vai pro segundo while , e na verdade ele deveria entrar no if . o rs não deve estar recebendo o select . porque ?

Conexao :

Global cn As ADODB.Connection

Global rs As ADODB.Recordset

Global rs2 As ADODB.Recordset

Global agenda As String

Private Sub Main()

Dim strArquivo As String

Dim strLocal As String

Dim Conexao As String

Set cn = New ADODB.Connection

Set cn = CreateObject("ADODB.Connection")

Conexao = "Driver={SQL Server};" & _

"Server=RAFAEL;" & _

"Database=Dentista;" & _

"Uid=sa;Pwd=janio1;"

cn.Open Conexao

Agendamento.Show

End Sub

Private Sub Form_Load()

campo_data.Caption = Calendario.Value

Set 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

        Wend

End Sub

Link to comment
Share on other sites

3 answers to this question

Recommended Posts

  • 0

Tem um erro nesta Linha:

Set rs = cn.Execute(" Select  * from Agendar_Consulta where data = '" & Date & "' ")
veja o certo como ficaria:
Set rs = cn.Execute(" Select  * from Agendar_Consulta where data = #" & Date & "#")

Apenas troquei o apóstrofo pela Malha!!!

Sempre que trabalhar com datas use Malha #

Veja se não é por isso que não passa pelo While!!!

Falow... T+

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.



  • Forum Statistics

    • Total Topics
      152.1k
    • Total Posts
      651.8k
×
×
  • Create New...