• Sábado 10 de Mayo de 2025, 05:48

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.


Mensajes - angelescj

Páginas: 1 2 3 [4] 5 6 7
76
Antes de asignar cualquier cosa, o por lo menos antes de hacer el viewReport pon esta línea de código:

report.DiscardSavedData

Por defecto crystal guarda los reports con los datos, así que para que se actualice hay que descartarlos.
:suerte:

77
En la versión 8.0 de Crystal apareció el RDC o diseñador de informes, es parecido a los Datareports de VB, pero en bueno. En esta versión todavía mantenían el OCX por temas de compatibilidad, pero en la v9.0 ya no. No te queda más remedio que utilizar RDC, pero no es muy complicado, aunque sí cambian bastantes cosas. Te recomiendo una web de Crystal muy buena en donde te indican paso a paso como empezar a usar RDC, pero si tienes algún problema avisa:

http://www.lawebcrystal.com/rdcmain.asp

:suerte:

78
Visual Basic 6.0 e inferiores / Re: Para MartinX
« en: Viernes 6 de Junio de 2003, 17:14 »
Me paraece que no te había entendido, pero para lo que quieres acer no esmás que porner un adoloquesea.recordset.update antes de las líneas que te había anulado, y ya está. Hasta que no se actualiza la creación del registro éste no existe realmente, así que no puedes pedir el valor del autonumérico
:suerte:

79
Visual Basic 6.0 e inferiores / Re: Como se llama a un programa desde VB?
« en: Viernes 6 de Junio de 2003, 12:33 »
Shell cadena,tipoVentana
cadena==>Cadena de caracteres con el nombre del programa y los argumentos.


:suerte:

80
Visual Basic 6.0 e inferiores / Re: experiencia frustrante....
« en: Viernes 6 de Junio de 2003, 09:29 »
¡¡¡¡Nunca te rindas ante Visual Basic!!!
El error está en que si un campo es Autonumerico el valor se le asigna de forma automática a hacer AddNew... Update, no se asignas tú, si quitas esas línas funciona:

Private Sub cmdmodif_Click()
    Select Case cmdmodif.Caption
        Case Is = "&Modificar"
            ModifData
            nuevo = False
            'LÍNEA ANULADA
            'strRegistro = AdcClientes.Recordset.Fields("IDcliente").Value
        Case Is = "Guardar"
                ModoNav
                'LÍNEA ANULADA
                'strRegistro = AdcClientes.Recordset.Fields("IDcliente").Value
                AdcClientes.Recordset.Update
                'RefrescarTxt
                If nuevo = True Then
                    AdcClientes.Recordset.Requery
                End If
                AdcClientes.Recordset.Find "[IDCliente] = '" & Str(strRegistro) & "' "
                NoModif
     End Select
   
End Sub

Siempre hay una solución.
:suerte:

81
Visual Basic 6.0 e inferiores / Re: validar ingreso en textbox
« en: Viernes 6 de Junio de 2003, 09:12 »
También puedes usar el control MaskedEditBox, que te permite establecer una máscara de entrada y listo.
:suerte:

82
Por lo que dices el error es "ERROR DE SINTAXIS EN LA CLÁUSULA FROM" , y teniendo en cuenta que ésta es correcta lo único que se me ocurre es que en las propiedades del Adodc tengas puesto como "Tipo de comando", CommandType, el valor adCmdTable o adCmdStoredProc (aunque creo que será adCmdTable) , en cuyo caso no te deja usar SQL. Para porder usar SQL debes poner cuanquier otro valor, se recomienda adCmdText o adCmdUnknown, éste último te permite haver MoveNext..
Si no es eso avisa, que te envío un ejemplo para que compruebes dónde está el error.


:suerte:

83
Visual Basic 6.0 e inferiores / Re: seleccionar fila de datagrid por codigo
« en: Jueves 5 de Junio de 2003, 09:55 »
Si lo que quieres es seleccionar en el Datagrid el registro que está activo en el Adodc, sería:

Me.DataGrid1.SelBookmarks.Add Me.Adodc1.Recordset.Bookmark

Pero si lo que quieres es seleccionar en el Datagrid una fila determinada de la cual sabes la posición
Me.DataGrid1.SelBookmarks.Add Me.DataGrid1.RowBookmark(índice)
Donde índice es un número entero entre 0 y nº de filas -1

:suerte:

84
Visual Basic 6.0 e inferiores / Re: experiencia frustrante....
« en: Jueves 5 de Junio de 2003, 08:42 »
No entiendo porqué te da ese error, si me puedes mandar el código lo miraría a ver si encuntro el error, porque en principio eso no debe pasar.
:question:

85
Si "registro" no es numérico en la BD la cláusula sería:
MICAD = "SELECT * FROM ENTRADAS WHERE REGISTRO='" & Me.txtRegistro.Text & "'"
(Entre comillas simples y sin ningún espacio enblanco en el "=" del where).
Si es numérico:

