• Jueves 25 de Abril de 2024, 12:56

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Temas - andy2507

Páginas: [1]
1
Visual Basic 6.0 e inferiores / GUARDAR DATOS DEL DATACOMBO
« en: Lunes 4 de Julio de 2011, 21:25 »
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

2
Visual Basic 6.0 e inferiores / Error al guardar datos
« en: Jueves 30 de Junio de 2011, 23:37 »
Hola tengo un problema al guardar datos.

Presiono el boton " EDITAR " luego " GUARDAR" funciona bien   y despues presiono el boton " NUEVO "me sale el  mensaje de error  '-2147217887(80040e21)

ESTE ES EL CODIGO
***************GRABAR*******************
Private Sub CmdGrabar_Click()
 
 rsDistrito.AddNew
 rsDistrito("IdDistrito") = txtcodigo.Text
 rsDistrito("Nombre_Distrito") = txtnomdist.Text

en sub




*******NUEVO*******************************
Private Sub CmdNuevo_Click()

 rsDistrito.MoveLast
 txtcodigo.Text = rsDistrito.Fields("IdDistrito") + 1
 
 
 Me.txtcodigo.Enabled = False
 Me.txtnomdist.Enabled = True
 
 Me.txtnomdist.Text = ""

end sub

**********EDITAR********************
Private Sub CmdEditar_Click()


   Me.txtcodigo.Enabled = False
   Me.txtnomdist.Enabled = True

end sub

MI BASE DE DATOS ESTA ECHO EN ACCESS 2003  CON 2 TABLAS RELACIONADAS  DISTRITO Y TIENDA


ESPERANDO SU PRONTA AYUDA GRACIAS

3
Visual Basic 6.0 e inferiores / Combo box y Label
« en: Miércoles 1 de Junio de 2011, 21:20 »
Hola que tal tengo un problema con un combo box y una etiqueta LABEL

Tengo 2 tablas relacionadas  "Tienda" y " Distrito" estan relacionadas mediante el campo "IdDIstrito" cargo el formulario presiono el boton NUEVO limpia todas las cajas texto y el combo box (el combo box carga los nombres de distrito) cuando elijo alguna de las opciones del combo box quisiera que en el LABEL me muestre el "IdDistrito" elegido

espero que me ayuden gracias

4
Bases de Datos / CONEXIONA BASE DE DATOS EN ACCESS
« en: Domingo 15 de Mayo de 2011, 00:04 »
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

Páginas: [1]