DataGridViewComboBoxColumn

[ginosan]

hola amigos de foros del web!! soy nuevo en esto de visual studio y en este caso estoy trabajando con el 2005 y tengo el siguiente codigo:

Private Sub BtnAddRequisito_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnAddRequisito.Click
Dim sConexion As String = Negocio.Conexion
Dim Ds_datos As New DataSet
Dim sQuery As String

CboRequisitoColumn.Name = "Materia"
Me.DGVMaterias.Columns.Add(CboRequisitoColumn)
sQuery = "SELECT asg_codigo as codigo, asg_nombre as descripcion FROM spsatbasignatura where asg_semestre<" & Me.CMBSemestre.Text

Ds_datos = Accesar_Datos.GetDataSet(sQuery, sConexion)
my_DGVCboColumn.DataSource = Ds_datos.Tables(0)
my_DGVCboColumn.Name = "Datos"
my_DGVCboColumn.DisplayMember = Ds_datos.Tables(0).Columns("descripcion").ToString
my_DGVCboColumn.ValueMember = Ds_datos.Tables(0).Columns("codigo").ToString Me.DGVMaterias.Columns.RemoveAt(0)
Me.DGVMaterias.Columns.Insert(0, my_DGVCboColumn)
End Sub
'aqui creo el datagridcombocolumn dentro del datagridview
'lo q necesito saber es como hago para insertar el dato
'q se encuentra dentro del objeto y es ahi donde aparece el siguiente codigo

Private Sub Agregar_Requisitos()
Dim sQuery As String = ""
Dim sConexion As String = Negocio.Conexion
Dim Ds_Datos As New DataSet
Dim KROW As Integer = 0
Dim aux As String
Dim r As Integer

Try
For KROW = 0 To Me.DGVMaterias.RowCount - 1

aux = Me.my_DGVCboColumn.Items(KROW).ToString()
r = CType(aux, Integer)

sQuery = "spi_spsatbrequisito_asignatura " & Codigo & "," & r & ""

Ds_Datos = Accesar_Datos.GetDataSet(sQuery, sConexion)

Next KROW
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "Error")
End Try

End Sub

'y me aparece el siguiente mensaje:
' La conversion de la cadena "System.Data.DataRowView" en el tipo "Integer' no es valida.

[kyha]

En esta linea :

aux = Me.my_DGVCboColumn.Items(KROW).ToString()

te falta poner el value :

aux = Me.my_DGVCboColumn.Items(KROW).Value.ToString()

[ginosan]

'hola.. te cuento q hice lo q me didjiste y me sale el siguiente error:

No se encuentra el miembro público value en el tipo DataRowView.

'necesito q me ayudes yo quisiera hacer referencia al objeto
'DataGridViewComboBoxColumn q es my_DGVCboColumn) q se encuentra dentro
'del DGVMaterias (DataGridView) y asi insertar el codigo q me da my_DGVCboColumn
'en mi procedimiento spi_spsatbrequisito_asignatura
'porfa AYUDENME!! Gracias de antemano

[kyha]

Iniciado por kyha

En esta linea :

aux = Me.my_DGVCboColumn.Items(KROW).ToString()

te falta poner el value :

aux = Me.my_DGVCboColumn.Items(KROW).Value.ToString()

Perdon no me di cuenta que Me.my_DGVCboColumn no era el nombre del datagridview

aux = Me.DGVMaterias.Rows(KROW).cells(1).value

[ginosan]

hola kyha, como estas?? espero q bien!! gracias por la ayuda pero ahora te voy a molestar por lo siguiente y es q ahora me sale en el momento de insertar el siguiente mensaje de error:
'Sintaxis incorrecta cerca de ','.
'La cuestión es q el objetivo de la función Agregar_Requisitos() es de crear requisitos para
'cada materia a ver, es decir, q si quiero ver Programación III tengo q tener aprobadas
'Programación I y Programación II pero solo me almacena un codigo x decir solo el codigo
'de Programación I y el de Programación II no lo almacena
'Esta es la codificacion de Agregar_Requisitos()
Private Sub Agregar_Requisitos()
Dim sQuery As String = ""
Dim sConexion As String = Negocio.Conexion
Dim Ds_Datos As New DataSet

