I Pregunta de Avance II
+16
Orlando García
LORENA L
Trikcy V
Julio_IIIBTCnoc.
kevinR_IIIbtcnoc.
Tobar
gledi
julieth
Ana Gutierrez
ManuelFlores
Lourdes Cortes
Archaga
juan lazo
sayli yenisel
ROBERTO HALL
Admin
20 participantes
Ques un Crystal Report Viewer y cual es la programacion para un boton de Imprimir
Admin- Admin
- Mensajes : 11
Fecha de inscripción : 08/02/2010
- Mensaje n°1
Ques un Crystal Report Viewer y cual es la programacion para un boton de Imprimir
Admin Miér Mar 17, 2010 7:04 am
ROBERTO HALL- Mensajes : 2
Fecha de inscripción : 10/02/2010
Edad : 38
Localización : Barrio Suyapa
- Mensaje n°2
Re: Ques un Crystal Report Viewer y cual es la programacion para un boton de Imprimir
ROBERTO HALL Jue Mar 18, 2010 12:04 am
Crystal Report Viewer:
es un generador de reportes de una o mas tablas que se utilisa para mostrar los informes creados en visual.net e imprimirlos.
La Programacion De Un boton de imprimir es :
Private Sub RBTNIMPRIMIR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RBTNIMPRIMIR.Click
If rocn.State = ConnectionState.Open Then
rocn.Close()
End If
If rtxtcodigo.Text = "" Then
MessageBox.Show("NO HAY DATOS PARA IMPRIMIR", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
rtxtcodigo.Focus()
Else
Try
rocn.Open()
Dim sql As String
sql = "select*from nombre de la tabla where nombre de la columna clave='" & rtxtcodigo.Text & "'"
Dim ODA As OleDbDataAdapter
ODA = New OleDbDataAdapter(sql, rocn)
Dim DT As New DataTable
DT.Clear()
ODA.Fill(DT)
Dim REPORTE As New nombre del crystalreport1
REPORTE.SetDataSource(DT)
REPORTE.Refresh()
nombre del formulario.nombre del crystalreportviewer.ReportSource = REPORTE
nombre del formulario.nombre del crystalreportviewer.Refresh()
nombre del formulario.Show()
rocn.Close()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End If
End Sub
sayli yenisel- Mensajes : 2
Fecha de inscripción : 13/02/2010
- Mensaje n°3
Re: Ques un Crystal Report Viewer y cual es la programacion para un boton de Imprimir
sayli yenisel Sáb Mar 20, 2010 12:16 am
Crystal Report Viewer:
Es un generador de reportes de una o mas tablas que se utilisa para mostrar los informes creados en visual.net e imprimirlos.La Programacion De Un boton de imprimir es :
Private Sub RBTNIMPRIMIR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RBTNIMPRIMIR.Click
If rocn.State = ConnectionState.Open Then
rocn.Close()
End If
If rtxtcodigo.Text = "" Then
MessageBox.Show("NO HAY DATOS PARA IMPRIMIR", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
rtxtcodigo.Focus()
Else
Try
rocn.Open()
Dim sql As String
sql = "select*from nombre de la tabla where nombre de la columna clave='" & rtxtcodigo.Text & "'"
Dim ODA As OleDbDataAdapter
ODA = New OleDbDataAdapter(sql, rocn)
Dim DT As New DataTable
DT.Clear()
ODA.Fill(DT)
Dim REPORTE As New nombre del crystalreport1
REPORTE.SetDataSource(DT)
REPORTE.Refresh()
nombre del formulario.nombre del crystalreportviewer.ReportSource = REPORTE
nombre del formulario.nombre del crystalreportviewer.Refresh()
nombre del formulario.Show()
rocn.Close()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End If
End Sub[center]
sayli yenisel- Mensajes : 2
Fecha de inscripción : 13/02/2010
- Mensaje n°4
Re: Ques un Crystal Report Viewer y cual es la programacion para un boton de Imprimir
sayli yenisel Sáb Mar 20, 2010 12:25 am
Crystal Report Viewer
:es un generador de reportes de una o mas tablas que se utilisa para mostrar los informes creados en visual.net e imprimirlos.
La Programacion De Un boton de imprimir es
:Private Sub RBTNIMPRIMIR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RBTNIMPRIMIR.Click
If rocn.State = ConnectionState.Open Then
rocn.Close()
End If
If rtxtcodigo.Text = "" Then
MessageBox.Show("NO HAY DATOS PARA IMPRIMIR", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
rtxtcodigo.Focus()
Else
Try
rocn.Open()
Dim sql As String
sql = "select*from nombre de la tabla where nombre de la columna clave='" & rtxtcodigo.Text & "'"
Dim ODA As OleDbDataAdapter
ODA = New OleDbDataAdapter(sql, rocn)
Dim DT As New DataTable
DT.Clear()
ODA.Fill(DT)
Dim REPORTE As New nombre del crystalreport1
REPORTE.SetDataSource(DT)
REPORTE.Refresh()
nombre del formulario.nombre del crystalreportviewer.ReportSource = REPORTE
nombre del formulario.nombre del crystalreportviewer.Refresh()
nombre del formulario.Show()
rocn.Close()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End If
End Sub
juan lazo- Mensajes : 2
Fecha de inscripción : 13/02/2010
Edad : 35
Localización : El Progreso
Crystal Report Viewer:
Es un generador de reportes de una o mas tablas que se utilisa para mostrar los informes creados en visual.net e imprimirlos.
La Programacion De Un boton de imprimir es :
Private Sub BTNIMPRIMIR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNIMPRIMIR.Click
If rocn.State = ConnectionState.Open Then
rocn.Close()
End If
If rtxtcodigo.Text = "" Then
MessageBox.Show("NO HAY DATOS PARA IMPRIMIR", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
txtcodigo.Focus()
Else
Try
ocn.Open()
Dim sql As String
sql = "select*from nombre de la tabla where nombre de la columna clave='" & txtcodigo.Text & "'"
Dim ODA As OleDbDataAdapter
ODA = New OleDbDataAdapter(sql, ocn)
Dim DT As New DataTable
DT.Clear()
ODA.Fill(DT)
Dim REPORTE As New nombre del crystalreport1
REPORTE.SetDataSource(DT)
REPORTE.Refresh()
nombre del formulario.nombre del crystalreportviewer.ReportSource = REPORTE
nombre del formulario.nombre del crystalreportviewer.Refresh()
nombre del formulario.Show()
ocn.Close()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End If
End Sub[center]
Es un generador de reportes de una o mas tablas que se utilisa para mostrar los informes creados en visual.net e imprimirlos.
La Programacion De Un boton de imprimir es :
Private Sub BTNIMPRIMIR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNIMPRIMIR.Click
If rocn.State = ConnectionState.Open Then
rocn.Close()
End If
If rtxtcodigo.Text = "" Then
MessageBox.Show("NO HAY DATOS PARA IMPRIMIR", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
txtcodigo.Focus()
Else
Try
ocn.Open()
Dim sql As String
sql = "select*from nombre de la tabla where nombre de la columna clave='" & txtcodigo.Text & "'"
Dim ODA As OleDbDataAdapter
ODA = New OleDbDataAdapter(sql, ocn)
Dim DT As New DataTable
DT.Clear()
ODA.Fill(DT)
Dim REPORTE As New nombre del crystalreport1
REPORTE.SetDataSource(DT)
REPORTE.Refresh()
nombre del formulario.nombre del crystalreportviewer.ReportSource = REPORTE
nombre del formulario.nombre del crystalreportviewer.Refresh()
nombre del formulario.Show()
ocn.Close()Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End If
End Sub[center]
Archaga- Mensajes : 2
Fecha de inscripción : 15/02/2010
Edad : 44
Localización : El progreso Yoro Col. Fraternidad de la Paz
- Mensaje n°6
Re: Ques un Crystal Report Viewer y cual es la programacion para un boton de Imprimir
Archaga Dom Mar 21, 2010 6:15 am
Crystalreportviewer: Es un generadorde reportes de una o mas tablas que se utiliza para mostrar los informes creados en V.B.Net e imprimirlos.
Private Sub btnimprimir_Click (Byval sender As system.Object,Byval e As System.EventArgs)Handles btnimprimir.Click
If Ocn.State = connectionState.Open Then
Ocn.Close()
End If
If txtcodigo.Text = "" Then
MessageBox.show ("no hay datos para imprimir", error MessageBox.Button.OK MessageBoxIcon.Click )
txtcodigo.Focus ()
Else
Try
Ocn.Open()
Dim sql As String
sql = "Select * from nombre de la tabla where nombre del campo principal = '" & txtcodigo.text &"'"
Dim oda As OleDbDataAdapter
oda = New OleDbDataAdapter (sql, ocn )
Dim dt As New DataTable
dt.Clear ()
oda.Fill (dt9
Dim reporte As New nombre del crystalreportviewer1
reporte.SetDataSource (dt)
reporte.refresh ()
impresora.nombre del formulario.nombre del crystalreportviewer.reportSource = reporte
impresora.nombre del formulario.nombre del crystalreportviewer.refresh ()
impresora nonbre del formulario.Show ()
Ocn.Close ()
Catch ex As Execption
End Try
End If
End Sub
End Class
[strike]
Private Sub btnimprimir_Click (Byval sender As system.Object,Byval e As System.EventArgs)Handles btnimprimir.Click
If Ocn.State = connectionState.Open Then
Ocn.Close()
End If
If txtcodigo.Text = "" Then
MessageBox.show ("no hay datos para imprimir", error MessageBox.Button.OK MessageBoxIcon.Click )
txtcodigo.Focus ()
Else
Try
Ocn.Open()
Dim sql As String
sql = "Select * from nombre de la tabla where nombre del campo principal = '" & txtcodigo.text &"'"
Dim oda As OleDbDataAdapter
oda = New OleDbDataAdapter (sql, ocn )
Dim dt As New DataTable
dt.Clear ()
oda.Fill (dt9
Dim reporte As New nombre del crystalreportviewer1
reporte.SetDataSource (dt)
reporte.refresh ()
impresora.nombre del formulario.nombre del crystalreportviewer.reportSource = reporte
impresora.nombre del formulario.nombre del crystalreportviewer.refresh ()
impresora nonbre del formulario.Show ()
Ocn.Close ()
Catch ex As Execption
End Try
End If
End Sub
End Class
[strike]
Lourdes Cortes- Mensajes : 4
Fecha de inscripción : 01/03/2010
Edad : 37
Localización : Barrio Monte Video
- Mensaje n°7
Re: Ques un Crystal Report Viewer y cual es la programacion para un boton de Imprimir
Lourdes Cortes Lun Mar 22, 2010 1:05 am
Crystal Report Viewer:
Es un generador de reportes de una o mas tablas que se utilisa para mostrar los informes creados en visual.net e imprimirlos.
La Programacion De Un boton de Imprimir es:
Private Sub LBTNIMPRIMIR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LBTNIMPRIMIR.Click
If Locn.State = ConnectionState.Open Then
Locn.Close()
End If
If Ltxtcodigo.Text = "" Then
MessageBox.Show("No hay datos para imprimir", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
Ltxtcodigo.Focus()
Else
Try
Locn.Open()
Dim sql As String
sql = "select*from nombre de la tabla where nombre de la columna clave='" & Ltxtcodigo.Text & "'"
Dim ODA As OleDbDataAdapter
ODA = New OleDbDataAdapter(sql, Locn)
Dim DT As New DataTable
DT.Clear()
ODA.Fill(DT)
Dim REPORTE As New nombre del crystalreport1
REPORTE.SetDataSource(DT)
REPORTE.Refresh()
nombre del formulario.nombre del crystalreportviewer.ReportSource = REPORTE
nombre del formulario.nombre del crystalreportviewer.Refresh()
nombre del formulario.Show()
Locn.Close()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End If
End Sub
ManuelFlores- Mensajes : 2
Fecha de inscripción : 17/02/2010
- Mensaje n°8
Re: Ques un Crystal Report Viewer y cual es la programacion para un boton de Imprimir
ManuelFlores Lun Mar 22, 2010 2:40 am
Crystal Report Viewer
Es un generador de reportes de una o mas tablas que se utilisa para mostrar los informes creados en visual.net e imprimirlos.
La Programacion De Un boton de Imprimir es:
Private Sub btnimprimir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnimprimir.Click
If Locn.State = ConnectionState.Open Then
Locn.Close()
End If
If txtcodigo.Text = "" Then
MessageBox.Show("No hay datos para imprimir", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
txtcodigo.Focus()
Else
Try
Locn.Open()
Dim sql As String
sql = "select*from nombre de la tabla where nombre de la columna clave='" & txtcodigo.Text & "'"
Dim ODA As OleDbDataAdapter
ODA = New OleDbDataAdapter(sql, Locn)
Dim DT As New DataTable
DT.Clear()
ODA.Fill(DT)
Dim reporte As New nombre del crystalreport1
reporte.SetDataSource(DT)
reporte.Refresh()
nombre del formulario.nombre del crystalreportviewer.ReportSource = reporte
nombre del formulario.nombre del crystalreportviewer.Refresh()
nombre del formulario.Show()
Locn.Close()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End If
End Sub
Es un generador de reportes de una o mas tablas que se utilisa para mostrar los informes creados en visual.net e imprimirlos.
La Programacion De Un boton de Imprimir es:
Private Sub btnimprimir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnimprimir.Click
If Locn.State = ConnectionState.Open Then
Locn.Close()
End If
If txtcodigo.Text = "" Then
MessageBox.Show("No hay datos para imprimir", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
txtcodigo.Focus()
Else
Try
Locn.Open()
Dim sql As String
sql = "select*from nombre de la tabla where nombre de la columna clave='" & txtcodigo.Text & "'"
Dim ODA As OleDbDataAdapter
ODA = New OleDbDataAdapter(sql, Locn)
Dim DT As New DataTable
DT.Clear()
ODA.Fill(DT)
Dim reporte As New nombre del crystalreport1
reporte.SetDataSource(DT)
reporte.Refresh()
nombre del formulario.nombre del crystalreportviewer.ReportSource = reporte
nombre del formulario.nombre del crystalreportviewer.Refresh()
nombre del formulario.Show()
Locn.Close()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End If
End Sub
Ana Gutierrez- Mensajes : 2
Fecha de inscripción : 22/02/2010
- Mensaje n°9
Re: Ques un Crystal Report Viewer y cual es la programacion para un boton de Imprimir
Ana Gutierrez Lun Mar 22, 2010 3:07 am
Crystal Report Viewer:
es un generador de reportes de una o mas tablas que se utilisa para mostrar los informes creados en visual.net e imprimirlos.
La Programacion De Un boton de imprimir es :
Private Sub BTNIMPRIMIR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNIMPRIMIR.Click
If rocn.State = ConnectionState.Open Then
rocn.Close()
End If
If rtxtcodigo.Text = "" Then
MessageBox.Show("NO HAY DATOS PARA IMPRIMIR", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
rtxtcodigo.Focus()
Else
Try
rocn.Open()
Dim sql As String
sql = "select*from nombre de la tabla where nombre de la columna clave='" & rtxtcodigo.Text & "'"
Dim ODA As OleDbDataAdapter
ODA = New OleDbDataAdapter(sql, rocn)
Dim DT As New DataTable
DT.Clear()
ODA.Fill(DT)
Dim REPORTE As New nombre del crystalreport1
REPORTE.SetDataSource(DT)
REPORTE.Refresh()
nombre del formulario.nombre del crystalreportviewer.ReportSource = REPORTE
nombre del formulario.nombre del crystalreportviewer.Refresh()
nombre del formulario.Show()
rocn.Close()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End If
End Sub
es un generador de reportes de una o mas tablas que se utilisa para mostrar los informes creados en visual.net e imprimirlos.
La Programacion De Un boton de imprimir es :
Private Sub BTNIMPRIMIR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNIMPRIMIR.Click
If rocn.State = ConnectionState.Open Then
rocn.Close()
End If
If rtxtcodigo.Text = "" Then
MessageBox.Show("NO HAY DATOS PARA IMPRIMIR", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
rtxtcodigo.Focus()
Else
Try
rocn.Open()
Dim sql As String
sql = "select*from nombre de la tabla where nombre de la columna clave='" & rtxtcodigo.Text & "'"
Dim ODA As OleDbDataAdapter
ODA = New OleDbDataAdapter(sql, rocn)
Dim DT As New DataTable
DT.Clear()
ODA.Fill(DT)
Dim REPORTE As New nombre del crystalreport1
REPORTE.SetDataSource(DT)
REPORTE.Refresh()
nombre del formulario.nombre del crystalreportviewer.ReportSource = REPORTE
nombre del formulario.nombre del crystalreportviewer.Refresh()
nombre del formulario.Show()
rocn.Close()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End If
End Sub
julieth- Mensajes : 2
Fecha de inscripción : 22/02/2010
- Mensaje n°10
Re: Ques un Crystal Report Viewer y cual es la programacion para un boton de Imprimir
julieth Lun Mar 22, 2010 3:42 am
Crystal Report Viewer
es un generador de reportes de una o mas tablas que se utilisa para mostrar los informes creados en visual.net e imprimirlos.
La Programacion De Un boton de imprimir es
:
Private Sub RBTNIMPRIMIR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RBTNIMPRIMIR.Click
If rocn.State = ConnectionState.Open Then
rocn.Close()
End If
If rtxtcodigo.Text = "" Then
MessageBox.Show("NO HAY DATOS PARA IMPRIMIR", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
rtxtcodigo.Focus()
Else
Try
rocn.Open()
Dim sql As String
sql = "select*from nombre de la tabla where nombre de la columna clave='" & rtxtcodigo.Text & "'"
Dim ODA As OleDbDataAdapter
ODA = New OleDbDataAdapter(sql, rocn)
Dim DT As New DataTable
DT.Clear()
ODA.Fill(DT)
Dim REPORTE As New nombre del crystalreport1
REPORTE.SetDataSource(DT)
REPORTE.Refresh()
nombre del formulario.nombre del crystalreportviewer.ReportSource = REPORTE
nombre del formulario.nombre del crystalreportviewer.Refresh()
nombre del formulario.Show()
rocn.Close()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End If
End Sub
es un generador de reportes de una o mas tablas que se utilisa para mostrar los informes creados en visual.net e imprimirlos.
La Programacion De Un boton de imprimir es
:
Private Sub RBTNIMPRIMIR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RBTNIMPRIMIR.Click
If rocn.State = ConnectionState.Open Then
rocn.Close()
End If
If rtxtcodigo.Text = "" Then
MessageBox.Show("NO HAY DATOS PARA IMPRIMIR", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
rtxtcodigo.Focus()
Else
Try
rocn.Open()
Dim sql As String
sql = "select*from nombre de la tabla where nombre de la columna clave='" & rtxtcodigo.Text & "'"
Dim ODA As OleDbDataAdapter
ODA = New OleDbDataAdapter(sql, rocn)
Dim DT As New DataTable
DT.Clear()
ODA.Fill(DT)
Dim REPORTE As New nombre del crystalreport1
REPORTE.SetDataSource(DT)
REPORTE.Refresh()
nombre del formulario.nombre del crystalreportviewer.ReportSource = REPORTE
nombre del formulario.nombre del crystalreportviewer.Refresh()
nombre del formulario.Show()
rocn.Close()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End If
End Sub
gledi- Mensajes : 2
Fecha de inscripción : 01/03/2010
- Mensaje n°11
Re: Ques un Crystal Report Viewer y cual es la programacion para un boton de Imprimir
gledi Lun Mar 22, 2010 3:57 am
Crystal Report Viewer:
es un generador de reportes de una o mas tablas que se utilisa para mostrar los informes creados en visual.net e imprimirlos.
La Programacion De Un boton de imprimir es
Private Sub BTNIMPRIMIR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNIMPRIMIR.Click
If rocn.State = ConnectionState.Open Then
rocn.Close()
End If
If rtxtcodigo.Text = "" Then
MessageBox.Show("NO HAY DATOS PARA IMPRIMIR", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
rtxtcodigo.Focus()
Else
Try
rocn.Open()
Dim sql As String
sql = "select*from nombre de la tabla where nombre de la columna clave='" & rtxtcodigo.Text & "'"
Dim ODA As OleDbDataAdapter
ODA = New OleDbDataAdapter(sql, rocn)
Dim DT As New DataTable
DT.Clear()
ODA.Fill(DT)
Dim REPORTE As New nombre del crystalreport1
REPORTE.SetDataSource(DT)
REPORTE.Refresh()
nombre del formulario.nombre del crystalreportviewer.ReportSource = REPORTE
nombre del formulario.nombre del crystalreportviewer.Refresh()
nombre del formulario.Show()
rocn.Close()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End If
End Sub
es un generador de reportes de una o mas tablas que se utilisa para mostrar los informes creados en visual.net e imprimirlos.
La Programacion De Un boton de imprimir es
Private Sub BTNIMPRIMIR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNIMPRIMIR.Click
If rocn.State = ConnectionState.Open Then
rocn.Close()
End If
If rtxtcodigo.Text = "" Then
MessageBox.Show("NO HAY DATOS PARA IMPRIMIR", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
rtxtcodigo.Focus()
Else
Try
rocn.Open()
Dim sql As String
sql = "select*from nombre de la tabla where nombre de la columna clave='" & rtxtcodigo.Text & "'"
Dim ODA As OleDbDataAdapter
ODA = New OleDbDataAdapter(sql, rocn)
Dim DT As New DataTable
DT.Clear()
ODA.Fill(DT)
Dim REPORTE As New nombre del crystalreport1
REPORTE.SetDataSource(DT)
REPORTE.Refresh()
nombre del formulario.nombre del crystalreportviewer.ReportSource = REPORTE
nombre del formulario.nombre del crystalreportviewer.Refresh()
nombre del formulario.Show()
rocn.Close()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End If
End Sub
Tobar- Mensajes : 1
Fecha de inscripción : 10/02/2010
- Mensaje n°12
Re: Ques un Crystal Report Viewer y cual es la programacion para un boton de Imprimir
Tobar Miér Mar 24, 2010 7:25 pm
Crystal Report Viewer
Es un generador de reportes de una o mas tablas que se utilisa para mostrar los informes creados en visual.net e imprimirlos.
La Programacion de un boton de imprimir
Private Sub BTNIMPRIMIR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNIMPRIMIR.Click
If ocn.State = ConnectionState.Open Then
ocn.Close()
End If
If txtcodigo.Text = "" Then
MessageBox.Show("NO HAY DATOS PARA IMPRIMIR", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
txtcodigo.Focus()
Else
Try
ocn.Open()
Dim sql As String
sql = "select*from nombre de la tabla where nombre de la columna clave='" & txtcodigo.Text & "'"
Dim ODA As OleDbDataAdapter
ODA = New OleDbDataAdapter(sql, ocn)
Dim DT As New DataTable
DT.Clear()
ODA.Fill(DT)
Dim REPORTE As New nombre del crystalreport1
REPORTE.SetDataSource(DT)
REPORTE.Refresh()
nombre del formulario.nombre del crystalreportviewer.ReportSource = REPORTE
nombre del formulario.nombre del crystalreportviewer.Refresh()
nombre del formulario.Show()
ocn.Close()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End If
End Sub
Es un generador de reportes de una o mas tablas que se utilisa para mostrar los informes creados en visual.net e imprimirlos.
La Programacion de un boton de imprimir
Private Sub BTNIMPRIMIR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNIMPRIMIR.Click
If ocn.State = ConnectionState.Open Then
ocn.Close()
End If
If txtcodigo.Text = "" Then
MessageBox.Show("NO HAY DATOS PARA IMPRIMIR", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
txtcodigo.Focus()
Else
Try
ocn.Open()
Dim sql As String
sql = "select*from nombre de la tabla where nombre de la columna clave='" & txtcodigo.Text & "'"
Dim ODA As OleDbDataAdapter
ODA = New OleDbDataAdapter(sql, ocn)
Dim DT As New DataTable
DT.Clear()
ODA.Fill(DT)
Dim REPORTE As New nombre del crystalreport1
REPORTE.SetDataSource(DT)
REPORTE.Refresh()
nombre del formulario.nombre del crystalreportviewer.ReportSource = REPORTE
nombre del formulario.nombre del crystalreportviewer.Refresh()
nombre del formulario.Show()
ocn.Close()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End If
End Sub
kevinR_IIIbtcnoc.- Mensajes : 2
Fecha de inscripción : 02/03/2010
- Mensaje n°13
Re: Ques un Crystal Report Viewer y cual es la programacion para un boton de Imprimir
kevinR_IIIbtcnoc. Miér Mar 24, 2010 9:50 pm
Crystal Report Viewer:El crystal repot viewer es un generador de reportes de una o mas tablas que se utilisa para mostrar los informes creados en visual.net e imprimirlos.
Programacion De Un boton de imprimir es :
Private Sub KBTNIMPRIMIR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KBTNIMPRIMIR.Click
If kocn.State = ConnectionState.Open Then
kocn.Close()
End If
If ktxtcodigo.Text = "" Then
MessageBox.Show("NO HAY DATOS PARA IMPRIMIR", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
ktxtcodigo.Focus()
Else
Try
kocn.Open()
Dim sql As String
sql = "select*from nombre de la tabla where nombre de la columna clave='" & ktxtcodigo.Text & "'"
Dim ODA As OleDbDataAdapter
ODA = New OleDbDataAdapter(sql, rocn)
Dim DT As New DataTable
DT.Clear()
ODA.Fill(DT)
Dim REPORTE As New nombre del crystalreport1
REPORTE.SetDataSource(DT)
REPORTE.Refresh()
nombre del formulario.nombre del crystalreportviewer.ReportSource = REPORTE
nombre del formulario.nombre del crystalreportviewer.Refresh()
nombre del formulario.Show()
kocn.Close()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End If
End Sub
Programacion De Un boton de imprimir es :
Private Sub KBTNIMPRIMIR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KBTNIMPRIMIR.Click
If kocn.State = ConnectionState.Open Then
kocn.Close()
End If
If ktxtcodigo.Text = "" Then
MessageBox.Show("NO HAY DATOS PARA IMPRIMIR", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
ktxtcodigo.Focus()
Else
Try
kocn.Open()
Dim sql As String
sql = "select*from nombre de la tabla where nombre de la columna clave='" & ktxtcodigo.Text & "'"
Dim ODA As OleDbDataAdapter
ODA = New OleDbDataAdapter(sql, rocn)
Dim DT As New DataTable
DT.Clear()
ODA.Fill(DT)
Dim REPORTE As New nombre del crystalreport1
REPORTE.SetDataSource(DT)
REPORTE.Refresh()
nombre del formulario.nombre del crystalreportviewer.ReportSource = REPORTE
nombre del formulario.nombre del crystalreportviewer.Refresh()
nombre del formulario.Show()
kocn.Close()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End If
End Sub
Julio_IIIBTCnoc.- Mensajes : 2
Fecha de inscripción : 19/02/2010
Edad : 32
Localización : El Tártaro
- Mensaje n°14
Re: Ques un Crystal Report Viewer y cual es la programacion para un boton de Imprimir
Julio_IIIBTCnoc. Miér Mar 24, 2010 10:03 pm
Crystal Report Viewer:El crystal repot viewer es un generador de reportes de una o mas tablas que se utilisa para mostrar los informes creados en visual.net e imprimirlos.
Programacion De Un boton de imprimir es :
Private Sub BTNIMPRIMIR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNIMPRIMIR.Click
If ocn.State = ConnectionState.Open Then
ocn.Close()
End If
If txtcodigo.Text = "" Then
MessageBox.Show("NO HAY DATOS PARA IMPRIMIR", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
txtcodigo.Focus()
Else
Try
ocn.Open()
Dim sql As String
sql = "select*from nombre de la tabla where nombre de la columna clave='" & txtcodigo.Text & "'"
Dim ODA As OleDbDataAdapter
ODA = New OleDbDataAdapter(sql, ocn)
Dim DT As New DataTable
DT.Clear()
ODA.Fill(DT)
Dim REPORTE As New nombre del crystalreport1
REPORTE.SetDataSource(DT)
REPORTE.Refresh()
nombre del formulario.nombre del crystalreportviewer.ReportSource = REPORTE
nombre del formulario.nombre del crystalreportviewer.Refresh()
nombre del formulario.Show()
ocn.Close()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End If
End Sub
Programacion De Un boton de imprimir es :
Private Sub BTNIMPRIMIR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNIMPRIMIR.Click
If ocn.State = ConnectionState.Open Then
ocn.Close()
End If
If txtcodigo.Text = "" Then
MessageBox.Show("NO HAY DATOS PARA IMPRIMIR", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
txtcodigo.Focus()
Else
Try
ocn.Open()
Dim sql As String
sql = "select*from nombre de la tabla where nombre de la columna clave='" & txtcodigo.Text & "'"
Dim ODA As OleDbDataAdapter
ODA = New OleDbDataAdapter(sql, ocn)
Dim DT As New DataTable
DT.Clear()
ODA.Fill(DT)
Dim REPORTE As New nombre del crystalreport1
REPORTE.SetDataSource(DT)
REPORTE.Refresh()
nombre del formulario.nombre del crystalreportviewer.ReportSource = REPORTE
nombre del formulario.nombre del crystalreportviewer.Refresh()
nombre del formulario.Show()
ocn.Close()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End If
End Sub
Trikcy V- Mensajes : 2
Fecha de inscripción : 06/03/2010
- Mensaje n°15
Re: Ques un Crystal Report Viewer y cual es la programacion para un boton de Imprimir
Trikcy V Dom Mar 28, 2010 1:48 am
Crystal Report Viewer:El crystal repot viewer es un generador de reportes de una o mas tablas que se utilisa para mostrar los informes creados en visual.net e imprimirlos.
If Ocn.State = ConnectionState.Open Then
Ocn.Close()
End If
If txtcodigo.Text = "" Then
MsgBox("no hay datos para imprimir")
txtcodigo.Focus()
Else
Try
Ocn.Open()
Dim sql As String
sql = "select * from clientes where numidenclie= '" & txtcodigo.Text & "'"
Dim oda As OleDbDataAdapter
oda = New OleDbDataAdapter(sql, Ocn)
Dim dt As New DataTable
dt.Clear()
oda.Fill(dt)
Dim reporte As New rptclientes
reporte.SetDataSource(dt)
reporte.Refresh()
impresora.crv1.ReportSource = reporte
impresora.crv1.Refresh()
impresora.Show()
Ocn.Close()
Catch ex As Exception
End Try
End If
End Sub
If Ocn.State = ConnectionState.Open Then
Ocn.Close()
End If
If txtcodigo.Text = "" Then
MsgBox("no hay datos para imprimir")
txtcodigo.Focus()
Else
Try
Ocn.Open()
Dim sql As String
sql = "select * from clientes where numidenclie= '" & txtcodigo.Text & "'"
Dim oda As OleDbDataAdapter
oda = New OleDbDataAdapter(sql, Ocn)
Dim dt As New DataTable
dt.Clear()
oda.Fill(dt)
Dim reporte As New rptclientes
reporte.SetDataSource(dt)
reporte.Refresh()
impresora.crv1.ReportSource = reporte
impresora.crv1.Refresh()
impresora.Show()
Ocn.Close()
Catch ex As Exception
End Try
End If
End Sub
LORENA L- Mensajes : 5
Fecha de inscripción : 22/02/2010
- Mensaje n°16
Re: Ques un Crystal Report Viewer y cual es la programacion para un boton de Imprimir
LORENA L Dom Abr 04, 2010 11:16 pm
es una aplicación de inteligencia empresarial utilizada para diseñar y generar informes desde una amplia gamas de fuentes de datos (bases de datos).
LORENA L- Mensajes : 5
Fecha de inscripción : 22/02/2010
- Mensaje n°17
Re: Ques un Crystal Report Viewer y cual es la programacion para un boton de Imprimir
LORENA L Dom Abr 04, 2010 11:17 pm
LORENA L escribió:
es una aplicación de inteligencia empresarial utilizada para diseñar y generar informes desde una amplia gamas de fuentes de datos (bases de datos).
LORENA L- Mensajes : 5
Fecha de inscripción : 22/02/2010
- Mensaje n°18
Re: Ques un Crystal Report Viewer y cual es la programacion para un boton de Imprimir
LORENA L Dom Abr 04, 2010 11:20 pm
es una aplicación de inteligencia empresarial utilizada para diseñar y generar informes desde una amplia gamas de fuentes de datos (bases de datos).
LORENA L- Mensajes : 5
Fecha de inscripción : 22/02/2010
- Mensaje n°19
Re: Ques un Crystal Report Viewer y cual es la programacion para un boton de Imprimir
LORENA L Dom Abr 04, 2010 11:25 pm
es una aplicación de inteligencia empresarial utilizada para diseñar y generar informes desde una amplia gamas de fuentes de datos (bases de datos).
Orlando García- Mensajes : 2
Fecha de inscripción : 20/02/2010
Localización : EP
- Mensaje n°20
Re: Ques un Crystal Report Viewer y cual es la programacion para un boton de Imprimir
Orlando García Miér Abr 07, 2010 7:45 pm
Crystal Report Es un generador de reportes de una o mas tablas que se utiliza para mostrar los informes creados en V.B.Net e imprimirlos.
Private Sub sxzimprimir_Click (Byval sender As system.Object,Byval e As System.EventArgs)Handles sxzimprimir.Click
If Ocn.State = connectionState.Open Then
Ocn.Close()
End If
If sxzcodigo.Text = "" Then
MessageBox.show ("no hay datos para imprimir", error MessageBox.Button.OK MessageBoxIcon.Click )
txtcodigo.Focus ()
Else
Try
Ocn.Open()
Dim sql As String
sql = "Select * from nombre de la tabla where nombre del campo principal = '" & txtcodigo.text &"'"
Dim oda As OleDbDataAdapter
oda = New OleDbDataAdapter (sql, ocn )
Dim dt As New DataTable
dt.Clear ()
oda.Fill (dt9
Dim reporte As New nombre del crystalreportviewer1
reporte.SetDataSource (dt)
reporte.refresh ()
impresora.nombre del formulario.nombre del crystalreportviewer.reportSource = reporte
impresora.nombre del formulario.nombre del crystalreportviewer.refresh ()
impresora nonbre del formulario.Show ()
Ocn.Close ()
Catch ex As Execption
End Try
End If
End Sub
End Class
Private Sub sxzimprimir_Click (Byval sender As system.Object,Byval e As System.EventArgs)Handles sxzimprimir.Click
If Ocn.State = connectionState.Open Then
Ocn.Close()
End If
If sxzcodigo.Text = "" Then
MessageBox.show ("no hay datos para imprimir", error MessageBox.Button.OK MessageBoxIcon.Click )
txtcodigo.Focus ()
Else
Try
Ocn.Open()
Dim sql As String
sql = "Select * from nombre de la tabla where nombre del campo principal = '" & txtcodigo.text &"'"
Dim oda As OleDbDataAdapter
oda = New OleDbDataAdapter (sql, ocn )
Dim dt As New DataTable
dt.Clear ()
oda.Fill (dt9
Dim reporte As New nombre del crystalreportviewer1
reporte.SetDataSource (dt)
reporte.refresh ()
impresora.nombre del formulario.nombre del crystalreportviewer.reportSource = reporte
impresora.nombre del formulario.nombre del crystalreportviewer.refresh ()
impresora nonbre del formulario.Show ()
Ocn.Close ()
Catch ex As Execption
End Try
End If
End Sub
End Class
meliza cervantes- Mensajes : 2
Fecha de inscripción : 20/02/2010
Edad : 37
Localización : El Progreso,Yoro
- Mensaje n°21
Re: Ques un Crystal Report Viewer y cual es la programacion para un boton de Imprimir
meliza cervantes Vie Abr 09, 2010 11:29 pm
Crystal Report Viewer
Es un generador de reportes de una o mas tablas que se utilisa para mostrar los informes creados en visual.net e imprimirlos.La Programacion de un boton de imprimir
Private Sub BTNIMPRIMIR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNIMPRIMIR.Click
If ocn.State = ConnectionState.Open Then
ocn.Close()
End If
If txtcodigo.Text = "" Then
MessageBox.Show("NO HAY DATOS PARA IMPRIMIR", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
txtcodigo.Focus()
Else
Try
ocn.Open()
Dim sql As String
sql = "select*from nombre de la tabla where nombre de la columna clave='" & txtcodigo.Text & "'"
Dim ODA As OleDbDataAdapter
ODA = New OleDbDataAdapter(sql, ocn)
Dim DT As New DataTable
DT.Clear()
ODA.Fill(DT)
Dim REPORTE As New nombre del crystalreport1
REPORTE.SetDataSource(DT)
REPORTE.Refresh()
nombre del formulario.nombre del crystalreportviewer.ReportSource = REPORTE
nombre del formulario.nombre del crystalreportviewer.Refresh()
nombre del formulario.Show()
ocn.Close()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End If
End Sub
Nelizabeth Cruz- Mensajes : 2
Fecha de inscripción : 22/02/2010
- Mensaje n°22
Re: Ques un Crystal Report Viewer y cual es la programacion para un boton de Imprimir
Nelizabeth Cruz Sáb Abr 10, 2010 1:07 am
Crystal Report Viewer:
es un generador de reportes de una o mas tablas que se utilisa para mostrar los informes creados en visual.net e imprimirlos.
La Programacion De Un boton de imprimir es :
Private Sub imprimir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles imprimir.Click
If rocn.State = ConnectionState.Open Then
rocn.Close()
End If
If txtidentidad.Text = "" Then
MessageBox.Show("no hay datos para imprimir", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
txtidentidad.Focus()
Else
Try
rocn.Open()
Dim sql As String
sql = "select*from nombre de la tabla where nombre de la columna clave='" & rtxtcodigo.Text & "'"
Dim data As OleDbDataAdapter
data = New OleDbDataAdapter(sql, rocn)
Dim DT As New DataTable
DT.Clear()
data.Fill(DT)
Dim reporte As New nombre del crystalreport1
reporte.SetDataSource(DT)
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End If
.
es un generador de reportes de una o mas tablas que se utilisa para mostrar los informes creados en visual.net e imprimirlos.
La Programacion De Un boton de imprimir es :
Private Sub imprimir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles imprimir.Click
If rocn.State = ConnectionState.Open Then
rocn.Close()
End If
If txtidentidad.Text = "" Then
MessageBox.Show("no hay datos para imprimir", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
txtidentidad.Focus()
Else
Try
rocn.Open()
Dim sql As String
sql = "select*from nombre de la tabla where nombre de la columna clave='" & rtxtcodigo.Text & "'"
Dim data As OleDbDataAdapter
data = New OleDbDataAdapter(sql, rocn)
Dim DT As New DataTable
DT.Clear()
data.Fill(DT)
Dim reporte As New nombre del crystalreport1
reporte.SetDataSource(DT)
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End If
.
Lourdes Cortes- Mensajes : 4
Fecha de inscripción : 01/03/2010
Edad : 37
Localización : Barrio Monte Video
- Mensaje n°23
Re: Ques un Crystal Report Viewer y cual es la programacion para un boton de Imprimir
Lourdes Cortes Lun Abr 12, 2010 12:09 am
Crystal Report Viewer
Es un generador de reportes de una o mas tablas que se utilisa para mostrar los informes creados en visual.net e imprimirlos.
La Programacion de un boton de imprimir
Private Sub BTNIMPRIMIR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNIMPRIMIR.Click
If ocn.State = ConnectionState.Open Then
ocn.Close()
End If
If txtcodigo.Text = "" Then
MessageBox.Show("NO HAY DATOS PARA IMPRIMIR", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
txtcodigo.Focus()
Else
Try
ocn.Open()
Dim sql As String
sql = "select*from nombre de la tabla where nombre de la columna clave='" & txtcodigo.Text & "'"
Dim ODA As OleDbDataAdapter
ODA = New OleDbDataAdapter(sql, ocn)
Dim DT As New DataTable
DT.Clear()
ODA.Fill(DT)
Dim REPORTE As New nombre del crystalreport1
REPORTE.SetDataSource(DT)
REPORTE.Refresh()
nombre del formulario.nombre del crystalreportviewer.ReportSource = REPORTE
nombre del formulario.nombre del crystalreportviewer.Refresh()
nombre del formulario.Show()
ocn.Close()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End If
End Sub
Es un generador de reportes de una o mas tablas que se utilisa para mostrar los informes creados en visual.net e imprimirlos.
La Programacion de un boton de imprimir
Private Sub BTNIMPRIMIR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNIMPRIMIR.Click
If ocn.State = ConnectionState.Open Then
ocn.Close()
End If
If txtcodigo.Text = "" Then
MessageBox.Show("NO HAY DATOS PARA IMPRIMIR", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
txtcodigo.Focus()
Else
Try
ocn.Open()
Dim sql As String
sql = "select*from nombre de la tabla where nombre de la columna clave='" & txtcodigo.Text & "'"
Dim ODA As OleDbDataAdapter
ODA = New OleDbDataAdapter(sql, ocn)
Dim DT As New DataTable
DT.Clear()
ODA.Fill(DT)
Dim REPORTE As New nombre del crystalreport1
REPORTE.SetDataSource(DT)
REPORTE.Refresh()
nombre del formulario.nombre del crystalreportviewer.ReportSource = REPORTE
nombre del formulario.nombre del crystalreportviewer.Refresh()
nombre del formulario.Show()
ocn.Close()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End If
End Sub
darwin cruz- Mensajes : 2
Fecha de inscripción : 17/04/2010
- Mensaje n°24
Re: Ques un Crystal Report Viewer y cual es la programacion para un boton de Imprimir
darwin cruz Sáb Abr 17, 2010 6:33 pm
Private Sub btnimprimir_Click (Byval sender As system.Object,Byval e As System.EventArgs)Handles btnimprimir.Click
If Ocn.State = connectionState.Open Then
Ocn.Close()
End If
If txtcodigo.Text = "" Then
MessageBox.show ("no hay datos para imprimir", error MessageBox.Button.OK MessageBoxIcon.Click )
txtcodigo.Focus ()
Else
Try
Ocn.Open()
Dim sql As String
sql = "Select * from nombre de la tabla where nombre del campo principal = '" & txtcodigo.text &"'"
Dim oda As OleDbDataAdapter
oda = New OleDbDataAdapter (sql, ocn )
Dim dt As New DataTable
dt.Clear ()
oda.Fill (dt9
Dim reporte As New nombre del crystalreportviewer1
reporte.SetDataSource (dt)
reporte.refresh ()
impresora.nombre del formulario.nombre del crystalreportviewer.reportSource = reporte
impresora.nombre del formulario.nombre del crystalreportviewer.refresh ()
impresora nonbre del formulario.Show ()
Ocn.Close ()
Catch ex As Execption
End Try
End If
End Sub
End Class
If Ocn.State = connectionState.Open Then
Ocn.Close()
End If
If txtcodigo.Text = "" Then
MessageBox.show ("no hay datos para imprimir", error MessageBox.Button.OK MessageBoxIcon.Click )
txtcodigo.Focus ()
Else
Try
Ocn.Open()
Dim sql As String
sql = "Select * from nombre de la tabla where nombre del campo principal = '" & txtcodigo.text &"'"
Dim oda As OleDbDataAdapter
oda = New OleDbDataAdapter (sql, ocn )
Dim dt As New DataTable
dt.Clear ()
oda.Fill (dt9
Dim reporte As New nombre del crystalreportviewer1
reporte.SetDataSource (dt)
reporte.refresh ()
impresora.nombre del formulario.nombre del crystalreportviewer.reportSource = reporte
impresora.nombre del formulario.nombre del crystalreportviewer.refresh ()
impresora nonbre del formulario.Show ()
Ocn.Close ()
Catch ex As Execption
End Try
End If
End Sub
End Class
maby- Mensajes : 2
Fecha de inscripción : 20/02/2010
- Mensaje n°25
Re: Ques un Crystal Report Viewer y cual es la programacion para un boton de Imprimir
maby Miér Abr 28, 2010 8:06 pm
Crystal Report Viewer
Es un generador de reportes de una o mas tablas que se utilisa para mostrar los informes creados en visual.net e imprimirlos.
La Programacion de un boton de imprimir
Private Sub BTNIMPRIMIR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNIMPRIMIR.Click
If ocn.State = ConnectionState.Open Then
ocn.Close()
End If
If txtcodigo.Text = "" Then
MessageBox.Show("NO HAY DATOS PARA IMPRIMIR", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
txtcodigo.Focus()
Else
Try
ocn.Open()
Dim sql As String
sql = "select*from nombre de la tabla where nombre de la columna clave='" & txtcodigo.Text & "'"
Dim ODA As OleDbDataAdapter
ODA = New OleDbDataAdapter(sql, ocn)
Dim DT As New DataTable
DT.Clear()
ODA.Fill(DT)
Dim REPORTE As New nombre del crystalreport1
REPORTE.SetDataSource(DT)
REPORTE.Refresh()
nombre del formulario.nombre del crystalreportviewer.ReportSource = REPORTE
nombre del formulario.nombre del crystalreportviewer.Refresh()
nombre del formulario.Show()
ocn.Close()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End If
End Sub
Es un generador de reportes de una o mas tablas que se utilisa para mostrar los informes creados en visual.net e imprimirlos.
La Programacion de un boton de imprimir
Private Sub BTNIMPRIMIR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNIMPRIMIR.Click
If ocn.State = ConnectionState.Open Then
ocn.Close()
End If
If txtcodigo.Text = "" Then
MessageBox.Show("NO HAY DATOS PARA IMPRIMIR", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
txtcodigo.Focus()
Else
Try
ocn.Open()
Dim sql As String
sql = "select*from nombre de la tabla where nombre de la columna clave='" & txtcodigo.Text & "'"
Dim ODA As OleDbDataAdapter
ODA = New OleDbDataAdapter(sql, ocn)
Dim DT As New DataTable
DT.Clear()
ODA.Fill(DT)
Dim REPORTE As New nombre del crystalreport1
REPORTE.SetDataSource(DT)
REPORTE.Refresh()
nombre del formulario.nombre del crystalreportviewer.ReportSource = REPORTE
nombre del formulario.nombre del crystalreportviewer.Refresh()
nombre del formulario.Show()
ocn.Close()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End If
End Sub
Contenido patrocinado
- Mensaje n°26
Re: Ques un Crystal Report Viewer y cual es la programacion para un boton de Imprimir
Contenido patrocinado