Accees con crystal report

[mcofy]

Saludos!

Tengo una BD de accees, y tanbien tengo diseñado un reporte con el crystal report, ahora bien, lo que quiero es saber como le paso parametros desde el vb.net, para que solo me muestre lo que quiero, en otras palabras como le envio la consulta,

este es el codigo que uso cuando mando a llamar un reporte, pero la BD es de mysql, el problema es que ahora tengo la BD en acces, y no se como se acerlo.
podrian ayudarme porfavor!!!!!!!!!!!

Este codigo lo pongo en un botton.

Código:

 Dim con2 As New MySqlConnection
        Dim ds2 As New DataSet
        Dim da2 As New MySqlDataAdapter
        Dim dt2 As New DataTable
        Dim comando2 As New MySqlCommand
        Dim reporte2 As New reporte
        Dim datos As SummaryInfo
        datos = reporte2.SummaryInfo
        dt2.Clear()
        Dim conn As String = "server=localhost; user id=root; password=123456; database=base1"
        con2 = New MySqlConnection(conn)
        comando2.Connection = con2
        comando2.CommandText = "select *  from tabla_uno where clave='" & me.textbox1.text & "' "
        da2 = New MySqlDataAdapter(comando2)
        da2.Fill(dt2)
        reporte2.SetDataSource(dt2)
        reporte2.Refresh()
        hojareporte.CrystalReportViewer1.ReportSource = reporte2
        hojareporte.CrystalReportViewer1.Refresh()
        hojareporte.Text = "Reporte"
         hojareporte.Show()

[Ka0stj]

Hola mcofy

Trata de utilizar la siguiente instrucción:

Código vb:

CrystalReportViewer1.SelectionFormula = "{TABLA O VISTA}=" & TuFiltro
 

Ponlo después de tu SetDataSource. Avisas como te va. Suerte...

[mcofy]

Bueno he resuelto el problema, y era mas simple de lo que pensaba, lo unico que realice fue usar el mismo codigo que uso para el mysql, y lo adapte al una conexion con accees y funciona de maravilla. Les conparto el codigo:

Código vb:

Const DB_PATH = "\\direccion_ip\base.MDB"
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim con2 As New OleDbConnection
        con2.ConnectionString = "PROVIDER=MICROSOFT.JET.OLEDB.4.0; " & "DATA SOURCE=" & DB_PATH
        con2.Open()
        'MsgBox("open")
        Dim ds2 As New DataSet
        Dim da2 As New OleDbDataAdapter
        Dim dt2 As New DataTable
        Dim comando2 As New OleDbCommand
        Dim consulta As String
        consulta = "select * from tabla where folio= '" & Me.TextBox1.Text & "'"
        Dim reporte2 As New reporte_patologia
        dt2.Clear()
        comando2.Connection = con2
        comando2.CommandText = consulta
        da2 = New OleDbDataAdapter(comando2)
        da2.Fill(dt2)
        reporte2.SetDataSource(dt2)
        reporte2.Refresh()
        Me.CrystalReportViewer1.ReportSource = reporte2
        Me.CrystalReportViewer1.Refresh()
        con2.Close()
        con2.Dispose()
    End Sub
 

Bueno saludos y gracias!