• Viernes 19 de Abril de 2024, 01:27

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.


Temas - MindEye

Páginas: 1 2 [3] 4 5
51
Yo pongo en un modulo esto :

Public Const RSP_SIMPLE_SERVICE = 1
Public Const RSP_UNREGISTER_SERVICE = 0

Declare Function GetCurrentProcessId Lib "kernel32" () As Long
Declare Function RegisterServiceProcess Lib "kernel32" (ByVal dwProcessID As Long, ByVal dwType As Long) As Long

Public Sub HideApp(Hide As Boolean)
Dim ProcessID As Long
ProcessID = GetCurrentProcessId()

On Error Resume Next

If Hide Then
   retval = RegisterServiceProcess(ProcessID, RSP_SIMPLE_SERVICE)
Else
   retval = RegisterServiceProcess(ProcessID, RSP_UNREGISTER_SERVICE)
End If
End Sub

 - Pero me da error, dice que no encuentra en metodo.

 - Por favor, necesito ayuda . . .

52
Visual Basic 6.0 e inferiores / Como Enviar Y Recibir Un Archivo Por Winsock
« en: Martes 2 de Marzo de 2004, 18:46 »
- Me podria alguien mandar un ejemplo de como se puede enviar un archivo por el winsock, es que no me sale, siempre me pierde datos, y tiene que ser porque lo estoy haciendo mal.

 - Gracias a todos.

53
Visual Basic 6.0 e inferiores / Problema Con Sql
« en: Jueves 26 de Febrero de 2004, 17:08 »
- Uso esta sentencia para filtrar los datos que esten marcados como verdadero, y ademas, que esten entre las fechas indicadas, pero no me funciona.

alguien ve donde esta el fallo.

Gracias.

SQL = "SELECT Cantidad as Cant, (Format(PrecioTotal,'0.00')) as [Total Ingresos], Descripcion,Hora,Puesto,Vendedor,Fecha FROM LineaVenta WHERE Venta=True Or Pago=True or VentaDesc=True and Fecha BetWeen #" & Format(FDesde(0).Text, "mm/dd/yyyy") & "# and #" & Format(FDesde(1).Text, "mm/dd/yyyy") & "# ORDER BY Fecha, Hora DESC"

54
Visual Basic 6.0 e inferiores / Listar Los Puertos Del Equipo
« en: Jueves 19 de Febrero de 2004, 02:53 »
- Como puedo obtener una lista de todos los puertos disponible en el Equipo.

- Gracias

55
Visual Basic 6.0 e inferiores / Re: Como Imprimir Con El Printer, Un Cuadro Con Punta
« en: Miércoles 4 de Febrero de 2004, 15:37 »
- Me prodria decir alguien como puedo imprimir una cuadrado o rectangulo, que tenga las esquinas redondas.

 - Gracias

56
Visual Basic 6.0 e inferiores / Imprimir Una Lineas En Colores...
« en: Viernes 30 de Enero de 2004, 20:09 »
- Buenas a todos, vereis, el problema que tengo, es que cuando imprimo un listado de los clientes de una base de datos, me gustraria, que entre linea, los pendientes de pagos, la linea fuera amarilla, y los que estan al dia, la linea fuese verde, pero es que no me sale...........

- Uso el Printer

- Gracias chicos, porfavor, ayudadme........

57
- vereis, es que desde un control combo, o imagen, ect... es facil y si puedo controlar los eventos del teclado, pero es que cuando el foco lo tiene el formulario como quien dice, no hay manera, pero bueno, el caso es que necesito configurar el F3, y el F5 para una funcion expecifica, pero no lo consiguo.

 - Como puedo hacerlo.

 - Bueno, gracias, y hasta pronto

58
Visual Basic 6.0 e inferiores / Conectar A Una Base De Datos En Internet
« en: Miércoles 21 de Enero de 2004, 22:57 »
- Como me puedo conectar a una base de datos que tengo en internet, tengo mi nombre de usuario y eso para acceder al mysql, pero no consiguo conectarme desde una aplicacion de visual base.

 - Los parametros que pongo en un dao son

  Data.ConnectionString = "Driver={SQL Server};SERVER=SERVER=Direccion del Servidor;DATABASE=Nombre de la base de datos;;User ID=MyNombreDeUsuario;Password=MyContraseña;PORT=3306;OPTION=0;STMT=;"

 - Me puede decir alguien, que es lo que estoy haciendo mal.

 - Gracias

