Hola,
Al hacer un informe en crytal report con visual basic 2005, me sale el siguiente error.
Pongo primero el codigo y despues dicho error:
Imports System
Imports System.Data
Imports System.Data.OleDb
Imports CrystalDecisions.CrystalReports.Engine
Public Class informefecha
Dim cn As OleDbConnection
Dim cm As OleDbCommand
Dim da As OleDbDataAdapter
Dim sql As String
Dim ds As DataSet
Private Sub informefecha_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: esta línea de código carga datos en la tabla 'BasedatosDataSet.tareas' Puede moverla o quitarla según sea necesario.
Me.TareasTableAdapter.Fill(Me.BasedatosDataSet.tar eas)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
sql = "SELECT * FROM tareas WHERE Fecha>=@Nfecha AND Fecha<=@Nbfecha"
cn = New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLED B.4.0;Data Source=|DataDirectory|\basedatos.mdb")
cn.Open()
cm = New OleDbCommand
cm.CommandText = sql
cm.CommandType = Data.CommandType.Text
cm.Connection = cn
cm.Parameters.Add("@Nfecha", OleDb.OleDbType.Date)
cm.Parameters("@Nfecha").Value = FechaDateTimePicker.Text
cm.Parameters.Add("@Nbfecha", OleDb.OleDbType.Date)
cm.Parameters("@Nbfecha").Value = FechaDateTimePicker1.Text
da = New OleDb.OleDbDataAdapter(cm)
ds = New DataSet()
da.Fill(ds)
TareasDataGridView.DataSource = ds.Tables(0).DefaultView
MessageBox.Show("busqueda conluida")
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Try
Dim rep As New tareas()
da.Fill(rep, "tareas")
Dim reporte As New informecoste()
reporte.SetDataSource(rep)
Dim doxme As New informecodigo()
doxme.CrystalReportViewer1.ReportSource = reporte
doxme.Text = "Reporte produccion operarios por valor"
doxme.Show()
Catch ex As Exception
MessageBox.Show(ex.Message, "Imprimir", _
MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
End Class
EL ERROR QUE ME SALE ES EL SIGUIENTE:
Error 1 Error de resolución de sobrecarga porque ninguna de las funciones 'Fill' a las que se tiene acceso se puede llamar con estos argumentos:
'Public Function Fill(startRecord As Integer, maxRecords As Integer, ParamArray dataTables() As System.Data.DataTable) As Integer': Un valor de tipo 'planificacion.tareas' no se puede convertir en 'Integer'.
'Public Function Fill(dataSet As System.Data.DataSet, srcTable As String) As Integer': Un valor de tipo 'planificacion.tareas' no se puede convertir en 'System.Data.DataSet'.
'Public Function Fill(dataTable As System.Data.DataTable, ADODBRecordSet As Object) As Integer': Un valor de tipo 'planificacion.tareas' no se puede convertir en 'System.Data.DataTable'. D:\Proyectos\planificacion\planificacion\planifica cion\Informes\informefecha.vb 39 13 planificacion
Gracias,
