CRYSTAL REPORTS PARA ACESSO A DADOS REMOTOS
Como passo o parametro para acesso a dados remotos a o componente CrystalReport.
Já tentei de diverssas formas uma dela é assim Crystl1.Connect = "DSN=SICON;UID=root;PWD=asdf85985Rodrigo;DSQ=SICON"
Se alguem puder me ajuada agradeço desde de já.
Já tentei de diverssas formas uma dela é assim Crystl1.Connect = "DSN=SICON;UID=root;PWD=asdf85985Rodrigo;DSQ=SICON"
Se alguem puder me ajuada agradeço desde de já.
SERIA ISSO QUE VC QUER ?????
Dim Sql As String
Screen.MousePointer = vbHourglass
CRViewer91.ReportSource = CrystalReport1
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + " este.mdb" 'Abre a conexão ADO
Set RS = New ADODB.Recordset
Sql = "SELECT * FROM teste WHERE Nome ='" & Form3.txt.Text & "'" 'String SQL para o recordset que queremos
RS.Open Sql, cnn, adOpenStatic, adLockPessimistic, adCmdText 'Abrindo o Recordset
CrystalReport1.Database.SetDataSource RS 'é nessa linha que vc "seta" o recordset que vc criou para ser a fonte de dados pro relatório. Lembrando-se que os campos do recordset têem que ser do mesmo tipo definido no arquivo de definição
CRViewer91.ViewReport
DoEvents
Screen.MousePointer = vbDefault
CRViewer91.Refresh
Dim Sql As String
Screen.MousePointer = vbHourglass
CRViewer91.ReportSource = CrystalReport1
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + " este.mdb" 'Abre a conexão ADO
Set RS = New ADODB.Recordset
Sql = "SELECT * FROM teste WHERE Nome ='" & Form3.txt.Text & "'" 'String SQL para o recordset que queremos
RS.Open Sql, cnn, adOpenStatic, adLockPessimistic, adCmdText 'Abrindo o Recordset
CrystalReport1.Database.SetDataSource RS 'é nessa linha que vc "seta" o recordset que vc criou para ser a fonte de dados pro relatório. Lembrando-se que os campos do recordset têem que ser do mesmo tipo definido no arquivo de definição
CRViewer91.ViewReport
DoEvents
Screen.MousePointer = vbDefault
CRViewer91.Refresh
Tópico encerrado , respostas não são mais permitidas