mi dici per favore come è definita SQLDataSetFill ?

è una mia funzione


te la regalo


Public Function SQLDataSetFill(ByRef pdbDS As DataSet _
, ByVal psSQLCmd As String _
) As Boolean


Dim OLEDBConn As OleDbConnection = New OleDbConnection(strConn)
Dim dbAdap As OleDbDataAdapter
Dim bCatched As Boolean
Dim sError As String


bCatched = False
Try
OLEDBConn.Open()
dbAdap = New OleDbDataAdapter(_sql_CmdPrep(psSQLCmd), OLEDBConn)
dbAdap.Fill(pdbDS)
OLEDBConn.Close()

Catch Ex As Exception
bCatched = True
sError = Ex.Message


Finally
If OLEDBConn.State = ConnectionState.Open Then
OLEDBConn.Close()
End If

End Try

SQLDataSetFill = Not bCatched

End Function



Public Function _sql_CmdPrep ( ByVal sCmd as String ) as String

dim iScan as Integer


_sql_CmdPrep = sCmd
exit Function

iScan = 1
do
iScan = Instr( iScan, sCmd, "." )
if iScan = 0 Then Exit Do

If Mid$( sCmd, iScan, 1 ) = "." Then
Mid$( sCmd, iScan, 1 ) = "_"
End If

Loop

_sql_CmdPrep = sCmd

End Function

il dataset è pieno

metti questo prima dell'export


Dim spathname As String = Path.GetTempFileName()
Dim DiskOpts As CrystalDecisions.Shared.DiskFileDestinationOptions = New CrystalDecisions.Shared.DiskFileDestinationOptions
crpt.ExportOptions.ExportDestinationType = CrystalDecisions.[Shared].ExportDestinationType.DiskFile
crpt.ExportOptions.ExportFormatType = CrystalDecisions.[Shared].ExportFormatType.PortableDocFormat
DiskOpts.DiskFileName = spathname
crpt.ExportOptions.DestinationOptions = DiskOpts


'Print report in landscape
crpt.PrintOptions.PaperOrientation = PaperOrientation.Landscape
crpt.PrintOptions.PaperSize = PaperSize.PaperA4


'ORA FAI EXPORT
crpt.Export()



Response.ClearContent()
Response.ClearHeaders()
Response.ContentType = "application/pdf"
Response.WriteFile(spathname)
Response.Flush()
Response.Close()

System.IO.File.Delete(spathname)

importa questo
Imports System.IO



il dataset è pieno????