|
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
76
« en: Jueves 12 de Junio de 2003, 10:16 »
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.
77
« en: Miércoles 11 de Junio de 2003, 16:44 »
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
78
« 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
79
« en: Viernes 6 de Junio de 2003, 12:33 »
Shell cadena,tipoVentana cadena==>Cadena de caracteres con el nombre del programa y los argumentos.
80
« 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.
81
« 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.
82
« en: Viernes 6 de Junio de 2003, 09:06 »
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.
83
« 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
84
« 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.
85
« en: Jueves 5 de Junio de 2003, 08:37 »
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.
86
« 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
87
« 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)
88
« 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
89
« 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
90
« 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?
91
« 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.
92
« en: Martes 3 de Junio de 2003, 18:56 »
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
93
« en: Martes 3 de Junio de 2003, 15:44 »
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.
94
« en: Lunes 2 de Junio de 2003, 18:33 »
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
95
« 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"
96
« 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á
97
« en: Lunes 2 de Junio de 2003, 11:53 »
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.
98
« 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
99
« 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
100
« en: Martes 27 de Mayo de 2003, 18:55 »
Muchas gracias a los dos. Me habéis resulto el problema.
|
|
|