ayuda que puede ser ???
Publicado por jose pedro (1 intervención) el 02/10/2007 19:57:01
me estoy iniciando en los reportes utilizando reportviewer, encontre una rutina en c# y estoy tratando de traducirla a visualbasic, cuando la ejecuto me dice el siguiente mensaje
No se ha proporcionado ninguna instancia de origen de datos para el origen de datos 'DataSet3_DatosA'.
tengo un data set llamado dataset3 con una data table llamada DatosA
este es el codigo de mi rutina
Public Conexion, SQLStr As String
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Conexion = "Server=server01;Database=database01;User ID=usuari01;Password=clave01;"
Dim sqlcon As SqlConnection
Dim sqlds As SqlDataAdapter
Dim ds As New DataSet3
SQLStr = "Select A.campo01,A.campo02,B.campo01,B.campo02 " & _
"From database01.dbo.T_tabla01 A INNER JOIN database02.dbo.t_tabla01 B ON " & _
"A.campo01 = B.campo01 " & _
"Where A.campo01 = 21654 " & _
"ORDER BY B.campo01 desc,B.campo02 desc "
sqlcon = New SqlConnection(Conexion)
sqlds = New SqlDataAdapter(SQLStr, sqlcon)
sqlds.Fill(ds, "DatosA")
Dim datasource As New ReportDataSource
datasource.Name = "ds1"
datasource.Value = ds.DatosA
Me.ReportViewer1.LocalReport.DataSources.Clear()
Me.ReportViewer1.LocalReport.DataSources.Add(datasource)
Me.ReportViewer1.LocalReport.Refresh()
End Sub
espero me puedan ayudar donde me esta fallando,
gracias a todos.
No se ha proporcionado ninguna instancia de origen de datos para el origen de datos 'DataSet3_DatosA'.
tengo un data set llamado dataset3 con una data table llamada DatosA
este es el codigo de mi rutina
Public Conexion, SQLStr As String
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Conexion = "Server=server01;Database=database01;User ID=usuari01;Password=clave01;"
Dim sqlcon As SqlConnection
Dim sqlds As SqlDataAdapter
Dim ds As New DataSet3
SQLStr = "Select A.campo01,A.campo02,B.campo01,B.campo02 " & _
"From database01.dbo.T_tabla01 A INNER JOIN database02.dbo.t_tabla01 B ON " & _
"A.campo01 = B.campo01 " & _
"Where A.campo01 = 21654 " & _
"ORDER BY B.campo01 desc,B.campo02 desc "
sqlcon = New SqlConnection(Conexion)
sqlds = New SqlDataAdapter(SQLStr, sqlcon)
sqlds.Fill(ds, "DatosA")
Dim datasource As New ReportDataSource
datasource.Name = "ds1"
datasource.Value = ds.DatosA
Me.ReportViewer1.LocalReport.DataSources.Clear()
Me.ReportViewer1.LocalReport.DataSources.Add(datasource)
Me.ReportViewer1.LocalReport.Refresh()
End Sub
espero me puedan ayudar donde me esta fallando,
gracias a todos.
Valora esta pregunta


0