Código de Visual Basic.NET - Agenda Electrónica

Agenda Electrónicagráfica de visualizaciones


Visual Basic.NET

estrellaestrellaestrellaestrellaestrella(9)
Publicado el 08 de Enero del 2010 por Red
42.088 visualizaciones desde el 08 de Enero del 2010. Una media de 119 por semana
Sencilla agenda electrónica, que muestra como guardar y leer datos de una base de datos Acces, y como realizar listados con Crystal Report.
Desarrollado con VB .NET 2008

Versión 1
estrellaestrellaestrellaestrellaestrella(9)

Publicado el 08 de Enero del 2010gráfica de visualizaciones de la versión: Versión 1
42.089 visualizaciones desde el 08 de Enero del 2010. Una media de 119 por semana
estrellaestrellaestrellaestrellaestrella
estrellaestrellaestrellaestrella
estrellaestrellaestrella
estrellaestrella
estrella

Si alguno de los archivos de descarga no funciona, comentanos aquí el error.




Comentarios sobre la versión: Versión 1 (9)

Luis Alberto
19 de Febrero del 2010
estrellaestrellaestrellaestrellaestrella
Amigo cuando voy a los repoter ya listo para visualizar y luego imprimir, me piedo
Login ID y un Password
la verdad no se por q aparece y si usted tiene el ID y la contraseña me las podria dar a gracias.
su registro es el mas completo para imprimir q yo he visto y quiero probarlo para ver si funciona bien para una aplicacion q me dejaron de tarea. gracias.
Responder
telodigo
13 de Mayo del 2010
estrellaestrellaestrellaestrellaestrella
Imports System.Data.OleDb
Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

'data set
'Definimos comando SQL a ejecutar
Dim sql As String = "SELECT [IdContacto]" & _
",[Nombre]" & _
",[Apellido]" & _
",[FechaNacimiento]" & _
",[Localidad]" & _
",[Calle]" & _
",[Numero]" & _
"FROM Contacto"

'Definimos variable de conexión
Dim conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:Documents and SettingsgogodancerMis documentosDescargasContactos.mdb")
'Definimos objeto command
Dim command As New OleDbCommand(sql, conn)
'Abrimos la conexión
conn.Open()
'Definimos el dataadapter
Dim da As New OleDbDataAdapter(command)
'Definimos objeto Dataset 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 dataset mientras se pueda leer y 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

conn.Close()

End Sub



Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

'data reader
'Definimos comando SQL a ejecutar
Dim sql As String = "SELECT [IdContacto]" & _
",[Nombre]" & _
",[Apellido]" & _
",[FechaNacimiento]" & _
",[Localidad]" & _
",[Calle]" & _
",[Numero]" & _
"FROM Contacto"

'Definimos variable de conexión
Dim conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:Documents and SettingsgogodancerMis documentosDescargasContactos.mdb")
'Definimos objeto command
Dim command As New OleDbCommand(sql, conn)
'Abrimos la conexión
conn.Open()
'Definimos objeto Datareader como contenedor de datos
Dim reader As OleDbDataReader = command.ExecuteReader()
'Limpiamos control de texto
Me.TextBox1.Text = ""
'Recorremos el datareader mientras se pueda leer y lo desplegamos en textbox
While reader.Read()
Me.TextBox1.Text = Me.TextBox1.Text + reader("Nombre") + " " + reader("Apellido") + Chr(13) + Chr(10)
End While

conn.Close()

End Sub

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Me.TextBox1.Text = ""
End Sub
End Class


Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Dim sql As String = "INSERT INTO Contacto (IdContacto " & _
",Nombre " & _
",Apellido)" & _
"VALUES (@Id, " & _
"@Nombre, " & _
"@Apellido)"


'Definimos variable de conexión
Dim conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:Documents and SettingsalumnoMis documentosContactos.mdb")
'Definimos objeto command
Dim command As New OleDbCommand(sql, conn)
'Abrimos la conexión
conn.Open()

Dim NextId As Integer = MaxId() + 1

