|
|
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 - aura
Páginas: [1]
1
« en: Sábado 11 de Septiembre de 2004, 13:02 »
Hola puedes comprobar en el ftp, creo que hay un ejemplo completo para el manejo de puertos serie, configuracion, envio y recepcion...
Espero que sea de tu ayuda....
2
« en: Sábado 11 de Septiembre de 2004, 10:56 »
Estima amigo:
El Crystal Report es una aplicacion de desarrollo de impresiones externa, aunque su utilizacion se realiza sobre todo para apoyar a programas realizados en vb y .net, esta aplicacion esta abierta a ser utilizada con cualquier lenguaje.
La verdad es que es bastante potente, y te permite realizar unos informe muy profesionales, auque yo tengo la version 8 y tengo algunos problemas al utilizar este con distintos ordenadores con distinta version de sistema operativo.
Es de la casa Seagate software, y creo que en su pagina podras encontrar informacion de donde adquirir este software....
Espero que esto te sea de ayuda...
3
« en: Miércoles 24 de Marzo de 2004, 10:56 »
Hola Aldur: La verdad es que a la hora de trabajar con datatagrid, hay tantas formas de hacerlo, como programadores existen en este foro, de todas formas yo te envio un codigo que tengo hecho... Private Sub CargaDatosGrid(Selection as string, NmFichero as string, Condicion1 as string, Condicion2 as string, Condicion3 as string) Dim SqlGrid As String Dim nCon As Integer Dim TextoGrid As String GridBusca.Rows = 1 GridBusca.Cols = NumColumnas + 1 SqlGrid = "" SqlGrid = SqlGrid + " SELECT " + Selection + " FROM " + NmFichero If Condition1 <> "" Then SqlGrid = SqlGrid + " WHERE " + Condition1 End If If Condition2 <> "" Then SqlGrid = SqlGrid + " AND " + Condition2 End If If Condition3 <> "" Then SqlGrid = SqlGrid + " AND " + Condition3 End If Set TbGrid = Conect.Execute(SqlGrid) 'Tbgrid = Recordset 'Conect = Connection Set GridBusca.DataSource = TbGrid CargaPosiciones End Sub
Este Codigo es de un grid de consulta que se va cambiando, dependiendo de la posicion del usuario, y la verdad es que funciona bastante bien, espero que te pueda ayudar... De todas formas y como ves yo no utilizo la propiedad Refresh, y me funciona bien espero que esto te pueda ayudar ...
4
« en: Martes 23 de Marzo de 2004, 18:03 »
Estimados amigos:
Gracias por vuestra colaboracion, he conseguido realizar lo que queria, el problema residia en el evento oncomm, asi he añadido una linea antes de igual a la variable valor el contenido del mscomm1.input.
Lo que he introducido en la linea nueva es la funcion DoEvents, asi los tiempos de respuesta de la balanza se coordinan con los tiempos de respuesta del ordenador, puesto que este codigo me funcionaba en algunos equipos y en otros no ...
Espero que esta experiencia sea util para ustedes...
5
« en: Lunes 22 de Marzo de 2004, 10:25 »
Hola:
Espero que esto te ayude, segun he entendido, si lo que quieres es que el datagrid refresce al cambiar el datasource asignado, pues existe un evento que se llama refresh, que refresca todas los cambios que se han realizado en el datasource
Espero que esto te pueda ayudar ...
6
« en: Lunes 22 de Marzo de 2004, 10:04 »
Gracias ebolo, por el codigo que me has mandado, mas o menos tengo solucionado ya el problema, lo unico que me falta es que me den los codigos que tengo que mandar a las balanzas, vamos a ver si el proveedor me los da...
De todas formas os agradezco a todos el interes por este tema y espero poder ayudares alguna vez igual que lo habeis echo vosotros a mi...
7
« en: Viernes 19 de Marzo de 2004, 10:45 »
Hola: Bueno referente al readkey, en VB, las cosas son distintas, tu puedes poner en un formulario una propiedad que se llama KeyPreview = True, esto hara que cada tecla que pulses cuando el formulario esta activo pase primero por los tres eventos del key, del formulario, keydown, keypress y keyup. Respecto a manuales, tienes algunos en el ftp (existe un hilo que donde te dice como entrar) o si prefieres en la web http://www.lawebdelprogramador.com/cursos/...to=Visual+Basic encontraras un monton de manules bastante practicos...
8
« en: Jueves 18 de Marzo de 2004, 12:42 »
Hola a todos:
La verdad es que es un tema peliagudo eso de modificar las tablas fuera del servidor, por que a la hora de actualizarlas es un coñazo.
Las soluciones anteriores estan muy bien pero algo engorrosas, tanto hacer y restaurar copias de seguridad, y lo que implica en soporte...
Yo he pensado una solucion, no se si te gustara, existe una sentencia que se llama ALTER TABLE, la cual te permite añadir, eliminar o modicar columnas de las tablas, la verdad es que es muy extensa, puedes verla en la ayuda del SQL, viene muy bien explicada...
Tras esto lo que tendrias que hacer es, una vez terminado el finde, solo crear una secuencia de comando donde cogerias las tablas, una vez echo esto el lunes en otra base de datos madre, ejecutarias esta secuencia de comandos, asi tendrias la misma estructura de tu base de datos (con los cambios del finde) pero sin datos.
Ahora tienes dos opciones:
1º Despues tendrias que hacer un pequeño programa en VB en recorra las tablas de las bases de datos y las vaya comparando y genere una sentencia SQL para hacer los cambios oportunos en tu base de datos actual.
2º Existe una tarea en SQL, que es exportar datos, solo tendrias que exportar los datos de la bd con datos a la bd madre, y tras esto cambiarle el nombre a las tablas (una opcion no tan profesional como la primera, pero tambien es util)
Espero se de te ayuda
9
« en: Jueves 18 de Marzo de 2004, 12:13 »
Buenas:
Perdona mi ignoracia, pero que hace la funcion readkey en pascal
10
« en: Jueves 18 de Marzo de 2004, 12:08 »
Hola a todos, yo utilizo el evento dblclick del datagrid, la posicion del grid en la que se encuentra el usuario la puedas sacar con columna= datagrid1.col fila=datagrid1.row
Si utilizas el evento MouseDown, MouseUp o el Click, te da la posicion que esta antes de cambiar de posicion, ademas si utilizas el dblclick, no limitas al usuario a que cada vez que toque con el raton el grid, aparezca un formulario, si no que cuando realmente quiera que aparezca el formulario que pulse doble click, asi con el click le permites trabajar con el grid. Espero no ser demasiado extenso y que te sean de ayuda, en todo caso solo son consejos y las decisiones finales solo las toma el programador...
11
« en: Jueves 18 de Marzo de 2004, 11:46 »
Muchas gracias el mango80, de todas formas he subido al ftp, un ejemplo del codigo que he enviado, para quien este interesado en empezar a trabajar con la comunicaciones con puertos....
12
« en: Miércoles 17 de Marzo de 2004, 11:37 »
Si estas utilizando Microsoft Sql-Server 2000, tanto la version standar como la version personal, no deberia de darte ningun problema, solo seguir el asisntente para la instalacion y va de maravilla, yo lo he instalado en varios XP y nunca he tenido ningun problema, que error te da...
13
« en: Miércoles 17 de Marzo de 2004, 11:34 »
Hola Elisa, vamos a ver si esto te vale, de tus tres tablas te saco el cod_clie, el nombre_cri y el nombre_plan
SELECT BITAC.COD_CLIE, CRIADERO.NOMBRE_CRI, PLANTA.NOMBRE FROM BITAC INNER JOIN CRIADERO ON BITAC.COD_TIPCLI=CRIADERO.COD_TIPCLI INNER JOIN PLANTA ON BITAC.COD_TIPCLI=PLANTA.COD_TIPCLI
WHERE BITAC.BITAC=@BIT
Espero que esta sentencia te sea de utilidad
14
« en: Miércoles 17 de Marzo de 2004, 11:15 »
Si lo que quieres es saber en todo momento si tu ventana, o cualquier control tiene en ese momento el foco activo, tienes varias formas de hacerlo: La primera es recorriendo en un for each cada uno de los controles, existe una propiedad que te refleja si esta activo, pero si tienes muchos controles en un formulario, pues como que no es muy practico. La segunda opcion es utilizar una propiedad que hay en todos los controles .TAG, es como una varible variant donde puedes almacernar lo que quieras, eso combinado con dos eventos GOTFOCUS Y LOSTFOCUS, podras saber si tu ventana esta activa en todo momento: Option Explicit Private Sub Form_GotFocus() Form1.Tag = 1 End Sub Private Sub Form_Load() Form1.Tag = 0 End Sub
asi con una comprobacion If Form1.Tag = 1 then msgbox "Ventana Activa" elseif form1.Tag = 0 then msgbox "Ventana inactiva" end if Espero que te sea de ayuda
15
« en: Miércoles 17 de Marzo de 2004, 10:39 »
Hola:
Supongo que cuando te refieres a tablas de fox-pro, estas hablando de tablas Paradox, de todos modos lo que yo haria para conectar con ellas, seria atraves de un ODBC de sistema.
Busca en tu sistema el ejecutable odbcad32.exe, ahi podras definir el tipo de tabla de conexion, asi a la hora de conectar un ADOdb de VB, solo tendras que especificar el nombre del ODBC de sistema.
Espero que este te sea de ayuda.
16
« en: Miércoles 17 de Marzo de 2004, 10:30 »
Estimados amigos: Estoy trabajando en un programa de comunicaciones (de dispositivos de peso), con puertos serie, y necesito algunas ideas, envio codigo para que veais lo que hasta ahora he hecho, me gustaria profundizar mas en este tema, pero desconozco su funcionamiento al completo Option Explicit Dim Cadena As String Private Sub Conectar_Click() Dim Velocidad As String, Paridad As String, Bits As String, Parada As String 'comprueva que el puerto este cerrado para poder abrirlo If MSComm1.PortOpen = False Then 'determina el puerto que hemos seleccionado If Combo1.ListIndex = 0 Then MSComm1.CommPort = 1 Else MSComm1.CommPort = 2 End If 'determina: 9600-Velocidad en Baudios, N-No utiliza ninguna paridad, '8-Cantidad de bits de envio y recepcion por paquete, '1-Determina los bits de parada Velocidad = Trim(TxVelocidad.Text) Paridad = Trim(TxParidad.Text) Bits = Trim(TxBits.Text) Parada = Trim(TxParada.Text) MSComm1.Settings = Velocidad & "," & Paridad & "," & Bits & "," & Parada 'lee todo el buffer de entrada para que quede vacio MSComm1.InputLen = 0 'Abre el puerto seleccionado MSComm1.PortOpen = True Me.Caption = "Conectado por el puerto " & MSComm1.CommPort End If End Sub Private Sub Desconectar_Click() If MSComm1.PortOpen Then 'cierra el puerto MSComm1.PortOpen = False Me.Caption = "Desconectado" End If End Sub Private Sub Enviar_Click() 'envia el texto escrito. MSComm1.Output = TextoEnviar.Text & vbCr 'coloca el texto que enviamos en la pantalla Texto.Text = Texto.Text & vbCrLf & "<Ordenador 1>" & TextoEnviar.Text TextoEnviar.SetFocus End Sub Private Sub Form_Load() Combo1.AddItem "Com1" Combo1.AddItem "Com2" Combo1.ListIndex = 0 End Sub Private Sub Form_Unload(Cancel As Integer) Desconectar_Click End Sub 'El evento OnComm se genera siempre que cambia el valor de la propiedad 'CommEvent e indica que se ha producido un evento o un error en la comunicación. Private Sub MSComm1_OnComm() Dim i As Integer Dim Valor As String 'recoge el valor de entrada Valor = MSComm1.Input 'busca la posicion del caracter de salto de linea i = InStr(Valor, Chr(13)) 'si no hay ningun salto de linea, quiere decir que la informacion que recibe 'es parte de una cadena recibida con anterioridad. If i = 0 Then Cadena = Cadena & Valor Else Cadena = Cadena & Left(Valor, i - 1) Texto.Text = Texto.Text & vbCrLf & "<Ordenador 2>" & Cadena Texto.SelStart = Len(Texto.Text) Cadena = "" End If End Sub
[/QUOTE]
Páginas: [1]
|
|
|
Mostrar Mensajes
