Duda con Datagrid en visual 6.0

[patob]

Buenas, tengo el siguiente problema.
Tengo 2 datagrid en un mismo form, en uno de ellos tengo Materiales y en el otro debo ir agregando esos materiales para luego armar un componente, a su vez el stock de esos materiales debe ir dismuniyendo. Esto debo guardarlo en una base de datos Acces
Alguien puede explicarme como hago para pasar los datos de un Datagid a otro?
Gracias!

[lokoman]

Hola!
Creo que si usas dos tablas en access asignadas a dos datagrid no vas a tener problemas. En tus botones de accion (agregar o actualizar) simplemente refrescas los dos datagrid luego de añadir tu registro a la base de datos, osea:
1-Click en el boton (agregar o actualizar o el que uses para la accion):
a-inserta en la tabla "agregados" en access el registro seleccionado
b-elimina de la tabla "materiales" el registro seleccionado
2-Refrescas el recordset que carga los datagrid

Postea tu codigo para darte sugerencias...

[patob]

Private Sub Form_Load()
abrirConexion

Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.Open "select Nombre,Medidas from Materiales", cnn, adOpenStatic, adLockOptimistic

With DataGrid1
.AllowUpdate = False
End With

Call CargarDataGrid(DataGrid1)
End Sub

Este es el codigo que utilizo para cargar el datagrid1 que es donde estan los Materiales. Podrias darme un ejemplo con lo que me decis? No me doy cuenta a simple vista. Gracias

[lokoman]

Usas solo una tabla (Materiales)?
Crea un nuevo campo en la tabla "Materiales" que se llame "mDisponible" que podrá tener uno de dos valores: "S" (si disponible) y "N" (no disponible), entonces:

Código vb:

Private Sub Form_Load()
abrirConexion
 
Set rs = New ADODB.Recordset
Set rs2 = New ADODB.Recordset
 
rs.CursorLocation = adUseClient
rs.Open "select Nombre,Medidas from Materiales WHERE mDisponible='S' ", cnn, adOpenStatic, adLockOptimistic
 
rs2.CursorLocation = adUseClient
rs2.Open "select Nombre,Medidas from Materiales WHERE mDisponible='N' ", cnn, adOpenStatic, adLockOptimistic
 
DataGrid1.AllowUpdate = False
DataGrid2.AllowUpdate = False
 
Call CargarDataGrid(DataGrid1)
Call CargarDataGrid(DataGrid2)
 
End Sub
 

Ahi te cargará el Datagrid1 (este te mostrará los materiales disponibles) y el Datagrid2 (este solo te mostrará los materiales ya agregados), entonces en el boton que agregas los componentes:

Código vb:

'Imagino que tienes un ID del material...
CNN.Execute "UPDATE Materiales set mDisponible='N' where ID_MATERIAL=" & ID_MATERIAL & " and mDisponible='S'"
 
Call CargarDataGrid(DataGrid1)
Call CargarDataGrid(DataGrid2)
 

Intenta a ver...

[patob]

Hola, Probe lo que me dijiste y anda, Las tablas que uso son Materiales y otra que se llama Bins. La tabla bins tiene Materiales que son los que la componen. Mi idea es ir seleccionando la cantidad de cierto material que se necesita para armar ese "Bin" (Bin es un tipo de cajon) y que a su vez el stock de ese material vaya disminuyendo.
Gracias!!

[patob]

Pude solucionar. Muestro el codigo de como lo hice por si a alguien le sirve.

Private Sub Command1_Click()
If Me.Text1.Text = "" Then
MsgBox ("Debe ingresar la cantidad")
Else
If rs(3).Value <= 0 Then
MsgBox ("No hay mas stock de este material")
Else
rs(3) = Val(rs(3) - Val(Text1.Text))
rs.Update

Set rs2 = New ADODB.Recordset
rs2.CursorLocation = adUseClient
rs2.Open "INSERT INTO Materiales_Temp (Id,Nombre,Medidas,Cantidad) values( " + rs(0) + " ," + rs(1) + "," + rs(2) + "," + rs(3) + ")", cnn, adOpenStatic, adLockOptimistic

With DataGrid2
.AllowUpdate = False
End With

Call CargarDataGrid(DataGrid2)
End If
End If
End Sub

Solo un detalle. Cuando hago el insert en el rs2 me da un error diciendo que los tipos no coinciden. Sabes que puede ser eso?

[lokoman]

Debe ser el tipo de variables que le pasas al SQL:

• Verifica que los campos de numero reciban variables numericas (ej.: campo CANTIDAD=123456)
• Verifica que los campos de texto reciban variables string (ej.: campo NOMBRE='MI NOMBRE')
• Verifica los valores de:
-----rs(0)
-----rs(1)
-----rs(2)
-----rs(3)

• Cambia el "adOpenStatic" por "adOpenKeyset"