CHAMAR RELATORIO CRYSTAL PELO VB COM SQL SERVER

USUARIO.EXCLUIDOS 01/06/2005 10:49:12
#86344
PESSOAL, TENHO UM RELATORIO QUE FUNCIONA COM ACESS, MUDEI O BANCO PARA SQL SERVER, PRECISO RODAR O RELATORIO A PARTIR DA APLICAÇÃO, NO ACESS EU USAVA ALGO PARECIDO COM
CR.DATASOURCE = BANCO.MDB

COMO FAÇO A CONEXÃO PARA O SQL SERVER?
OCTOPUS 01/06/2005 13:12:51
#86375

dim cn As ADODB.Connection
dim rs As ADODB.Recordset

Set cn = New ADODB.Connection
cn.ConnectionString = "StringDeConexaoComOBanco"
cn.Open

Set rs = New ADODB.Recordset
Set rs.ActiveConnection = cn
rs.Source = "select * from Tabela"
rs.Open

Relatorio.Database.Tables(1).SetDataSource rs, 3

rs.Close
cnn.Close
set rs = nothing
set cnn = nothing


Espero ter ajudado.
Tópico encerrado , respostas não são mais permitidas
Voltar