Programación General > Visual Basic 6.0 e inferiores

 GUARDAR DATOS DEL DATACOMBO

(1/1)

andy2507:
Hola tengo 2 tablas relacionadas  mi BASE DE DATOS esta echo en ACCESS 2003

TABLA "TIENDA"
IdTienda  (Autonumerico)
Nombre_Tienda  (Texto)
IdDistrito  (numero)

TABLA "Distrito"
IdDistrito   (Autonumerico)
Nombre_Distrito  (Texto)


en la tabla tienda tengo el problema al guardar datos , El DataCombo  me muestra los distrito(Nombre_DIstrito) ,pero yo quisiera que cuando presione  "Guardar"  guarde solo el "IdDistrito"   ayudeneme por favor aca les dejo el coigo que empleado

PROCEDIMIENTO QUE CREE PARA CARGAR LOS DISTRITOS AL DATACOMBO

Private Sub CargarDCB()

    Dim rsDistrito As ADODB.Recordset
    Set rsDistrito = New ADODB.Recordset


    rsDistrito.Open "select IdDistrito,Nombre_Distrito from Distrito", cnBD, adOpenStatic, adLockReadOnly, adCmdText

    Set Dcbcodist.DataSource = rsDistrito
    Set Dcbcodist.RowSource = rsDistrito

    Dcbcodist.ListField = "Nombre_Distrito"
    Dcbcodist.BoundColumn = "IdDistrito"
End Sub


GUARDAR
Private Sub CmdGuardar_Click()


    rsTienda.AddNew
    rsTienda.Fields("IdTienda") = txtcodtienda.Text
    rsTienda.Fields("Nombre_Tienda") = txtnombtien.Text
    rsTienda.Fields("IdDistrito") = Dcbcodist.BoundColumn

End if

ESPERANDO SU PRONTA AYUDA Y COLABORACION GRACIAS

Navegación

[0] Índice de Mensajes