|
|
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 - DiabloRojo
176
« en: Miércoles 20 de Octubre de 2004, 21:08 »
Qué tal?
Pues no veo la cláusula FROM en ninguna parte de tu consulta. Imagino que debe ser eso. Por cierto, ¿con qué manejador de base de datos estás trabajando?.
DiabloRojo
177
« en: Miércoles 20 de Octubre de 2004, 18:48 »
Hola.
La consulta tendría esta forma:
INSERT INTO NombreTabla ( lista campos) SELECT lista tabla.campo FROM lista tablas WHERE condiciones
Por ejemplo:
INSERT INTO resultados (Nombre, Apellido, NotaF) SELECT Alumno.Nombre,Alumno.Apellido,Notas.NotaF FROM Alumno,Notas WHERE Alumno.Id=COD and Notas.Id=COD
178
« en: Miércoles 20 de Octubre de 2004, 18:26 »
Hola MindEye.
Estuve releyendo con más detenimiento tu planteamiento. Te recomiendo que quites ese campo (usuarios) de la tabla y que crees otra tabla con los campos siguientes:
IdRegistro, IdUsuario, FechaAcceso y HoraAcceso.
(yo llamo a esta tabla SegAcces)
Estoy suponiendo que tienes una tabla donde almacenas los datos de los usuarios y que cuenta con un campo IdUsuario, así mismo, que en la tabla que mencionas posees un campo que identifique a cada registro y que se llame IdRegistro. Explico:
-IdRegistro sería el identificador del registro al cual ha accedido un usuario -que se encuentra en tu tabla Tabla-.
-IdUsuario pues el identificador del usuario -que estaría en una hipotética tabla Usuarios-.
-FechaAcceso sería la fecha en la cual se realizó el acceso al registro -que pertenece a la tabla que te aconsejo crees-.
-HoraAcceso la hora en la cual se realizó el registro -que pertenece a la tabla que te aconsejo crees-.
Por supuesto tu podrás añadir más campos en esta tabla según los necesites.
Imagino que en algún lugar de tu aplicación posees alguna forma para seleccionar a un usuario de ahí tomarás el valor "Valor" de IdUsuario y puedes hacer una consulta como la que sigue:
SELECT * FROM Tabla WHERE IdRegistro IN (SELECT IdRegistro FROM SegAcces where IdUsuario<>Valor)
otra forma sería:
SELECT * FROM Tabla WHERE IdRegistro NOT IN (SELECT IdRegistro FROM SegAcces where IdUsuario=Valor)
Si te das cuenta esta nueva tabla es un enlace entre los usuarios y los registros.
Espero haber sido suficientemente claro y haber ayudado en algo.
DiabloRojo
179
« en: Martes 19 de Octubre de 2004, 13:27 »
Ok. Pensé que usuarios era otra tabla. Si puedes mandar la estructura de las tablas involucradas tal vez sea más fácil detectar el error o ver alguna forma de resolver tu problema.
La verdad no entiendo muy bien... ¿Dices que en el mismo campo guardas todos los datos de las personas que han visitado ese registro?. Si es así puedes tener un error de Normalización... Recuerda que los datos contenidos en cada campo deben ser atómicos (algo así como partículas individuales e independientes).
Pero lo que te dije antes, manda las estructuras de la/las tabla(s) involucrada(s) para poder ver mejor lo que está pasando.
DiabloRojo
180
« en: Lunes 18 de Octubre de 2004, 21:21 »
Qué tal MindEye?
Creo que puedes hacerlo de dos formas:
1.- SELECT * FROM tabla WHERE [Id Usuario] <> Valor
2.- SELECT * FROM tabla WHERE [Id Usuario] NOT IN (Valor)
Donde Valor es el valor que quieres que tu búsqueda omita. Prueba y dime si alguna de las dos formas te funcionó.
NOTA: La cláusula IN arroja como resultado un número n de registros cuyo criterio de búsqueda es un CONJUNTO de valores proporcionados por ti. Por ejemplo:
SELECT * FROM tabla1 WHERE pais IN ('EEUU','MEXICO','CANADA')
Devuelve aquellos registros cuyo campo país sean EEUU, MEXICO o CANADA.
DiabloRojo
181
« en: Lunes 18 de Octubre de 2004, 20:48 »
Qué tal mi69?
La verdad no estoy muy al corriente con ADO pero lo que veo con tu código es que la sentencia SQL que utilizas la almacenas en una variable de tipo String (que precisamente llamas SQL) y no la vinculas con ninguno de los objetos proporcionados por ADO; mediante los métodos Open, Execute o CommandText, por ejemplo.
Espero haberte ayudado en algo.
DiabloRojo
182
« en: Lunes 18 de Octubre de 2004, 20:38 »
Qué tal Gallagher?
Supongo que puedes quitar el MDAC (Microsoft Data Access Componets) con el Agregar y Quitar programas que aparece en el panel de control.
Puedes indicar cuales son las diferencias entre el MDAC 2.8 y el MDAC 2.5?
DiabloRojo
183
« en: Domingo 17 de Octubre de 2004, 15:00 »
Hola foro.
Pues mi consulta es esa... ¿Dónde puedo conseguir manuales o tutoriales del CR9?.
De antemano gracias por la ayuda.
DiabloRojo.
184
« en: Sábado 16 de Octubre de 2004, 13:37 »
Muchas gracias avaguin. Procederé a instalarlo entonces.
185
« en: Sábado 16 de Octubre de 2004, 04:39 »
Qué tal foro?
Quisiera saber si se puede utilizar el crystal Reports 9 con Visual Basic 6.0 ya que he estado viendo los requisitos de sistema que pide y veo que hace referencia es a Visual Basic.Net. ¿Hay alguna forma de usarlo con VB6.0?
Saludos.
DiabloRojo.
186
« en: Miércoles 6 de Octubre de 2004, 12:59 »
Hola migue.
Ya probaste utilizando la función Shell de VB? Creo que también te serviría la función API ShellExecute.
Espero haberte ayudado algo.
DiabloRojo.
187
« en: Lunes 20 de Septiembre de 2004, 21:55 »
Qué tal redram? Una forma en la que puedes hacer lo que dices es usando un procedimiento como el siguiente: Private Sub MuestraForm(NomForm As String) Dim MiForm As form ' Select Case NomForm Case "frmSegundo" Set MiForm = New frmSegundo Case "frmTercero" Set MiForm = New frmTercero Case "frmCuarto" Set MiForm = New frmCuarto End Select Load MiForm MiForm.Show End Sub
En el código anterior se supone que existe en el proyecto tres formularios llamados (propiedad name): frmSegundo, frmTercero y frmCuarto. Dependiendo del caso podrías impedir que se cargue un formulario más de una vez. Espero que te sea de utilidad. DiabloRojo
188
« en: Jueves 16 de Septiembre de 2004, 15:07 »
Hola crow7827.
En los discos de instalación del VB puedes encontrar el Crystal Reports 4.5 -si mal no recuerdo en el disco 3-. No es lo mas actual pero por algún lado hay que empezar ¿no?.
DiabloRojo
189
« en: Miércoles 15 de Septiembre de 2004, 14:53 »
sirespi. Primero debo decirte que en el ejemplo anterior que te dí hay un error NO debes usar la función Now sino la función Time. Aquí te mando un ejemplo de cómo hacer para que el Beep suene a una hora determinada. Crea un proyecto nuevo añade dos TextBox (Text1 y Text2), un Label, dos CommandButton y un control timer. Copia el siguiente código: ' Sección general de declaraciones Dim HorInicio As Date Dim HorFinal As Date Dim Sonar As Boolean Dim hora As Date Private Sub Command2_Click() 'Detener Sonar = False End Sub Private Sub Command1_Click() 'Aceptar ' ' Los datos introducidos en Text1 y Text2 ' deben tener el formato hh:mm:ss HorInicio = CDate(Text1.Text) ' HorFinal = CDate(Text2.Text) ' Sonar = True ' End Sub Private Sub Form_Load() Timer1.Interval = 2000 'Por lo general se usa 500 Timer1.Enabled = True End Sub Private Sub Timer1_Timer() Label1.Caption = Str(Time) ' hora = CDate(Format(Time, "hh:mm:ss")) ' Para eliminar la partícula a.m/p.m ' If (Sonar = True) Then If (hora >= HorInicio And hora <= HorFinal) Then Beep 'Print "Hola" End If End If End Sub
Comentarios: -Por cuestiones de practicidad no incluyo validaciones así que te debes asegurar de proporcionar datos correctos. -Text1 corresponde a la hora en que deseas que el Beep comience a sonar. -Text2 corresponde a la hora en que deseas que el Beep deje de sonar. -Text2 debe ser mayor a Text1. -Command2 detiene el Beep. -El control timer se utiliza para realizar o ejecutar fragmentos de código en períodos regulares de tiempo (aunque en la práctica el timer no es muy exacto). Estos períodos regulares se establecen con la propiedad interval. Si por ejemplo colocas HorInicio = 08:00:00 y HorFinal = 08:15:00 el Beep sonará repetidamente hasta que la condición (Hora>=HorInicio And Hora<=HorFinal) sea False, es decir, durante 15 min. Bueno espero que te sea de utilidad. Suerte. DiabloRojo
190
« en: Martes 14 de Septiembre de 2004, 15:02 »
Qué tal sirespi? Interesante tu planteamiento. Me tomo la libertad de darte un par de ideas que tal vez podrían funcionar: -Podrías almacenar las fechas en la que deseas que ocurran determinados eventos (o que se ejecute algún código) en una base de datos. Así por ejemplo, podrías tener en tu tabla los campos Fecha, HoraInicio y HoraFinal -podría haber alguno como TipoEvento y/o Descripción, depende de lo que desees hacer-. -Luego en el evento Load de tu aplicación podrías consultar dicha tabla y comparar las fechas con la fecha actual, de ser iguales "bajarías" la información de los campos HoraInicio y HoraFinal -y cualquier otro campo- a determinadas variables. Incluso podrías introducirlas en una colección, por aquello de si tienes más de una "programación" para el mismo día. -Finalmente, puedes hacer lo que te indica ebolo en su post. Algo así como: If now>=HoraInicial and now<=HoraFinal Then Beep End If
Bueno sirespi, sólo son unas ideas. Espero te sean de alguna utilidad. Suerte. DiabloRojo
191
« en: Viernes 10 de Septiembre de 2004, 21:03 »
Tienes toda la razón Juanolo. Todo comentario y sugerencia es bien recibido.
Gracias por tomarte el tiempo.
DiabloRojo
192
« en: Viernes 10 de Septiembre de 2004, 20:22 »
Qué tal harol? Si lo que deseas es llamar al procedimiento desde cada ventana lo que puedes hacer es pasar el nombre del form como parámetro al procedimiento. Te coloco un ejemplo hecho en VB6.0 y tu te encargas de modificarlo según te convenga: El procedimiento: Public Sub AgregarControl(FormNombre As String) Dim i As Integer 'contador Dim MiControl As CommandButton ' Tipo de control For i = 0 To VB.Forms.Count - 1 'Busca en cada elemento de la colección Forms If (VB.Forms(i).Name = FormNombre) Then 'Indica a qué form se agrega el control Set MiControl = VB.Forms(i).Controls.Add("VB.CommandButton", "Command2") MiControl.Caption = "Agregado" MiControl.Visible = True End If Next i End Sub
Llamada al procedimiento (esto se hace desde cada ventana): Private Sub Command1_Click() AgregarControl Me.Name 'Llama al procedimiento y le pasa como parámetro el nombre del form que realiza la llamada End Sub
Espero que te ayude. Suerte. DiabloRojo
193
« en: Viernes 10 de Septiembre de 2004, 02:27 »
Qué tal harol?
Coméntame cómo llamas o deseas llamar al procedimiento. Lo llamas desde cada form? o lo llamas desde un form específico y quieres que te agregue los controles a los demás?
DiabloRojo
194
« en: Viernes 10 de Septiembre de 2004, 02:20 »
Hola Kev.
Te agradezco la recomendación de validar las entradas. Como solo estoy practicando y soy el único que utilizará la aplicación no consideré necesario incluir validaciones. Lo que sí me extraña es que me esté me guardando con el formato mm/dd/yyyy siendo que mi computador está configurado al español. Por cierto, hay alguna forma de que aparezca en mi MSHFlexGrid el campo con el formato dd/mm/yyyy aunque en la tabla esté almacenado como mm/dd/yyyy?.
Bueno, muchas gracias por los comentarios y consejos.
DiabloRojo
195
« en: Jueves 9 de Septiembre de 2004, 21:02 »
Qué tal cpmario? Gracias por contestar. Ya resolví el problema y venía a contestar cuando ví tu respuesta. La solución es la siguiente: Dim inicial As String Dim final As String inicial= "#" & txtFechaInicial.Text & "#" final= "#" & txtFechafinal & "#" cmdCriterio.CommandText="SELECT cedula,nombre,fechaNac FROM tabla1 WHERE fechaNac> " & inicial & " And fechaNac < " & final
Según entiendo, las variables "inicial" y "final" NO tienen que ser de tipo Date ya que la propiedad CommandText es precisamente una cadena de caracteres (esto explica el error de tipos). Luego cuando se abre el recorset (con Open) ADO se encarga de convertir lo que contenga esta cadena -si es el caso- en una instruccuón SQL. Bueno, eso era todo. Gracias a todos los que respondieron y a los que se tomaron el tiempo de leer mi duda. Suerte. DiabloRojo
196
« en: Jueves 9 de Septiembre de 2004, 02:15 »
Qué tal Kev? Gracias por responder. Hago lo que me dices y me sigue mostrando el mismo error. Incluso he añadido la función CDate() a las líneas: inicial=CDate(txtFechaInicial.text) final=CDate(txtFechaFinal.text)
Y me muestra el mismo error. Añadí un control ADODC y un MSHFlexGrid para ver todos los registros y me doy cuenta que a pesar de haber colocado el campo fechanac de tipo fecha/hora en formato dd/mm/yyyy (fecha corta) los registros aparecen con el formato mm/dd/yyyy ¿tendrá esto que ver con la aparición del error?. Agradezco toda ayuda. DiabloRojo
197
« en: Miércoles 8 de Septiembre de 2004, 23:21 »
Qué tal harol? Si tu form se llama FrmAbout creo deberías usar: Cuando usas: lo que haces es crear una nueva instancia de tu formulario FrmAbout. Suerte.
198
« en: Miércoles 8 de Septiembre de 2004, 18:07 »
Qué tal amigos del foro? Soy novatillo en la programación de bases de datos y ADO así que para practicar un poco decidí crearme, en access, una base de datos super simple de una sola tabla. Dicha tabla contiene 3 campos: cedula,nombre y fechanac cuyos tipos son texto, texto y fecha/hora respectivamente. El campo fechanac tiene un formato fecha corta del tipo 19/06/1994. Para trabajar sobre la base de datos uso una referencia a ADO 2.0 y utilizo los tres objetos disponibles, es decir, un objeto conexion, un objeto command y un objeto recorset. Ahora bien lo que deseo hacer es que el usuario pueda colocar dos fechas y que se devuelva en el recorset todas las fechas que estén dentro de dicho intervalo. Uso un código similar a este: 'En la parte de declaracione generales Dim cnnMiCon As ADODB.Connection Dim cmdCriterio As ADODB.Command Dim rstTabla As ADODB.Recordset ' ' ' 'En el botón de búsqueda Private Sub Buscar() Dim inicial As Date Dim final As Date ' If txtFechaInicial.Text <> "" And txtFechaFinal.Text <> "" Then ' Set rstTabla = Nothing Set cmdCriterio = Nothing Set cnnMiCon = Nothing ' inicial = txtFechaInicial.Text final = txtFechaFinal.Text ' Set cnnMiCon = New ADODB.Connection Set cmdCriterio = New ADODB.Command Set rstTabla = New ADODB.Recordset ' cnnMiCon.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=C:\WINDOWS\Escritorio\ProyectoFechas\fechas97_1.mdb" cnnMiCon.Open ' cmdCriterio.CommandText = "SELECT cedula,nombre,fechaNac FROM tabla1 WHERE fechaNac>'" & inicial & "'" And fechaNac < "'" & final & "'" ' rstTabla.Open cmdCriterio.CommandText, cnnMiCon, adOpenDynamic ' rstTabla.MoveFirst txtCedula = rstTabla.Fields("cedula").Value txtNombre = rstTabla.Fields("nombre").Value txtFecha = rstTabla.Fields("fechaNac").Value End If End Sub
Ahora bien, cuando corro el programa introduzco las fechas y pulso el botón buscar obtengo el error 13 "No coinciden los tipos" en la línea: cmdCriterio.CommandText = "SELECT cedula,nombre,fechaNac FROM tabla1 WHERE fechaNac>'" & inicial & "'" And fechaNac < "'" & final & "'"
Si coloco directamente en el código por ejemplo: cmdCriterio.CommandText = "SELECT cedula,nombre,fechaNac FROM tabla1 WHERE fechaNac > #1/1/1960# AND fechaNac < #1/1/1991#"
No obtengo ningún error. Necesito dos cosas: 1.- Estoy implementando bien el código para trabajar con ADO? 2.- Cómo corrijo el error de tipos? De antemano muchas gracias por la ayuda. DiabloRojo
199
« en: Viernes 27 de Agosto de 2004, 16:58 »
Qué tal sirespi? Creo que el error está en la forma en que asignas cada elemento de la variable bin a la matríz. Tu colocas: For x = 1 To 5 Step 1 var(x - 1) = Mid(bin, x, 1) Next x
Si por ejemplo bin="11" (3 en decimal) tendrías como resultado: 1 1 0 0 0 (24 en decimal) que es muy distinto en binario a esto: 0 0 0 1 1 (3 en decimal) Aquí te envío un ejemplo basado en tu código: Private Sub Form_Load() Dim var(15) As Integer Dim x As Integer Dim Valor As Long Dim bin As String Dim potencia Dim Agregado As String bin = "11111" 'bin = "11" 'bin = "110" 'bin = "11110000111001" 'bin = "1000000000000000" Agregado = AgregarCero(bin) For x = 16 To 1 Step -1 var(x - 1) = Val(Mid(Agregado, x, 1)) 'Notar el uso de la función val Next x Valor = 0 'For x = 16 To 1 Step -1 For x = 1 To 16 ' es lo mismo que lo anterior Valor = Valor + (var(x - 1) * (2 ^ (16 - x))) Next x Text1.Text = Valor End Sub Private Function AgregarCero(NumBin As String) As String Dim longitud As Integer Dim ParteNueva As String Dim NuevoNum As String Dim k As Integer longitud = Len(NumBin) For k = 1 To 16 - longitud ParteNueva = ParteNueva & "0" Next k NuevoNum = ParteNueva + NumBin AgregarCero = NuevoNum End Function
Bueno, espero que esto te resulte de utilidad. Revísalo y luego me dices. Suerte.
200
« en: Miércoles 25 de Agosto de 2004, 01:55 »
Hola.
El control del cual hablas se llama TabStrip y para poder utilizarlo debes agregar el Microsoft Windows Common Controls 6.0 ó 5.0. Sobre cómo utilizarlo yo tampoco tengo idea jeje. Espero haberte ayudado en algo.
Suerte.
|
|
|
Mostrar Mensajes
