14 de febrero de 2012

DGV y TextBox


  DGV y TextBox


Este código en VB muestra los datos de una tabla en un DataGridView y al dar click sobre la celda llena los valores en los respectivos textbox, fácil.

Imports System.Data
Imports System.Data.SqlClient
Imports System.Configuration
Public Class Form1
    Dim sql As String = ConfigurationManager.ConnectionStrings("con").ConnectionString.ToString
    Dim consulta = "select * from img"
    Dim da As SqlDataAdapter
    Dim ds As DataSet
    Dim conn As SqlConnection
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Using conn As New SqlConnection(sql)
            Using da As New SqlDataAdapter(consulta, sql)
                Using ds As New DataSet
                    da.Fill(ds, "datos")
                    DataGridView1.DataSource = ds
                    DataGridView1.DataMember = "datos"
                End Using
            End Using
        End Using
    End Sub

    Private Sub DataGridView1_CellClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellClick
        TextBox1.Text = DataGridView1.Rows(e.RowIndex).Cells(0).Value
        TextBox2.Text = DataGridView1.Rows(e.RowIndex).Cells(1).Value
        TextBox3.Text = DataGridView1.Rows(e.RowIndex).Cells(2).Value
    End Sub
End Class






y en C#  quedaría así:


using Microsoft.VisualBasic;
using System;
using System.Collections;
using System.Collections.Generic;
using System.Data;
using System.Diagnostics;
using System.Data.SqlClient;
using System.Configuration;
Public Class Form1
{
       string sql = ConfigurationManager.ConnectionStrings("con").ConnectionString.ToString;
        consulta = "select * from img";
       SqlDataAdapter da;
       DataSet ds;
       SqlConnection conn;
       private void Form1_Load(System.Object sender, System.EventArgs e)
       {
             using (SqlConnection conn = new SqlConnection(sql)) {
                    using (SqlDataAdapter da = new SqlDataAdapter(consulta, sql)) {
                           using (DataSet ds = new DataSet()) {
                                  da.Fill(ds, "datos");
                                  DataGridView1.DataSource = ds;
                                  DataGridView1.DataMember = "datos";
                           }
                    }
             }
       }

       private void DataGridView1_CellClick(object sender, System.Windows.Forms.DataGridViewCellEventArgs e)
       {
             TextBox1.Text = DataGridView1.Rows(e.RowIndex).Cells(0).Value;
             TextBox2.Text = DataGridView1.Rows(e.RowIndex).Cells(1).Value;
             TextBox3.Text = DataGridView1.Rows(e.RowIndex).Cells(2).Value;
       }
    Public Form1()
       {
             Load += Form1_Load;
       }
}




Related Posts:

  • Pasar entre TextBox con la tecla ENTER en VSPara pasar entre diferentes textbox con solo presionar enter primero agregare un vergo de textboxes a un formulario tal como se muestra ahora para definir el orden en que cada textbox tomara el foco se hace lo siguient… Read More
  • Centrar Formulario VSSe puede utilzar la propiedad del formulario para centrarlo en la pantalla Form1.StartPosition = FormStartPosition.CenterScreen pero en caso desconfíes que pueda variar la posición al volver a abrirlo… Read More
  • MDI Container VSUn formulario MDI es un formulario (llamado "Padre" o "Parent") que puede contener otros formularios (llamados "Hijos" o "Child"). Para empezar creamos un proyecto "Windows Application" en VB, de forma automàtica se crea u… Read More
  • Solo letras en los TexTbox de Windows Forms para VSAquí se muestra para todos los textbox del formulario pero si solo lo necesitan para uno especifico controlen el mismo evento KeyPress para ese textbox y ya Para VB este es el código Public Class Form1   &… Read More
  • Try Catch para manejar errores en la AplicaciónCon este código pueden manejar el error que pueda producir algún método, Tales como error al conectar a internet un archivo invalido, etc. Try Process.Start(TextBox1.Text) Catch ex As Exception MessageBox.Show(ex.Message) E… Read More