MICAD = "SELECT * FROM ENTRADAS WHERE REGISTRO=" & Me.txtRegistro.Text
(Sin comillas simples y sin ningún espacio enblanco en el "=" del where.
Si es numérico:
Espero que te sirva.
Por cierto el refresh del datagrid no es necesario.
:suerte:

86
Visual Basic 6.0 e inferiores / Re: CONSULTAS SQL
« en: Miércoles 4 de Junio de 2003, 16:12 »
¿De qué tipo es rdoConDiscover? Si es, como parece por el nombre, una conexión no sirve, el rollback y el commit son del espacio de trabajo, que en RDO es el tipo de datos:
             rdoEnvironment
Yo generalmente utilizo ADO
:suerte:

87
Visual Basic 6.0 e inferiores / Re: experiencia frustrante....
« en: Miércoles 4 de Junio de 2003, 16:08 »
Si el campo es autonumérico o no no afecta para añadirlo. Te paso un ejemplo por si es eso lo que no te sale, si no lo es avisa. (abre el proyecto haciendo doble click sobre el *.vbp)
:suerte:

88
Visual Basic 6.0 e inferiores / Re: CONSULTAS SQL
« en: Miércoles 4 de Junio de 2003, 14:57 »
RollBack y commit funcionan desde VB simepre y cuando el proveedor que utilices las soporte, pero no con ADO, a no ser que lo realices desde SQL.
Estas opciones las tienes en el "Espacio de Trabajo", workSpace, no en la conexión

:suerte:

89
Visual Basic 6.0 e inferiores / Re: experiencia frustrante....
« en: Miércoles 4 de Junio de 2003, 14:52 »
Para lo que quieres hacer te recomiendo que uses SQl.
El la propiedad commandType del Adodc le pones el valor "adCmdUnknown" o "adCmdText", y como texto de la consulta le pasas SQL:
"Select * from tabla where criterio/s"
Cuando quieres que se modifique la condición pones:
Adodc1.Recordsource="Select * from tabla...."
Adodc1.Refresh
Y con esto ya se actualiza sólo el datagrid
Espero que te sirva
:suerte:

90
Visual Basic 6.0 e inferiores / Re: calendario
« en: Miércoles 4 de Junio de 2003, 12:45 »
No entiendo muy bien tu pregunta. ¿Puedes explicarte un poco más?. ¿a qué te refieres con "sacar el control calendario?
:question:

91
Visual Basic 6.0 e inferiores / Re: experiencia frustrante....
« en: Miércoles 4 de Junio de 2003, 08:46 »
Después de eliminar el filtro con adFilterNone debes hacer un Refresh al Adodc (Adodc1.Refresh) y se deberían actualizar los datos del control enlazado.
:suerte:

92
Perdona es que hice "corta y pega" de un código mío y no me di cuenta. El elemento dteDatos es de tipo DataEnvironment.
Te envío dos ejemplos, la carpeta "Datagrid1" enlaza por código el datagrid a un control Adodc, y "datagrid2" lo hace a través de un Dataenvironment.
Los dos son válidos, pero es mejor y más recomendable el del Dataenvironment.
Si tienes alguna duda avisa.
La base de datos está en el directorio por defecto, así que abre los proyectos haciendo doble click en el *.vbp

:suerte:

93
Haz la consulta teniendo en cuenta la codición:
dteDatos.Commmands("elquesea").CommandText= "Select * from Tabla Where condicion"
Set Datagrid1.Datasource=dteDatos.Commands("elquesea").execute
Para pasarle una cláusula SQL a un command debes decirle en las propiedades del Command que el origen de datos es una consulta SQL.

:suerte:

94
Para cargar un datagrid se debe asignar valor a la propiedad datasource:
Set datagrid1.datasource=adodc1
donde Adodc1 es el control de datos.
Si quieres lo puedes conectar a un command de un Dataenvironment,y sería:
Set datagrid1.datasource=dteDatos.command("elquesea").execute
:suerte:

95
MS Access / Funcion Agregar Fecha
« en: Lunes 2 de Junio de 2003, 16:43 »
Igual es demasiado tarde y no te sirve de nda, pero para que te lo sume al año debes poner "yyyy"
:suerte:

96
Visual Basic 6.0 e inferiores / Re: Consulta entre 2 fechas
« en: Lunes 2 de Junio de 2003, 12:31 »
Con esta cláusula serviría:
dim cad as string
cad = "Select * from Tabla where fecha betwen #"  & textofecha1.text & "# and #" & textofecha2.text & "#"
se lo asignas a la consulta y está

:suerte:

97
Para hacer eso puedes usar el control Timer. A este control le estableces en la propiedad "Interval" un valor en milisegundos y el código que escribas en el evento  "Timer" se ejecutará cada vez que transcurra ese tiempo.
Te mando un pequeño ejemplo, que espero que te sirva.

:suerte:

98
Visual Basic 6.0 e inferiores / QUE SIGNIFICA FILEDATA NOTFOUND
« en: Viernes 30 de Mayo de 2003, 11:10 »
Ese error significa que no encuentra la base de datos o la tabla a la que estas intentando acceder
:suerte:

99
Visual Basic 6.0 e inferiores / Re: Enigma en el Keypress...
« en: Miércoles 28 de Mayo de 2003, 14:41 »
¿Te sirve esto?:
'En diseño limita a 2 el nº máximo de caracteres(maxlength=2)
Private Sub Text1_Change()
If Text1.Text = "" Then Exit Sub
If Not IsNumeric(Text1.Text) Then
    MsgBox "error"
    Text1.Text = ""
    Exit Sub
End If
If (Len(Text1.Text) = 1 And Text1.Text <> "1") Or _
  (Len(Text1.Text) = 2 And CInt(Text1.Text) < 11 _
  Or CInt(Text1.Text) > 14) Then
    MsgBox "error"
    Text1.Text = ""
    Exit Sub
End If
End Sub
:suerte:

100
Visual Basic 6.0 e inferiores / Re: VB con Word
« en: Martes 27 de Mayo de 2003, 18:55 »
Muchas gracias a los dos. Me habéis resulto el problema.
:jumpie:

Páginas: 1 2 3 [4] 5 6 7