Imprimir contenido de un Datagrid
Visual Basic.NET
45.844 visualizaciones desde el 21 de Enero del 2010
Este es un ejemplo de como Imprimir el contenido de un DataGridView en VB.NET 2008.
Framework 3.5
Framework 3.5
Iniciar sesiónCrear cuenta
Crear cuenta
Comentarios sobre la versión: Versión 1 (10)
Dim sql As String = "select [idcontacto]" & _
",[Nombre]" & _
",[Apellido]" & _
",[Calle]" & _
"FROM contacto"
'definimos variable conexion
Dim Conn As New OleDbConnection(" Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:contactos.mdb")
'definimos objeto command
Dim command As New OleDbCommand(sql, Conn)
'abrimos la conexion
Conn.Open()
'definimos dataadapter
Dim da As New OleDbDataAdapter(command)
'definimos objetos dataser como contenedor de datos
Dim dscontactos As New DataSet
Dim i As Integer
i = 0
'llena dataset
da.Fill(dscontactos, "contacto")
'limpiamos control de texto
Me.TextBox1.Text = ""
'recorremos el dataser mientras se pueda leer u lo desplegamos en textbox
With dscontactos.Tables("contacto")
While i <= .Rows.Count - 1
Me.TextBox1.Text = Me.TextBox1.Text + _
.Rows(i).Item("nombre") + " " + _
.Rows(i).Item("apellido") + Chr(13) + Chr(10)
i = i + 1
End While
End With
conex.ConnectionString = " Provider=Microsoft.Jet.OLEDB.4.0;Data Source=G:LENIN2009.mdb"
conex.Open()
If conex.State = ConnectionState.Open Then
MsgBox(" la conexion esta abierta", MsgBoxStyle.MsgBoxHelp)
End If
conex.Close()
If conex.State = ConnectionState.Closed Then
MsgBox(" la conexion esta cerrada", MsgBoxStyle.MsgBoxHelp)
End If
Dim sql As String = "select login, password FROM usuarios"
'definimos variable conexion
Dim Conn As New OleDbConnection(" Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:seguridad.mdb")
'definimos objeto command
Dim command As New OleDbCommand(sql, Conn)
'abrimos la conexion
Conn.Open()
'definimos dataadapter
Dim da As New OleDbDataAdapter(command)
'definimos objetos dataset como contenedor de datos
Dim dscontactos As New DataSet
Dim i As Integer
i = 0
'llena dataset
da.Fill(dscontactos, "logear")
'limpiamos control de texto
'recorremos el dataser mientras se pueda leer u lo desplegamos en textbox
With dscontactos.Tables("logear")
While i <= .Rows.Count - 1
' Me.TextBox1.Text = Me.TextBox1.Text + _
' .Rows(i).Item("login") + " " + _
'.Rows(i).Item("password") + Chr(13) + Chr(10)
If .Rows(i).Item("login") = TextBox1.Text And .Rows(i).Item("password") = TextBox2.Text Then
MsgBox("BIENVENIDO A CRECIC", MsgBoxStyle.Information)
Response.Redirect("confirma.aspx")
'Else
' MsgBox("USUARIO O PASSWORD ERRONEO", MsgBoxStyle.Critical)
' Response.Redirect("login.aspx")
End If
i = i + 1
End While
End With