Dim KROW As Integer = 0


Try

For KROW = 0 To Me.DGVMaterias.RowCount - 1

sQuery = "spi_spsatbrequisito_asignatura " & Codigo & "," & Me.DGVMaterias.Rows(KROW).Cells(0).Value & ""

Ds_Datos = Accesar_Datos.GetDataSet(sQuery, sConexion)

Next KROW
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "Error")
End Try

End Sub

'A continuación te doy la codificación de mi procedimiento:

ALTER PROCEDURE [dbo].[spi_spsatbrequisito_asignatura]
@asg_codigo tinyint,
@asg_requisito tinyint
AS
Begin transaction
if not exists( select * from spsatbrequisito_asignatura where asg_codigo=@asg_codigo and asg_requisito=@asg_requisito )
begin
insert spsatbrequisito_asignatura(asg_codigo,asg_requisit o)
Values(@asg_codigo,@asg_requisito)
end

if @@error <> 0
begin
raiserror('Error al insertar registro.',16,-1)
rollback transaction
return
end

commit transaction
'de antemano gracias por el apoyo y la ayuda :)

[ginosan]

al parecer quien me esta haciendo problema es el DGVMaterias o el datagridviewcomboboxcolumn xq lo probe el procediemiento y trabaja bien lo q hice fue pasar solo Codigo y en vez de Me.DGVMaterias.Rows(KROW).Cells(0).Value puse una varible acumuladora q se sumaba con el KROW y me trabajo bien asi q asumo q el problema es el bendito control del grid xq si lo uso pasando un solo dato no me guarda nada pero si quiero mandar 2 me guarda el primero pero me manda el mensaje de error "Sintaxis incorrecta cerca de ','. " no se q pasa ni q hacer.. por fa ayudameeeeeeeeee

[ginosan]

ya lo revise minuciosamente y es q si ingreso solo uno me sale el error q te comente pero si agrego 2 me inserta el primero, si ingreso 4 solo me inserta los 3 primeros y me sale el error, no se que pasa

[kyha]

¿Puede ser que tengas el valor de la celda 0 en la ultima filas a ""?

[ginosan]

no se q ocurre.. lo q pasa es q si agrego de 3 en adelante requisitos me los coge bien pero si agrego 1 o 2 me sale un error "Sintaxis incorrecta cerca de ','." y no por q es eso?? pa mi es q no toma el ultimo registro, ya q cada q uno hace clic sobre el datacomboboxcolumn aparece una fila por defecto pero no me vota lo ultimo seleccionado sino q si ingreso 1 me da direto el mensaje si ingrso 2 requisitos me da el primero pero el segundo nada de nada, en cambio de 3 en adelante me da todos los requisitos q yo selecciono.. no se q pasa??

[ginosan]

ya lo resolvi ayer, espero y le sirva a alguien.

Dim sQuery As String = ""
Dim sConexion As String = Negocio.Conexion
Dim Ds_Datos As New DataSet
Dim KROW As Integer = 0
Dim v As Integer

Try

For KROW = 0 To Me.DGVMateriasRequisitos.RowCount - 2

v = Me.DGVMateriasRequisitos.CurrentCell.RowIndex
'aqui pregunto si el enfoq esta en la ultima fila sino
'muevo el enfoq al siguiente registro

If v < Me.DGVMateriasRequisitos.RowCount - 1 Then
Me.DGVMateriasRequisitos.CurrentCell = Me.DGVMateriasRequisitos.Item(0, v + 1)
End If

sQuery = "spi_spsatbrequisito_asignatura " & Codigo & "," & Me.DGVMateriasRequisitos.Rows(KROW).Cells(0).Value

Ds_Datos = Accesar_Datos.GetDataSet(sQuery, sConexion)
Next KROW
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "Error")
End Try

'chau