Duda agregar filas a DataGridView

[zeusandnereus]

Hola,

Estimados es mi segunda consultilla en este excelente foro.
Les cuento, tengo un problema con un proyecto, Tengo en mente Tener un TextBox en donde ingrese el rut luego ese rut buscarlo en una base de datos y agregar esa información en un dataGridView. Luego volver a ingresar otro rut y realizar el mismo procedimiento. para asi despues poder imprimir el datagrid con los distintos datos de los clientes.

Si alguien me pudiera ayudar con ese procedimiento del datagridView para ir agregando las filas con la informacion de distintos rut.


Muchas gracias.

Saludos

[Aquaventus]

Hola zeusandnereus Como lo piensas agregar desde el textBox? al presionar un boton o solo escribiendo desde el mismo textbox y con un [ENTER] validar la informacion ingresada?
Como esta compuesta la tabla a la cual vas a consultar?
Que campo de tu tabla deseas validar?
Sino existe solamente lo agrega a la base de datos y lista todos sus registros en este Datagridview o Cómo es?
Saludos!.

[zeusandnereus]

Aquaventus
*Claro quiero poner un boton "Agregar" el cual realizara la busqueda a la BD.

*La tabla esta compuesta por :
Rut (pk)
NombreCliente
Direccion
Telefono
eMail

*Si no existiera el rut ingresado que diga "no existe cliente" ingresar Algo asi. si existe que cargue la toda la informacion al dataGridView

en lo que tengo duda es como ir agregando al DatagridView direfentes clientes.

EJ:
RUT NOMBRE DIRECCION TELEFONO EMAIL
1.- 111-1 AAAAAA AAAAAAAA AAAAAAA AAAAA
2.- 222-2 BBBBBB BBBBBBBB BBBBBBB BBBBB
3.- 333-3 CCCCC CCCCCCC CCCCCC CCCCC
.....
.....
.....

Saludos

[Aquaventus]

Entonces todo va a estar en función al evento CLIC del botón, pero crea las columnas manualmente al datagridview tal y como esta el orden en tu tabla y luego harías algo así :

Código vb:

Try
'Declaro las varibles a usar
Dim sql As String
Dim cn As SqlConnection
Dim cm As SqlCommand
Dim da As SqlDataAdapter
Dim ds As DataSet
Dim existe As Boolean
Dim registros As Int32
'Creo la conexion a la base de datos
cn = New SqlConnection("Data Source=servidor;Database=base_de_datos;User ID=usuario; Password=clave")
'Creo la sentencia que devuelve los registros con rut igual al parametro
sql = "SELECT COUNT(*) FROM TUTABLA WHERE RUT = @PARAMETRO1"
 
cm = New SqlCommand()
cm.CommandText = sql
cm.CommandType = CommandType.Text
cm.Connection = cn
cm.Parameters.Add("@PARAMETRO1", SqlDbType.NVarChar(30))
cm.Parameters("@PARAMETRO1").Value = TuTextBox.Text
 
cn.Open()
'Obtenemos el resultado de la consulta
registros = Convert.ToInt32(cm.ExecuteScalar())
 
cn.Close()
'si los registros son mayores 0
If  registros > 0 Then
'quiere decir que ya existe el codigo ingresado
existe = True
'sino...
Else
'No existe ningun registro con el codigo ingresado
existe = False
End If
 
'Si ya existe el registro
If existe = True Then
'Creamos la sentencia para extraer los datos del codigo ingresado
sql = "SELECT RUT,NOMBRECLIENTE AS CLIENTE,DIRECCION,TELEFONO,EMAIL FROM TUTABLA WHERE RUT = @PARAMETRO2"
 
cn.open()
 
cm.CommandText = sql
cm.CommandType = CommandType.Text
cm.Connection = cn
cm.Parameters.Add("@PARAMETRO2", SqlDbType.NVarChar(30))
cm.Parameters("@PARAMETRO2").Value = TuTextBox.Text
da = New SqlDataAdapter(cm)
 
