Visual Basic.NET - URGENTE!!! por favor.

   
Vista:

URGENTE!!! por favor.

Publicado por JosInfo (12 intervenciones) el 12/01/2009 19:33:20
Hola a todos.
Soy nuevo en VB .Net 2008 y necesito hacer un reporte para la aplicación, el codigo que estoy utilizando es el siguiente:

1 Dim rpt As New RepRecep
2 Cmd = New OleDb.OleDbDataAdapter(Consulta, Conexion)
3 Dt = New DataTable
4 Cmd.Fill(Dt)
5 If Dt.Rows.Count > 0 Then
6 rpt.SetDataSource(Dt)
7 rpt.Refresh()
8 CRV_Recep.ReportSource = rpt
9 CRV_Recep.Refresh()
10 Me.Show()
11 End If

Y en linea 6 me da el siguiente error -El informe no tiene tablas.-, no entiendo por que me da ese error.

Agradesco de antemano la ayuda.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:URGENTE!!! por favor.

Publicado por Damian (824 intervenciones) el 13/01/2009 22:02:07
Por lo que veo el reporte lo realisaste desde VB.NET, y no muestras todo el codigo ya que falta el contenido de la Consulta,tampoco se ve de donde viene Conexion para ver como estan realizada las misma y si esta bien enlazada.
Que es Dt, de donde viene,trata de poner todo, porque uno no sabe como vienen las cosas. Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:URGENTE!!! por favor.

Publicado por JosInfo (12 intervenciones) el 14/01/2009 15:33:33
Hola Damian, gracias por tu atención.

Aquí esta el código:

1 Dim ConnSQL As OleDb.OleDbConnection
2 Dim Cmd As OleDb.OleDbDataAdapter
3 Dim Dt As DataTable
4 Dim CSQLRep As String
5 ConnSQL = New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source= " + Application.StartupPath + "Bd.mdb;")
6 ConnSQL.Open()
7 CSQLRep="Select nombre,edad,codigopostal From Persona Where codigo postal=052"
8 Cmd = New OleDb.OleDbDataAdapter(CSQLRep, ConnSQL)
9 Dt = New DataTable
10 Cmd.Fill(Dt)

11 rpt.SetDataSource(Dt) ---> Error: El informe no tiene tablas

12 Form1.CRV_Recep.ReportSource = rpt
13 Form1.show()

Espero me puedas ayudar.
Gracias.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:URGENTE!!! por favor.

Publicado por Damian (824 intervenciones) el 14/01/2009 16:28:56
No entiendo porque en la linea 3 creas Dt o sea el DataTable y en la 9 lo vuelves a crear como New, cuando en realidad en Dt nunca tienes nada, por eso lo de que no tiene tablas. Tendria que ser algo asi:

Dim Datos as New Dataset
Dim Cmd As OleDb.OleDbDataAdapter

Cmd.Fill(Datos,"Persona")->2º parametro el nombre de la tabla de tu base a usar.
'En tu linea 11 donde te da error:
rpt.SetDataSource(Datos)
Fijate que Cmd.Fill() te tiene que tirar uno de dos parametros entre otros.

Espero mas o menos orientarte, pero lo seguro es que el Dt que usas va vacio.
Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:URGENTE!!! por favor.

Publicado por JosInfo (12 intervenciones) el 14/01/2009 18:44:45
Tienes mucha razón Damian, estaba tan mariado con el problema que no me daba cuenta.

Muchas gracias.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar