não traz registros


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: não traz registros

Rafael The Best

SÃO PAULO
SP - BRASIL

Postada em 10/08/2005 13:57 hs

agora estou fazendo dessa forma:

sql = "SELECT Count(pedido.codigo_pedido) AS ContarDecodigo_pedido, pedido.eqz "
sql = sql & "FROM cadastrovendedor ,pedido "
sql = sql & "WHERE pedido.codigo_vendedor *= cadastrovendedor.codigo_vendedor "
sql = sql & "AND pedido.data2 Between Convert(Datetime," & Trim(cmbMesI.text) & "/" & Trim(cmbDiaI.text) & "/" & Trim(cmbAnoI.text) & ",103) "
sql = sql & "And Convert(Datetime," & Trim(cmbMesF.text) & "/" & Trim(cmbDiaF.text) & "/" & Trim(cmbAnoF.text) & ",103) "
sql = sql & "GROUP BY pedido.eqz, cadastrovendedor.divisao "
sql = sql & "ORDER BY cadastrovendedor.divisao "

não dá nenhum erro

porém não passa por aqui:

If Not rs.EOF Then
     Do While Not rs.EOF
        Range("A" & i).Value = rs(0)
        Range("B" & i).Value = rs(1)
        rs.MoveNext
        i = i + 1
    Loop
End If

e com isso não traz nada.

pq?

Rafael Carlos Martin

Desenvolvedor de WebSites e Sitemas

E-mail:rafa-martin@ibest.com.br

MSN: rafa_40005@hotmail.com

Rochª

RIO DE JANEIRO
RJ - BRASIL

Postada em 10/08/2005 14:12 hs

Voce nao colocou um on error go.... na rotina que chama essa sql ....

pois se o sql estiver com algum erro e o ON ERROR estiver declarado na rotina que chamou estar ( a do SQL) ele vai sair da e execurar o ON ERRO na rotina que chamou.

Deu para entender ????

Se der vai usando o trace para saber o que ele esta fazendo e onde ele pula na execucao da rotina e para onde ele vai.

__________________________________________________________________________

Qualquer coisa post

Rochª

Rafael The Best

SÃO PAULO
SP - BRASIL

Postada em 10/08/2005 14:17 hs

não etendi muito bem, não.

epxplica melhor. eu colando o on error resume next, poderia me mostrar qual seria o possível erro?

Rafael Carlos Martin

Desenvolvedor de WebSites e Sitemas

E-mail:rafa-martin@ibest.com.br

MSN: rafa_40005@hotmail.com

Erico

SALVADOR
BA - BRASIL

Postada em 10/08/2005 16:34 hs

Rafael,

No seu código só tem atribuição da variavel SQL, não vi a abertura do recordset. Me parece estar incompleto.

A.Erico S.Peixoto

--------------------

Analista de Sistemas

Rafael The Best

SÃO PAULO
SP - BRASIL

Postada em 10/08/2005 16:47 hs

Dim sql As String
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim i As Integer
Set cn = New ADODB.Connection
'cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:/teste/Sistema_Metta_Shering2000.mdb"
'cn.Open

cn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;User ID=sa;Initial Catalog=Metta;Data Source=MAQ03"
cn.Open

'define um novo objeto recordset
Set rs = New ADODB.Recordset

Selection.HorizontalAlignment = xlCenter
Selection.VerticalAlignment = xlCenter

'Centraliza o texta da célula
Range("A1").HorizontalAlignment = xlCenter
Range("A1").VerticalAlignment = xlCenter
Range("B1").HorizontalAlignment = xlCenter
Range("B1").VerticalAlignment = xlCenter

'define cor de fundo na célula
'Range("A13").Select
'With Selection.Interior
' .ColorIndex = 15
' .Pattern = xlSolid
'End With

'define a cor da letra na célula
'Range("a1").Font.ColorIndex = 15

''define a instrução sql
sql = "SELECT Count(pedido.codigo_pedido) AS ContarDecodigo_pedido, pedido.eqz "
sql = sql & "FROM cadastrovendedor ,pedido "
sql = sql & "WHERE pedido.codigo_vendedor *= cadastrovendedor.codigo_vendedor "
sql = sql & "AND Pedido.Data2 >= " & Format$(Trim(cmbDiaI.text) & "/" & Trim(cmbMesI.text) & "/" & Trim(cmbAnoI.text), 103) & " "
sql = sql & "AND Pedido.Data2 <= " & Format$(Trim(cmbDiaF.text) & "/" & Trim(cmbMesF.text) & "/" & Trim(cmbAnoF.text), 103) & " "
sql = sql & "GROUP BY pedido.eqz, cadastrovendedor.divisao "
sql = sql & "ORDER BY cadastrovendedor.divisao "

'sql = "SELECT Count(Pedido.Codigo_Pedido) AS ContarDeCodigo_Pedido, Pedido.eqz "
'sql = sql & "FROM CadastroVendedor INNER JOIN Pedido "
'sql = sql & "ON Pedido.Codigo_Vendedor = CadastroVendedor.Codigo_Vendedor "
'sql = sql & "WHERE Pedido.Data2 >= " & Format$(Trim(cmbMesI.text) & "/" & Trim(cmbDiaI.text) & "/" & Trim(cmbAnoI.text), "dd/mm/yyyy") & " "
'sql = sql & "AND Pedido.Data2 <= " & Format$(Trim(cmbMesF.text) & "/" & Trim(cmbDiaF.text) & "/" & Trim(cmbAnoF.text), "dd/mm/yyyy") & " "
'sql = sql & "GROUP BY Pedido.eqz, cadastrovendedor.divisao "
'sql = sql & "ORDER BY CadastroVendedor.Divisao "

'MsgBox sql
'rs.Open sql, cn

'define o cabeçalho das células no excel
Range("A1").Value = "Código do pedido"
Range("B1").Value = "EQZ"

i = 2
If Not rs.EOF Then
     Do While Not rs.EOF
        Range("A" & i).Value = rs(0)
        Range("B" & i).Value = rs(1)
        rs.MoveNext
        i = i + 1
    Loop
End If
cn.Close

Rafael Carlos Martin

Desenvolvedor de WebSites e Sitemas

E-mail:rafa-martin@ibest.com.br

MSN: rafa_40005@hotmail.com

Rochª

RIO DE JANEIRO
RJ - BRASIL

Postada em 10/08/2005 17:25 hs

Foi mau o Rio estava sem Veloz agora voltou (lento).

Coloque um ponto de parada (F9 fica com cor vermelha) no inicio da rotina. Made executar. Quando o fluxo chegar no ponto vermelho ele para ai vai dando F8 para executar linha a linha ate que a execucao seja desviada. Ai voce sabe a linha que esta com problema.

Outra coisa o rs.open esta como comentario ao vai ser executado e nao vai ter nada para ler. De uma olhada.

__________________________________________________________________________

Qualquer coisa post

Rochª

Página(s): 1/2 PRÓXIMA »

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR