DATA ENVIRONMENT ERRO

TECLA 03/06/2010 20:11:00
#343836 Resposta escolhida

Se a intenção é utilizar o DATAREPORT, não há necessidades de utilizar o DE.
Utilizando somente um RECORDSET (e um CONNECTION) é mais do que suficiente para alimentar o RPT.

MARCELOFAZAN 03/06/2010 20:28:32
#343838

estou tomando assim o começo


Dim DataInicial As String
Dim DataFinal As String

DataInicial = Format(actDataInicial.Value, [Ô]mm/dd/yy[Ô])
DataFinal = Format(actDataFinal.Value, [Ô]mm/dd/yy[Ô])

dteRelatorio.cmdClientes_Data DataIncial, DataFinal
Unload Me
dtrClientes.Show 1

End Sub


quero fazer algo assim

dteRelatorio.cmdClientes_Data DataIncial, DataFinal - essa linha parece ser arquivos de dataenvironment e connecao .... e condicao

porem queria substituir isso e chamar um RPT

só que meu projeto nao aceita criar um novo RPT

pq ? é o erro la de cima

MARCELOFAZAN 03/06/2010 21:02:19
#343844

seria isso que é pra fazer ??


Private Sub cmdImprimir_Click()
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset

[ô]Recordset desconectado
rs.ActiveConnection = Nothing
rs.CursorLocation = adUseClient

[ô]Criar colunas em Run-Time
rs.Fields.Append [Ô]Nome[Ô], adChar, 100
rs.Fields.Append [Ô]Cargo[Ô], adChar, 100

[ô]Abrir Recordset e popular em Run-Time
rs.Open
rs.AddNew
rs.Fields(0) = txtNome
rs.Fields(1) = txtCargo
rs.Update

[ô]Passar o recordset como parâmetro para o Report
Set DataReport1.DataSource = rs
Set DataReport1.Sections([Ô]Section1[Ô]).Controls([Ô]Image1[Ô]).Picture = imgFoto.Picture
DataReport1.Show
End Sub


tem um exemplo do lula aqui , mais tipo ........mesmo se eu der 2 cliqies emcima do report q nem nesse projeto ... me da o mesmo erro

preciso talves seja instalar ou reparar desbloquear algo ... colocar referencia ?
nao consigo adicionar abrir reporter em nenhum projeto

MARCELOFAZAN 04/06/2010 11:21:31
#343870

tinha rodado um SP5 corrompido , ai desinstalei e instalei novamente
agora os reports voltaram a se abrir
obrigado