Problemas com cláusula WHERE no DataReport

[Guest --Marco Antonio --]

Olá a todos!

Estou criando um alicativo no VB que possui dois relatórios. Um dos relatórios apenas lista os registros da tabela e o outro lista os registros em que o campo "fim" esteja com valor de 'Pendente'.

Bom, o primeiro relatório eu apenas faço um SELECT FROM e vai de boa, mas o problema é no segundo. Para o segundo eu crio um SELECT * FROM tabela WHERE fim = '" & Pendente & "', mas ele simplesmente não lista nada!

Então, o problema é esse: Quando eu uso a cláusula WHERE no select, o DataReport tra o relatório em branco.

Abaixo tem o código que eu coloco no evento Initialize do relatório.

Private Sub DataReport_Initialize()
DataReport2.Orientation = rptOrientLandscape
If cn.State = adStateOpen Then cn.Close
  cn.CursorLocation = adUseClient
  cn.ConnectionString = DataEnvironment1.Connection1
  cn.Open "DSN=inventario"
  sql = "SELECT * FROM mailling WHERE fim = '" & Pendente & "'"
  rs.Open sql, cn, adOpenForwardOnly

Set DataReport2.DataSource = rs
End Sub

Desde já agradeço a atenção!

[kuroi]

isso ai q você fez vai tentar pega o valor de uma variavel chamada pendente.

você criou essa variavel mesmo e tem alguma coisa dentro?? se não tiver, ele vai por valor em branco e vai lista todos os registros em q o campo fim tiver em branco.

se você quer pegar pelo valor pendente, ele tem q fazer parte da string, assim:

sql = "SELECT * FROM mailling WHERE fim = 'Pendente'"

[Guest --Adriano --]

Olá a todos!

Estou criando um alicativo no VB que possui dois relatórios. Um dos relatórios apenas lista os registros da tabela e o outro lista os registros em que o campo "fim" esteja com valor de 'Pendente'.

Bom, o primeiro relatório eu apenas faço um SELECT FROM e vai de boa, mas o problema é no segundo. Para o segundo eu crio um SELECT * FROM tabela WHERE fim = '" & Pendente & "', mas ele simplesmente não lista nada!

Então, o problema é esse: Quando eu uso a cláusula WHERE no select, o DataReport tra o relatório em branco.

Abaixo tem o código que eu coloco no evento Initialize do relatório.

Private Sub DataReport_Initialize()
DataReport2.Orientation = rptOrientLandscape
If cn.State = adStateOpen Then cn.Close
  cn.CursorLocation = adUseClient
  cn.ConnectionString = DataEnvironment1.Connection1
  cn.Open "DSN=inventario"
  sql = "SELECT * FROM mailling WHERE fim = '" & Pendente & "'"
  rs.Open sql, cn, adOpenForwardOnly

Set DataReport2.DataSource = rs
End Sub

Desde já agradeço a atenção!

Se voce estiver escrevendo no vb vai ser o que o kuroi disse só q o pendente tem de estar entre aspas duplas

sql = "SELECT * FROM mailling WHERE fim like '" & "Pendente" & "'"

[Guest --Marco Antonio --]

Exatamente senhores!!!

O Pendente tem que fazer parte da string. Fiz desse modo:

"SELECT * FROM mailling WHERE fim = 'Pendente'"

Obrigado!