• Domingo 22 de Diciembre de 2024, 13:49

Autor Tema:  GUARDAR DATOS DEL DATACOMBO  (Leído 1597 veces)

andy2507

  • Nuevo Miembro
  • *
  • Mensajes: 7
    • Ver Perfil
GUARDAR DATOS DEL DATACOMBO
« en: Lunes 4 de Julio de 2011, 21:25 »
0
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
El mensaje contiene 1 archivo adjunto. Debes ingresar o registrarte para poder verlo y descargarlo.