ds= New DataSet()
'lo almacenamos en un dataset
da.Fill(ds)
cn.Close()
'agregamos los datos en la grilla
TuDatagridView.Rows.Add(ds.Tables(0).Rows(0).Cells(0).Value.ToString(),ds.Tables(0).Rows(0).Cells(1).Value.ToString(),ds.Tables(0).Rows(0).Cells(2).Value.ToString(),ds.Tables(0).Rows(0).Cells(3).Value.ToString(),ds.Tables(0).Rows(0).Cells(4).Value.ToString())
 
Else
MessageBox.Show("No existe el codigo ingresado","Mensaje")
End If
Catch ex As Exception
MessageBox.show(ex.Message)
End Try
 

[Aquaventus]

Ahora eso se puede simplificar a esto, lo hize algo largo para que entiendas como fluye la logica, pero aca esta reducido codigo :

Código vb:

Try
'Declaro las varibles a usar
Dim sql As String
Dim cn As SqlConnection
Dim cm As SqlCommand
Dim da As SqlDataAdapter
Dim ds As DataSet
Dim registros As Int32
 
'Creo la conexion a la base de datos
cn = New SqlConnection("Data Source=servidor;Database=base_de_datos;User ID=usuario; Password=clave")
 
'Creamos la sentencia para extraer los datos del codigo ingresado
sql = "SELECT RUT,NOMBRECLIENTE AS CLIENTE,DIRECCION,TELEFONO,EMAIL FROM TUTABLA WHERE RUT = @RUT"
 
cm = New SqlCommand()
 
cn.open()
 
cm.CommandText = sql
cm.CommandType = CommandType.Text
cm.Connection = cn
cm.Parameters.Add("@RUT", SqlDbType.NVarChar(30))
cm.Parameters("@RUT").Value = TuTextBox.Text
da = New SqlDataAdapter(cm)
 
ds= New DataSet()
'lo almacenamos en un dataset
da.Fill(ds)
cn.Close()
 
'Contamos del dataset los registros que tiene
registros = ds.Tables(0).Rows.Count
 
'si los registros son mayores 0
If  registros > 0 Then
'quiere decir que ya existe el codigo ingresado
'agregamos los datos en la grilla
TuDatagridView.Rows.Add(ds.Tables(0).Rows(0).Cells(0).Value.ToString(),ds.Tables(0).Rows(0).Cells(1).Value.ToString(),ds.Tables(0).Rows(0).Cells(2).Value.ToString(),ds.Tables(0).Rows(0).Cells(3).Value.ToString(),ds.Tables(0).Rows(0).Cells(4).Value.ToString())
'sino...
Else
'No existe ningun registro con el codigo ingresado
MessageBox.Show("No existe el codigo ingresado","Mensaje")
End If
 
Catch ex As Exception
MessageBox.show(ex.Message)
End Try
 

[zeusandnereus]

Muchas Gracias.. Estoy probando el codigo y me arroja 2 errores..


El esta Lineas

Código vb:

cm.Parameters.Add("@RUT", SqlDbType.NVarChar(10))
 

Dice: La Expresion no es una Matriz o un metodo, no puede tener una lista de argumentos

y el segundo error: Cuando agrego los datos

Código vb:

dgvMasivas.Rows.Add(ds.Tables(0).Rows(0).cells(0).Value.ToString()
 

Este Dice: Que Cells no es un miembro de system.data.datarow

[Aquaventus]

Para el 1ro :

Código vb:

cmd.Parameters.Add("@RUT", SqlDbType.NVarChar, 10)
 

Para el 2do es asi :

Código vb:

dgvMasivas.Rows.Add(ds.Tables(0).Rows(0).Item(0).ToString(),....
 

Disculpa.. lo hize a mano cometemos errores . Saludos!.

[zeusandnereus]

Perdon por la Demora.. Muchas Gracias voy a ver como me va..

Saludos