command.Parameters.AddWithValue("Id", NextId)
command.Parameters.AddWithValue("Nombre", Me.TextBox2.Text)
command.Parameters.AddWithValue("Apellido", Me.TextBox3.Text)

command.ExecuteNonQuery()
conn.Close()

Me.Button3_Click(Button3, e)


ASP---------------------------------------------
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
Session("login") = TextBox1.Text
Session("pass") = TextBox2.Text
Response.Redirect("confirma.aspx")

Responder
telodigo
16 de Junio del 2010
estrellaestrellaestrellaestrellaestrella
Imports System.Data.OleDb
Public Class ejercicio3

Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

End Sub

Private Sub ejercicio3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim conn As New OleDbConnection("Provider=PostgreSQL.1;Data Source=localhost;User ID=postgres;Location=simulacion;password=postgres")
conn.Open()
Dim sql As String = "select * from empleados"
Dim command As New OleDbCommand(sql, conn)
Dim da As New OleDbDataAdapter(command)
Dim DS As New DataSet
da.Fill(DS, "empleados")
ComboBox1.DisplayMember = "nombre_empleado"
ComboBox1.ValueMember = "cod_empleado"
ComboBox1.DataSource = DS.Tables("empleados")
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim conn As New OleDbConnection("Provider=PostgreSQL.1;Data Source=localhost;User ID=postgres;Location=simulacion;password=postgres")
conn.Open()
Dim sql As String = "select * from resultados " & _
" where cod_empleado =" & ComboBox1.SelectedValue
Dim command As New OleDbCommand(sql, conn)
Dim da As New OleDbDataAdapter(command)
Dim DS As New DataSet
da.Fill(DS, "resultados")
If DS.Tables("resultados").Rows(0).Item(2) < 4 Then
Me.Label3.Text = "UD REPROBO"
ElseIf DS.Tables("resultados").Rows(0).Item(2) >= 4 And DS.Tables("resultados").Rows(0).Item(2) < 6 Then
Me.Label3.Text = "EL TRABAJADOR HA QUEDADO EN LISTA ESPERA"
Else
Me.Label3.Text = "ELTRA BAJADOR HA QUEDADO SELECCIONADO"
End If
End Sub
End Class
Responder
javier
11 de Septiembre del 2010
estrellaestrellaestrellaestrellaestrella
como hago para que funcione la conexion en windows 7 de 64Bits solo en xp me corre!!! o q tipo de conexion tengo que utilizar para windows 7
Responder
Andres
05 de Enero del 2011
estrellaestrellaestrellaestrellaestrella
abre coneccion a cada rato, no hace POO, es como si estubiese programando en VB3... pesimo ejemplo, no viene adjunta la BD... algo mas??
Responder
ani
09 de Enero del 2011
estrellaestrellaestrellaestrellaestrella
tiene muchos errores pero buena la ideaa!!

te sugiero qe lo corrijas

(:
Responder
rocio
27 de Noviembre del 2011
estrellaestrellaestrellaestrellaestrella
Ola quise ver tu ejemplo pero tengo un problema ps me sale un error de Error 23 El tipo 'CrystalDecisions.Windows.Forms.CrystalReportViewer' no está definido. C:\Users\°°°Xio°°°\Desktop\AgendaE\AgendaE\MesReporte.Designer.vb 25 39 AgendaE
Entonces no si me puedes ayudar necesito hacer una trabaja gracias
Responder
Ferran Muñoz
02 de Mayo del 2012
estrellaestrellaestrellaestrellaestrella
Exactamente, el código es redundante (repite mucho código), podrías hacer módulos o clases para aprovechar más código (cómo por ejemplo, una clase llamada "conexión" con la ruta y dos métodos (método "abrir" para abrir la conexión y el método "cerrar", para cerrarla) Así te evitarías poner la ruta a cada evento.

Saludos :)
Responder
Pixhu
22 de Septiembre del 2012
estrellaestrellaestrellaestrellaestrella
kisiera saber si en power builder tambien se hace crystal report o no esa es mi dua
Responder

Comentar la versión: Versión 1

Nombre
Correo (no se visualiza en la web)
Valoración
Comentarios

http://lwp-l.com/s1919