Agenda Electrónica
Visual Basic.NET
52.677 visualizaciones desde el 8 de Enero del 2010
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
Desarrollado con VB .NET 2008
Comentarios sobre la versión: Versión 1 (9)
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.
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")
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
te sugiero qe lo corrijas
(:
Entonces no si me puedes ayudar necesito hacer una trabaja gracias
Saludos :)