SoloCodigo

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

Hola que tal quisiera que me enseñen a manejar el datacombo

DISTRITO                           TIENDA

IdDistrio (Autonumerico)     IdTienda(Autonumerico)
Nombre_Distrito(Texto)       Nombre_Tienda(Texto)
IdDistrito(Numero)


Tengo 2 tablas relacionadas "Tienda" y " Distrito" estan relacionadas mediante el campo "IdDIstrito" cargo el formulario de TIENDA presiono el boton NUEVO limpia todas las cajas texto y DATACOMBO (el DATACOMBO debe cargar los nombres de distrito) y cuandoo presiono el boton GUARDAR debe guardar el IdDistrito como puedo hacer eso con el datacombo??

ESTOY HACIENDO LA CONEXION CON ADO por codigo

ESPERANDO SU PRONTA AYUDA GRACIAS

Es un combo normal? no te funcionaria mejor un DataCombo? creo recordar que en ese control si tendrias las propiedades adecuadas sin tener que hacer "trucos"


Saludos

GRACIASPOR LO DEL DATACAMBO PERO ME PODRIAS INDICAR COMO VINCULAR LE DATA COMBO CON MI TABLA TIENDA SIN USAR EL CONTROL ADODC ??

Hola como estan estoy creando  una aplicacion en visual basic 6.0 , estoy haciendo un formulario de manteniemiento de lugar de residenccia (DISTRITO aca en PEru lo conocemos de esa forma).

Agregue un modulo y en el modulo cree mi recordset y mi connection este es el codigo
**************modulo************************
Public cndist As ADODB.Connection
Public rsDistrito As ADODB.Recordset

**********************************************




** *******metodo************************

Public Sub Llenatexto()
rsDistrito!IdDistrito = txtcodigo.Text
rsDistrito!nombre_distrito = txtnomdist.Text
End Sub


en mi formulario e puesto este codigo:

Private Sub Form_Load()

Set cndist = New ADODB.Connection

With cndist
     .Provider = "Microsoft.Jet.OLEDB.4.0"
     .ConnectionString = "Data Source=C:siscesaBDvisita.mdb;Persist Security Info=False"
     .Open
     .CursorLocation = adUseServer
End With

Set rsDistrio = New ADODB.Recordset
    rsDistrito.ActiveConnection = cndist
    rsDistrito.CursorType = adOpenDynamic
    rsDistrito.LockType = adLockOptimistic
    rsDistrito.Open "select * from Distrito"
   
Llenatexto

End sub



CUANDO COMPILO EL PROGRAMA ME SALE ESE MENSAJE DE ERROR

" Variable de tipo Object o la variable de bloque with no esta establecida "


Y SE MARCA DE COLOR AMARILLO ESA ZONA
rsDistrito.ActiveConnection = cndist




por favor me podrian ayudar y decirme cual es el problema ? esperando su pronta respuesta