Form1.vb
0 likes71 views
This document contains code for a Visual Basic .NET application that connects to a SQL database. It includes code to query the database based on an inputted ID number, display the results, and enable editing of fields to allow adding a new record to the database. The code opens a SQL connection, executes a stored procedure to search the database based on an ID, loads the results into text boxes, and includes a method to enable editing of the fields in preparation for inserting a new record.
More Related Content
Form1.vb
- 1. 1c:usershpcompdocumentsvisual studio 2012ProjectscarnetcarnetForm1.vb Imports System.Data.SqlClient Public Class Form1 Private oDataAdapter As SqlDataAdapter Private oDataset As DataSet Private iPosicFilaActual As Integer Dim CC As SqlConnection Private Sub btnmostrar_Click(sender As Object, e As EventArgs) Handles btnmostrar.Click cc = New SqlConnection cc.connectionString = My.MySettings.Default.CadenaConexion Dim oComando As New sqlComand("exec buscar'" + Trim(txtcarnet) + "'", cc) 'crear datareader Dim oDatareader As SqlDataReader cc.open() oDataReader = oComando.ExecuteReader() 'obtener datareader 'recorer filas While oDatareader.Read() Me.txtnombres.AppendText(Trim(oDataReader("Nombres"))) Me.txtapellidos.AppendText(Trim(oDatareader("apellidos"))) Me.txtemail.AppendText(Trim(oDataReader("email"))) Me.txttelefono.AppendText(Trim(oDatareader("telefono"))) Me.txtdireccion.AppendText(Trim(oDatareader("direccion"))) End While oDatareader.close() CChar.close() End Sub Private Sub btnagregar_Click(sender As Object, e As EventArgs) Handles btnagregar.Click habilitar() End Sub Private Sub btnguardar_Click(sender As Object, e As EventArgs) Handles btnguardar.Click Dim oConexion As SqlConnection oConexion = New SqlConnection oConexion.ConnectionString = My.MySettings.Default.cadenaconeccion Me.oDataAdapter = New SqlDataAdapter("select * from datos", oConexion) Dim oCommBuild As SqlCommandBuilder = New SqlCommandBuilder(oDataAdapter) Me.oDataSet=New DataSet oConexion.open() End Sub End Class Private Sub habilitar() txtapellidos.enabled = True txtnombres.enabled = True txtcarnet.enabled = True txtdireccion.enabled = True txtemail.enabled = True txttelefono.enabled = True txtapellidos.text = "" txtnombres.text = "" txtcarnet.text = "" txtdireccion.text = "" txtemail.text = "" txttelefono = "" End Sub