Ayuda por favor
Publicado por Arena Sharloth (30 intervenciones) el 18/03/2008 15:09:04
Hola a todos, tengo un formulario que me sirve para realizar busquedas en un reporte en crystal report, el problema esta en que cuando busco el dato por ejemplo: el nombre norwin no me aparece ese nombre sino que me aparece toda la lista de los nombre disponibles, aqui esta el codigo
Gracias por su ayuda
Imports System.Data.SqlClient
Imports CrystalDecisions.CrystalReports
Imports CrystalDecisions.ReportSource
Imports System.Xml
Public Class RptNACIMIENTOS
Public oRpt As New RptNACIMIENTO
Private oConexion As New SqlConnection
Private oDataAdapter As New SqlDataAdapter
Private oDataSet As New DataSet
Private Buscar As String
Private Sub RptNACIMIENTOS_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
oConexion.Close()
oConexion.Dispose()
End Sub
Public Sub BuscarDatos()
Buscar = txtBuscar.Text
Try
Me.oConexion = New SqlConnection
oConexion.ConnectionString = conexion
Me.oDataAdapter = New SqlDataAdapter _
("Select * From CERTIFICADO_NACIMIENTO Where AÑOS = '" & Buscar & "' order by AÑOS", oConexion)
Me.oDataSet = New DataSet
oConexion.Open()
Me.oDataSet.Clear()
Me.oDataAdapter.Fill(Me.oDataSet, "CERTIFICADO_NACIMIENTO ")
oRpt.SetDataSource(oDataSet)
CrReporteNacimiento.ReportSource = oRpt
Catch oexcep As SqlException
MessageBox.Show("Error al conectarte" & ControlChars.CrLf & oexcep.Message & ControlChars.CrLf & oexcep.Source())
End Try
End Sub
Private Sub CmdBuscar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdBuscar.Click
BuscarDatos()
End Sub
End Class
Gracias por su ayuda
Imports System.Data.SqlClient
Imports CrystalDecisions.CrystalReports
Imports CrystalDecisions.ReportSource
Imports System.Xml
Public Class RptNACIMIENTOS
Public oRpt As New RptNACIMIENTO
Private oConexion As New SqlConnection
Private oDataAdapter As New SqlDataAdapter
Private oDataSet As New DataSet
Private Buscar As String
Private Sub RptNACIMIENTOS_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
oConexion.Close()
oConexion.Dispose()
End Sub
Public Sub BuscarDatos()
Buscar = txtBuscar.Text
Try
Me.oConexion = New SqlConnection
oConexion.ConnectionString = conexion
Me.oDataAdapter = New SqlDataAdapter _
("Select * From CERTIFICADO_NACIMIENTO Where AÑOS = '" & Buscar & "' order by AÑOS", oConexion)
Me.oDataSet = New DataSet
oConexion.Open()
Me.oDataSet.Clear()
Me.oDataAdapter.Fill(Me.oDataSet, "CERTIFICADO_NACIMIENTO ")
oRpt.SetDataSource(oDataSet)
CrReporteNacimiento.ReportSource = oRpt
Catch oexcep As SqlException
MessageBox.Show("Error al conectarte" & ControlChars.CrLf & oexcep.Message & ControlChars.CrLf & oexcep.Source())
End Try
End Sub
Private Sub CmdBuscar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdBuscar.Click
BuscarDatos()
End Sub
End Class
Valora esta pregunta


0