DATATABLE

ARNALDOCRUZ 29/09/2010 13:35:06
#354134
colegas para poder usar o crystal com firebird estou fazendo como abaixo
Dim cryA As New RptCliente
Dim dsC As New DSCliente
selcom.Connection = Fbconn
selcom.CommandText = [Ô]SELECT [ô][Ô] & Empresa & [Ô][ô] As Titulo,Cliente,CGC,Telefone From TBLCliente Order By Cliente[Ô]
Dim Reader As FbDataReader = selcom.ExecuteReader()
Do While Reader.Read
Dim dr As DataRow = dsC.Tables(0).NewRow()
dr([Ô]Cliente[Ô]) = Reader([Ô]Cliente[Ô])
dr([Ô]CNPJ[Ô]) = Reader([Ô]CGC[Ô])
dr([Ô]Telefone[Ô]) = Reader([Ô]Telefone[Ô])
dr([Ô]Titulo[Ô]) = Reader([Ô]Titulo[Ô])
dsC.Tables(0).Rows.Add(dr)
Loop
Reader.Close()
cryA.SetDataSource(dsC)
FrmRelatorio.CrystalReportViewer1.ReportSource = cryA

Pergunto existe alguma outra maneira de preecher este dataTable sem ser por loop ?
TECLA 29/09/2010 13:48:19
#354135 Resposta escolhida
Sim, tente algo semelhante a isso:

Dim cryA As New RptCliente
Dim dsC As New DSCliente
Dim da As New FbDataAdapter([Ô]SELECT [ô][Ô] & Empresa & [Ô][ô] As Titulo,Cliente,CGC,Telefone From TBLCliente Order By Cliente[Ô], Fbconn)
Dim ds As New DataSet
da.Fill(ds)
dsC = ds
cryA.SetDataSource(dsC)
FrmRelatorio.CrystalReportViewer1.ReportSource = cryA
ARNALDOCRUZ 02/10/2010 10:06:25
#354299
Não funcionou Tecla, tentei de todas as maneiras possiveis, não acusa erro porem o relatório e aberto sem registro.

ai optei por adionar linha a linha

obrigado
Tópico encerrado , respostas não são mais permitidas
Voltar