Visual Basic - Ayuda con variables

Life is soft - evento anual de software empresarial
   
Vista:

Ayuda con variables

Publicado por Carlos Omar oguajardoc@hotmail.com (56 intervenciones) el 19/01/2012 16:08:41
Que tal foro, mi duda es la siguiente:

Quiero guardar datos en una tabla a partir de una variable, los datos estan alojados en otra tabla, pero mejor les pongo lo que llevo de codigo para poderme explcar mejor:


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Private Sub TXTCANT_KeyPress(KeyAscii As Integer)
StrConn = "SELECT Descripcion,Stock FROM Almacen WHERE Descripcion='" & Trim(Text1.Text) & "'"
 
If KeyAscii = vbKeyReturn Then
    If TxtCant.Text <> "" Then
    AbrirConn
    Set RsConn = Conn.Execute(StrConn)
    If RsConn.EOF = False Or RsConn.BOF = False Then
        If RsConn!Stock < Val(TXTCant.Text) Then
            Mensaje = MsgBox("Producto Insuficiente para Surtir !", vbInformation + vbOKOnly, "I N F O R M A C I O N")
        Else
'**********LLENA GRID**********
    MSFlexGrid1.AddItem vbTab & Trim(CboAsignacion.Text) & vbTab & Trim(Text1.Text) & vbTab & Trim(TxtUnidad.Text) & vbTab & Trim(TxtCant.Text)
    MSFlexGrid1.TextMatrix(MSFlexGrid1.Rows - 1, 0) = MSFlexGrid1.Rows - 1
'********LIMPIAR CAMPOS********
        Text1.Text = ""
        TxtUnidad.Text = ""
        TxtCant.Text = ""
'******REINICIAR EL CICLO******
        CboAsignacion.SetFocus
        End If
    End If
    CerrarConn
    End If
End If
End Sub


Y lo guardo de la siguiente manera:

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub ProcedimientoGuardar()
StrConn = "SELECT NoSolicitud FROM SalidasAlmacen WHERE NoSolicitud='" & Trim(TXTNoREQ.Text) & "'"
 
AbrirConn
Set RsConn = Conn.Execute(StrConn)
If RsConn.EOF = True Or RsConn.BOF = True Then
Mensaje = MsgBox("Guardando Solicitud de Material !", vbInformation + vbOKOnly, "A T E N C I O N !")
CerrarConn
    GuardarSalidasAlmacen
    GuardarDetalleSalidasAlmacen
    ModificarStatusOrden
End If
End Sub


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Function GuardarDetalleSalidasAlmacen()
Cadena = "SELECT * FROM DetalleSalidasAlmacen"
 
AbrirDAO
Set Dr = BaseDatos.OpenRecordset(Cadena)
 
Fila = 0
 
For Fila = 1 To MSFlexGrid1.Rows - 1
Dr.AddNew
Dr!FechaSolicitud = Format(TXTFECHA.Text, "dd/mm/yyyy")
Dr!NoSolicitudDetalleSalida = Trim(TXTNoREQ.Text)
Dr!NoOTDetalleSalida = Trim(TXTNoORDEN.Text)
Dr!Descripcion = MSFlexGrid1.TextMatrix(Fila, 1)
Dr!UnidadMedida = MSFlexGrid1.TextMatrix(Fila, 2)
Dr!CantSolicitado = MSFlexGrid1.TextMatrix(Fila, 3)
Dr.Update
Next Fila
CerrarDAO
End Function


Todo esto me funciona bien, discupen si ven alguna incongruencia pero pueda ser el copy/paste o por las pruebas que he estado haciendo, pero si funciona.
Lo que quiero es en lugar de ir almacenando la misma info en dos o mas tablas solamente guardar un campo unico de la Descripcion (El campo se llama IdArt).

Alguien me puede ayudar para almacenar en una var el valor del campo IdArt al momento de vaciarlo en el grid (Primer codigo), vaya quedando Var1, Var2, Var3, etc. y al guardar en lugar de guardar todo el grid, solo guardar las variables ?

Espero poder explicarme.
De antemano, gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder