Mensajes

Hola necesito un componente boton que muestre la hora parecido al calendar pero en ves de fecha que se pueda elegir la hora para luego guardarlo en una base de datos

VALE LO PRUEBO Y TE DIGO

rs.Open "select * from ANIMALES"


como la modifico para que en ves de abrir una sola tabla abra 2 por ejm

LA TABLA ANIMALES Y LA TABLA ESPECIE

bueno baje un codigo de aca y lo quiero adacatar a un formulario que cree que guarda los datos en una base de datos peor me tira un error de pila




Código:
Option Explicit
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
' Variables para la conexión y para el recordset

Private Sub Command1_Click()

    rs.AddNew
    modoeditar True

End Sub

Private Sub Command2_Click()

    rs.Update
    modoeditar False

End Sub

Private Sub Command3_Click()
   rs.Update
    modoeditar False
End Sub

Private Sub Command6_Click()

End Sub

Private Sub cmdanterior_Click()
    rs.MovePrevious
    If rs.BOF Then
        rs.MoveFirst
        MsgBox "estamos en el primer registro"
    End If
End Sub

Private Sub cmdEditar_Click()
modoeditar True
End Sub

Private Sub cmdeliminar_Click()
    rs.Delete
    rs.MoveNext
    If rs.EOF Then
        rs.MoveLast
    End If
End Sub

Private Sub cmdGuardar_Click()

    rs.Update
    modoeditar False
End Sub

Private Sub cmdnuevo_Click()
rs.AddNew
    modoeditar True
End Sub

Private Sub cmdprimero_Click()
rs.MoveFirst
End Sub

Private Sub cmdsiguente_Click()
    rs.MoveNext
    If rs.EOF Then
        rs.MoveLast
        MsgBox "estamos en el ultimo registro"
    End If

End Sub

Private Sub cmdUltimo_Click()
rs.MoveLast
End Sub

Private Sub DataCombo1_Click(Area As Integer)
Set DataCombo1.RowSource = rs
    ' campo a mostrar en el datacombo
    DataCombo1.ListField = "DESCRIPCION"
   

    Set DataCombo1.DataSource = rs    /// en esta linea me marca el error
End Sub

Private Sub Form_Load()
modoeditar False
    Set cn = New ADODB.Connection
    Set rs = New ADODB.Recordset
    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source = dax.mdb; "
    rs.ActiveConnection = cn
    rs.CursorType = adOpenKeyset
    rs.LockType = adLockOptimistic
    rs.Open "select * from ANIMALES"
******  esta es la conexccion PARA ABRIR LA TABLA ESPECIE
   
    Set Text1.DataSource = rs
    Text1.DataField = "ID_ANIMAL"
    Set Text2.DataSource = rs
    Text2.DataField = "NUMERO_LARGO"
    Set DataCombo1.DataSource = rs
   DataCombo1.DataField = "ESPECIE"
    Set Text4.DataSource = rs
    Text4.DataField = "ORIGEN"
    Set Calendar1.DataSource = rs
    Calendar1.DataField = "FECHA_NAC"
    Set Text6.DataSource = rs
    Text6.DataField = "GENETICA"
    Set Text7.DataSource = rs
    Text7.DataField = "ID_PADRE"
    Set Text8.DataSource = rs
    Text8.DataField = "ID_MADRE"
    Set Text9.DataSource = rs
    Text9.DataField = "UBICACION"
    Set Text10.DataSource = rs
    Text10.DataField = "COMENTARIO"
   
' nueva conexión ado
    Set cn = New ADODB.Connection

    ' Abre la conexión
    With cn
        .Provider = "Microsoft.Jet.OLEDB.4.0"
        .ConnectionString = "Data Source = " & App.Path & "\dax.mdb"
        .Open
    End With

    ' Nuevo Recordset
    Set rs = New ADODB.Recordset

    ' Propiedades del Recordset
    With rs
        .CursorLocation = adUseClient
        ' Abre el recordset indicando la tabla
        .Open "ESPECIE", cn, adOpenStatic, adLockOptimistic, adCmdTable
    End With
End Sub
///Y  ESTA PARA ABRIR LA TABLA ESPECIE ///
     
Private Sub Form_Unload(Cancel As Integer)
   
    ' Descarga y cierra el recordset
    If Not rs.State = adStateClosed Then
        rs.Close
    End If
    If Not cn Is Nothing Then
        Set cn = Nothing
    End If
   
    ' cierra la conexión ado
    If Not cn.State = adStateClosed Then
        cn.Close
    End If
   
    If Not cn Is Nothing Then
        Set cn = Nothing
    End If
    // ESTO VENIA CON EL CODIGO DEL DATACOMBO ///
End Sub




Private Sub modoeditar(ByVal ok As Boolean)
    Text1.Locked = Not ok
  Text2.Locked = Not ok
    DataCombo1.Locked = Not ok
    Text4.Locked = Not ok

    Text6.Locked = Not ok
    Text7.Locked = Not ok
    Text8.Locked = Not ok
    Text9.Locked = Not ok
    Text10.Locked = Not ok
   
    cmdnuevo.Enabled = Not ok
    cmdEditar.Enabled = Not ok
    cmdeliminar.Enabled = Not ok
    cmdGuardar.Enabled = ok
    If ok Then Text1.SetFocus
End Sub

Private Sub salirautor_Click()
Unload Me
End Sub




LO que quiero HACER CON ESTE CODIGO ES GUARDAR LOS DATOS  EN UNA TABLA ,  PERO EL PROBLEMA ES que CON EL  DATACOMBO HAY que LLAMAR LOS DATOS DE OTRA TABLA EN ESTE CASO LA TABLA ESPECIE EL CAMPO TIPO , PARA que SE MUESTREN EN LA LISTA DEL DATA COMBO Y AL ELEGIR UNO DE ESOS SE GUARDE EN LA TABLA ANIMALES JUNTO CON TODOS LOS DATOS    PEOR AL SELECCIONAR EL DATACOMBO SALEN LOS DATOS PERO SE VEN INTERMITENTES Y AL FINAL DICE ERROR ESPACIO DE PILA INSUFICIENTE SI ALGUIEN ME PUDIERA AYUDAR 

  En línea 

ya lo solucione al parecer se referia alos mismo controles 

Estuve viendo un ejemplo para conectar un data combo a una tabla pero no me kedo muy claro esta parte

Para el ejemplo agregar la referencia Microsoft Activex Data Objects para usar ado y el ocx Microsoft DataList controls



cual es esa referencia un datagrid?? y que ocx se refiere

me tira este error

Puede funcionar todo lo bien que quieras pero no está nada optimizado y está mal estructurado .

ay algo que no discutamos de que el code funciona funciona pruebenlo ustedes mismos


Me quiero escusar por que hasta yo digo que el código esta mal acomodado, ya que fue lo lo primero que aprendi en PHP  y no mas no lo eh optimizado ni nada pero algun dia lo hare


Pero de que funciona funciona

PODRIA COMPILARLO TU Y SUBIRLO  A  ALGUNA WEB PARA BAJARLO asi  lo pruebo y si me funciona es por que yo lo copie mal si no es or que el codigo algo tiene  lo probe en otro pc pensando que era mi computador y nada

Pues el código lo veo bien..., me imagino que funciona. Lo programó redmx.

¿Qué error te tira?

Ahora no se vale venir a decir que es una porquería el código porque ni te lo está cobrando  , el que no sabe programar es otro 

yo no eh dicho que el codigo es una porkeria asi que no inventes  y puse los errores que me tiraba en la primera pagina    leaa bien antes de dar falsas opiniones

[EL CODIGO NO FUNCIONA BIEN , no es cosa mia mejor tu aprende php y a saber detectar posibles errores]

EL CODIGO NO FUNCIONA BIEN , no es cosa mia mejor tu aprende php y a saber detectar posibles errores