¿DATAGRIDVIEW utilizado con parametros?

[josiasdaniel_]

Saludos cordiales a todos los que deseen ayudar, tengo el siguiente caso:

Elaboré un DataSet tipado y lo arrastre como un datagridview a un formulario(la idea es que me funcione como un repositorio de datos temporales para modificarlos e insertarlos modificados a la BD). Este formulario tiene dos comboBox uno para una tarifaOrigen y otro para tarifaDestino.
Estos comboBox hacen referencia a una misma tabla y lo que quiero es que al elegir un posición del comboBox1 todos los registros con ese mismo codigo se carguen en el datagridview. Tambien que al elegir una posición distinta en el comboBox2 sustituya el codigo en el datagriedview por el que otorga el comboBox2 para luego insertar estos registros con el codigo cambiado en la tabla original.



cualquier ayuda sera bien recibida....

[Ka0stj]

Lo que puedes hacer es poner en la sentencia WHERE de tu consulta a la BD variables y estas tomen el valor de los Combobox, esto lo podrias ejecutar en el evento selectedindex, selectedvalue, etc. de los combobox depende de tus necesidades, cuando el evento del combo se dispare cargas el DataGridView.

Saludos!

[josiasdaniel_]

Muy bien, ya tengo adelantado lo de las propiedades selectedindex y selectedvalue.
y me quedo asi:

Dim DesplegadoData_DGW As New tbRangoDespDSTableAdapters.tbRangoDespTableAdapter
TbRangoDespBindingSource.DataSource = TbRangoDespDS.Tables("tbRangoDesp")

TbRangoDespDataGridView.DataSource = DesplegadoData_DGW.GetDataBycdr_codigo(codigoOrige n.ToString)

Ahora quiero cambiar el valor de una columna del datagridview para luego insertar todos los registros con el valor cambiado a la tabla...

[Ka0stj]

Te refieres a cambiar el valor de un registro que ya existe? Si es asi pues usa el comando UPDATE. Porque a lo que entiendo cambiar el valor de una columna del datagridview para luego insertar todos los registros con el valor cambiado a la tabla es mas bien una actualización y no una inserción.

[josiasdaniel_]

Iniciado por Ka0stj

Te refieres a cambiar el valor de un registro que ya existe? Si es asi pues usa el comando UPDATE. Porque a lo que entiendo cambiar el valor de una columna del datagridview para luego insertar todos los registros con el valor cambiado a la tabla es mas bien una actualización y no una inserción.

no porque se trata de adicionar en la tabla los mismos registros con el valor de un campo cambiado.

ya logre realizar el cambio del campo en el datagridview y me permito compartir el codigo:

Código HTML:

 Dim DesplegadoData__DGW As New tbRangoDespDSTableAdapters.tbRangoDespTableAdapter
                    TbRangoDespBindingSource.DataSource = TbRangoDespDS.Tables("tbRangoDesp")

                    TbRangoDespDataGridView.DataSource = DesplegadoData__DGW.GetDataBycdr_codigo(codigoOrigen.ToString)
                    Dim i As Integer = TbRangoDespDataGridView.RowCount

                    Dim contador As Integer
                    For contador = 0 To i - 1

                        TbRangoDespDataGridView.Item(0, contador).Value = codigoDestino.ToString
                        Dim Variable As String = CStr(TbRangoDespDataGridView.Item(0, contador).Value)

                    Next

Luego de esto lo unico que me falta es insertarlo en la tabla y aqui es donde necesito la ayuda de alquien que me de una idea de como INSERTAR los registros que estan en TbRangoDespDataGridView en la tabla que me imagino que es el tbRangoDespTableAdapter...

[Ka0stj]

La inserción la puedes hacer de distintas formas, por ejemplo, mediante Procedimientos Almacenados o bien desde VB.

Si te decides por la segunda opción puedes hacer algo asi:

Código vb:

Public Sub EjecutarQuery(ByVal sql As String, ByVal objConn As SqlConnection)
 
        '-- Declaro una variable tipo SqlCommand
        Dim cmd As System.Data.SqlClient.SqlCommand
 
        Try
            '-- Creo una nueva instancia de SqlCommand
            cmd = New System.Data.SqlClient.SqlCommand()
 
            '-- Asigno mi Conexión
            cmd.Connection = objConn
 
            '-- Asigo el Comando SQL a ejecutar
            cmd.CommandText = sql
 
            '--Ejecuto mi Comando
            cmd.ExecuteNonQuery()
 
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical, "Error")
        End Try
 
    End Sub
 

Solo le mandas la conexión y tu instrucción sql de insertar.

Checa el siguiente enlace ahi explica sobre los procedimientos almancenados.

http://interconectate.blogspot.com/2...en-vb-net.html

Saludos!

[josiasdaniel_]

Saludos amigo Ka0stj, gracias por tu valiosa colaboración, te pongo el codigo para ponerte en contexto, y en negro la parte donde intento hacer el insert. Me esta dando error en tiempo de ejecución, dice que no se puede convertir un objeto de tipo "System.window.form.datagridview" al tipo "System.data.dataRow". Entonces te pregunto ¿como podria hacer la conversión de forma correcta?

Código:

Select Case (tipo)
                Case (tipoAviso.Desplegado)

                    'Habilito el TbRangoDespDataGridView para vizualizarlo
                    TbRangoDespDataGridView.Enabled = True
                    TbRangoDespDataGridView.Visible = True

                    ' cargando nuevo dataset
                    Dim DesplegadoData__DGW As New tbRangoDespDSTableAdapters.tbRangoDespTableAdapter

                    'Asignando la tabla TbRangoDesp como fuente de datos al BindingSource
                    TbRangoDespBindingSource.DataSource = TbRangoDespDS.Tables("tbRangoDesp")

                    'Asignamos a la grilla los valores resultantes del select diseñado en el metodo GetDataBycrd_codigo
                    'del tableAdapter
                    TbRangoDespDataGridView.DataSource = DesplegadoData__DGW.GetDataBycdr_codigo(codigoOrigen.ToString)

                    'almaceno el contador de registros del select en la variable i
                    Dim i As Integer = TbRangoDespDataGridView.RowCount

                    'contador es variable indice
                    Dim contador As Integer
                    For contador = 0 To i - 1

                        'Valido que los codigos no correspondan a la opciòn Default
                        If codigoDestino.ToString = "00000" Or codigoOrigen = "00000" Then
                            MsgBox("ORIGEN Ó DESTINO NO PUEDE SER DEFAULT")
                        Else
                            TbRangoDespDataGridView.Item(0, contador).Value = codigoDestino.ToString
                            Dim Variable As String = CStr(TbRangoDespDataGridView.Item(0, contador).Value)
                        End If

                    Next

                   
                    Static a As Integer = 0
                    For Each dtr As Data.DataRow In TbRangoDespDataGridView.Rows
                        Dim registro As DataRow = TbRangoDespDS.tbRangoDesp.NewRow
                        registro(a) = dtr(a)
                        TbRangoDespDS.tbRangoDesp.Rows.Add(registro)
                        a += 1
                    Next

                    TbRangoDespDS.AcceptChanges()


                Case (tipoAviso.Clasificado)