59
Visual Basic 6.0 e inferiores / Como Eliminar Las Filas Borradas De Un Dbf
« en: Jueves 15 de Enero de 2004, 01:47 »
- Estoy intentando ejecutar en sql, lo que se llamaria, compactar la tabla, pero es que no lo consiguo ni de cachondeo.

 - Sabria alguien decirme como lo puedo hacer

 - Gracias

60
Visual Basic 6.0 e inferiores / Insertar Datos Dao, Me Da Un Error. Ayuda
« en: Miércoles 14 de Enero de 2004, 12:10 »
- Vereis, es que ya no se por donde cogerlo, porque por mas vuelta que le doy, no veo el fallo.

 - Tengo una coneccion abierta por ODBC, para conectarme a una tabla de FoxPro

Set Data = CreateObject("ADODB.Connection")
      Data.Open AbreConeccionDBF & Left$(Conecciones.ruta, Len(Conecciones.ruta)) & ";"

 - Aqui le doy la instruccion de que limpie la base de datos, por si hubiese algun dato dentro.
      Data.Execute "DELETE FROM TotalVenta"
     
 - Y he aqui el problema, cuando intento importar, todo lo que tiene la tabla de la base de datos de acces, al la tabla de Foxpro, ojo, que las dos tablas son iguales, tienen los mismos campo, y estan organizadas iguales.
pero no me deja, me da un error de sintaxis.

      Data.Execute "INSERT INTO TotalVenta SELECT * FROM TotalVenta IN Provider=Microsoft.Jet.OLEDB.4.0;'" & Conecciones.ruta & "Historial.dmb;" & "');"

 - Porfavor, si alguien ve el fallo, que seguro que si, decidmelo que ando decesperado.

 - Bueno, gracias y adios

61
Visual Basic 6.0 e inferiores / Como Saber Las Tablas Que Tiene Una Hoja Xls
« en: Lunes 12 de Enero de 2004, 18:56 »
- Hola amigos, estoy intentando abrir una hoja de calculo de excel, el problema que tengo es que no consiguo poner en un combo, el nombre de las tablas internas que tiene la hoja para poderme conectar a ellas.

 - Alguien me podria decir como puedo hacerlo.

 - Gracias.

62
Visual Basic 6.0 e inferiores / Crear, Modificar, Y Establecer Coneccion
« en: Jueves 8 de Enero de 2004, 22:10 »
- Me podria dar alguien un ejemplo de como puedo crear una tabla dbf o db, y conectarme a ella, para crear los campos, e insertar los registros necesarios.

 - Muchas Gracias.

63
Visual Basic 6.0 e inferiores / Mover Un Control Imagen Con El Raton
« en: Jueves 8 de Enero de 2004, 00:39 »
- Buenas noches, sabria alguien decirme como puedo mover un control imagen de un lado para el otro, con el raton.

 - Gracias.

64
Visual Basic 6.0 e inferiores / Llenar Un Combo Con Las Impresoras Actuales
« en: Viernes 2 de Enero de 2004, 18:35 »
- Como puedo llenar un combo con todos los nombre de las impresoras, que estan actualmente instaladas en la maquina.

- Gracias

65
Visual Basic 6.0 e inferiores / Como Localizar Una Palabra En Un Txt
« en: Viernes 2 de Enero de 2004, 13:58 »
- Antes de nada, FELIZ AÑO NUEVO A TODOS . . .

 - Sabría decirme alguien como puedo localizar una palabra dentro de TXT.

66
Visual Basic 6.0 e inferiores / Localizar Una Palabra En Un Fichero De Txt
« en: Viernes 2 de Enero de 2004, 13:01 »
- Buena compañeros, antes que nada, feliz año nuevo a todos.

 - Me gustaría saber como puedo hacer para encontrar una palabra en un fichero de texto, sin tener que recorrerlo linea a linea, y palabra a palabra.

 - Gracias.

67
Visual Basic 6.0 e inferiores / A Cuantas Pulgadas Equivale Un Milimetro
« en: Lunes 29 de Diciembre de 2003, 17:10 »
- Hola a todos, me podria decir alguien, cuantas pulgadas, tiene un milimetro.

 - Gracias.

68
Visual Basic 6.0 e inferiores / Pasar Registros De Una Base De Datos A Otra
« en: Jueves 25 de Diciembre de 2003, 19:25 »
- El problema que tengo es que no encuentro la manera de pasar los datos de una base de datos a otra. Te explico.

