Hola a todos!!
Tengo un problemilla tengo dos dataGrid uno de ellos con los datos cargados de la base de datos y otro en blanco y lo que quiero es pasarle todos los datos al 2º Datagrid y que se guarden en otra tabla, lo que e exo es lo siguiente:
Private Sub cmd_VB_todo_Click()
Dim i As Integer
Dim a As Integer
Dim strSQL As String
Set Me.dgValorParticular.DataSource = dgValorBase.DataSource
a = dgValorBase.ApproxCount
MsgBox a
Set Me.dgValorBase.DataSource = Nothing
If MsgBox("¿Desea guardar los cambios realizados?.", vbYesNo + vbExclamation + vbDefaultButton2, "Confirme almacenamiento") = vbYes Then
For i = 0 To a - 1
Me.dgValorParticular.Col = i
strSQL = "INSERT INTO VALORES_PARTICULARES (ID_VALOR_B, ID_LOCALIZACION, VALOR) VALUES (" & dgValorParticular.Columns(0) & ",'" & dgValorParticular.Columns(3) & "','" & dgValorParticular.Columns(1) & "')"
MsgBox strSQL
cnGral.Execute strSQL
Next
End If
End Sub
Pero el subíndice esta fuera del intervalo q puedo acer?????????
Haber si alguien m puede hechar una manita
Muxas graciassssssss