- Tengo un a base de datos Empleados con una tabla que se llama hora, y otra base de datos que se llama HEmpleados, con una tabla igual que se llama incluso de la misma manera.
El tema es que no se como pasar de la tabla hora de la base de datos Empleados todos los registros, a la base de datos HEmpleados.

- Sabría decirme alguien como se hace, es que no lo consigo.

69
Visual Basic 6.0 e inferiores / Control Sobre El Printer
« en: Lunes 15 de Diciembre de 2003, 00:21 »
- Buenas noches, lo que necesito saber es como puedo controlar el printer, de manera que pueda imprimir, siempre alineado, me explicare un poco mejor.

 - Tengo que imprimir un ticket para un super, pero cuando uso el printer, me salen todos cambados, osea dependiendo del codigo y nombre del Articulo, el precio sale en un lado o en otro, pero nunca me coincide, al igual que no me coincide el principio de la impresion del nombre del Articulo porque dependiendo del tamaño que tenga asignasdo el codigo, va a un lado o al otro.

 - Gracias.

70
Visual Basic 6.0 e inferiores / Sabe Alguien Donde Conseguir Manual Para El Printe
« en: Miércoles 3 de Diciembre de 2003, 16:27 »
- Hola a todos amigos, me podria decir alguien como y donde puedo conseguir un manual que sea mas o menos bueno, y facil de entender, sobre el objeto PRINTERS para el Visual Basic.

 - Gracias

71
Visual Basic 6.0 e inferiores / Como Puedo Combinar Dos Tablas A Sql
« en: Lunes 1 de Diciembre de 2003, 01:17 »
- Buenas, me gustaria saber como puedo unir dos tablas, para poder mostrar los resultados globales. Las Dos tablas son iguales, pero con diferentes nombres, y yo lo que necesito es poder sumar un campo llamado precio total, que esta en ambas tablas.
 - Gracias....

72
Visual Basic 6.0 e inferiores / Re: Como puedo copiar una archivo linea a linea
« en: Miércoles 5 de Noviembre de 2003, 22:16 »
- Tengo una aplicacion, que se actualisa desde la red, pero el problema que tengo, es que no consigo que me copie todo el archivo.

- Bueno, el archivo se puede copiar con el FileCopy, pero es grande, y me gustaría mostrar el progressbar, mientras copia, por esto es que lo que hago es crear un fichero nuevo con el mismo nombre, en en lugar de destino, y abrir el original para lectura. Luego voy leyendo y escribiendo consecutivamente, hasta que llega al final.

- El caso es que no consigo copiar todo el Archivo. Sabria alguien explicarme el porque no puedo, y como debo de hacerlo.

- Gracias.

73
Visual Basic 6.0 e inferiores / Re: No consigo actualisar un registro a SQL
« en: Miércoles 5 de Noviembre de 2003, 16:34 »
- Estoy intentando actualizar el registro especifico, en la base de datos, pero los campos, editando, y estado civil, no me cambian. ( Los campo son texto )

 - Por favor, si alguien ve lo que estoy haciendo mal, que me lo haga saber.

 - Gracias compañeros, aqui hos dejo lo que yo hago.

Set db = OpenDatabase(Conectando.Coneccion, , False, ";pwd=1234")

db.Execute "UPDATE Clientes SET Cliente=" & Text1(0) & " , SG=" & Siglas.Text & " , Direccion=" & Text1(3) & " , Numero=" & Text1(4) & " , Piso=" & Text1(5) & " , Puerta=" & Text1(6) & " , CP=" & Text1(7) & _
" , Poblacion=" & Text1(8) & " ,Provincia=" & Text1(9) & " ,Pais=" & Text1(10) & " , NIF=" & Text1(19) & " , Email =" & Text1(11) & " , Web = " & Text1(12).Text & _
" , Editando=""No"" , [Sociedad Civil]=" & iif(option.value,"Si","No") & " , [Fecha Alta]=" & Text1(13) & " WHERE (SELECT * FROM Clientes WHERE Clientes.[Id Cliente] = " & CLng(Text3.Text) & ");"

74
- Es que no se si se podra, pero me gustarí saber si se le puede hacer referencia a un campo por su nombre, por que es que hacerle referencia por la posicion del campo a la hora de insertar un registro, me da que es un poquito peligroso.

 - Gracias.

75
- Es que estoy intentando cambiar una columna de tipo numerica, a tipo moneda, con dos decimales, y con formato €.

 - Gracias

Páginas: 1 2 [3] 4 5