|
|
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 - _EL_DJ_LU
1
« en: Lunes 24 de Julio de 2006, 22:42 »
Gracias por las respuestas amigos.. .
Y sobre todo fueron muy rapidas.. jejej
Creo que ya encontre la solucion.. una opcion barata.. y bueno amigable creo.. justo lo que necesitaba..
Lo que intale es el MySQL 5 junto con su controlador ODBC 3.51 que me ayuda a conectarme con la base de datos desde VB y por ultimo el administrador de la base de datos. MySql Administrator buenisimos..
Por ahora nose mucho de esto.. asi qeu revisare cada herramienta qeu trae el MySql y bueno pes.. empezar a hacer mi programa..
Gracias de todos modos.. y espero que les ayude un poco esto a lo que quieren iniciarse con base de datos y VB.
Gracias..
2
« en: Lunes 24 de Julio de 2006, 18:38 »
Hola a todos.. yo tambien recien estoy metiendome a esto de base de datos con VB y bueno.. ya habia logrado conectarme con una BD en access pero ahora quiero hacerlo con MySql 5
Ya hice lo que dicen arriba.. instale el control para poder conectarme desde VB .. pero no me resulta nose por que...
Me podrian mandar un ejemplo.. plz.. asi entiendo mucho mejor..
Gracias
3
« en: Lunes 24 de Julio de 2006, 16:17 »
Hola a todos...
Bueno mi pregunta es la siguiente:
Quiero modificar mi programa para que pueda funcionar con una base de datos en red local. Pero nose que base de datos instalar en mi server, en un inicio estaba pensando hacerlo con un simple access pero veo que no tiene la seguridad necesaria, por que para que el cliente modifique datos de la BD tendra que compartir una carpeta en modo completo. lo que daria la posibilidad de que eliminen la BD.
Es por eso que les pido su ayuda.. Que programa uso para montar una base de datos en mi server, pero que no sea muy pesado por que lo instalare en una P3 con windows XP SP2.
Si por ahi me dan la direccion de un manual para poder manejar ese programa les agradeceria muchisimo.. o mucho mejor si hay un ejemplo de como interactuar con esa BD desde VB..
Muchas gracias amigos..
4
« en: Lunes 24 de Julio de 2006, 16:12 »
Hola yo tambien tengo la misma duda.. haber si alguien se anima a responder esta pregunta.. plz..
Bueno lo mio tal ves es mas simple por que tengo una red lan y la BD esta en mySQL como lo enlazo con un programa en otra maquina?
gracias por su respuesta..
5
« en: Lunes 24 de Julio de 2006, 15:45 »
Hola a todos...
Bueno mi pregunta es la siguiente:
Quiero modificar mi programa para que pueda funcionar con una base de datos en red local. Pero nose que base de datos instalar en mi server, en un inicio estaba pensando hacerlo con un simple access pero veo que no tiene la seguridad necesaria, por que para que el cliente modifique datos de la BD tendra que compartir una carpeta en modo completo. lo que daria la posibilidad de que eliminen la BD.
Es por eso que les pido su ayuda.. Que programa uso para montar una base de datos en mi server, pero que no sea muy pesado por que lo instalare en una P3 con windows XP SP2.
Si por ahi me dan la direccion de un manual para poder manejar ese programa les agradeceria muchisimo.. o mucho mejor si hay un ejemplo de como interactuar con esa BD desde VB..
Muchas gracias amigos..
6
« en: Domingo 23 de Julio de 2006, 01:06 »
No te entiendo esa ultima parte...
Lo que pasa es que lo que hace mi programa es registrar tiempos y eso lohace cada minuto cada cliente.. es por eso que tiene que estar siempre compartido en "completo".
Ahora nose si haya otra forma de montar una base de datos.. que no sea muy pesada... por que hasta ahora estaba pensando hacerla en Access pero si hay otra forma de colocar una base de datos en el server pero que sea seguro, diganem que puedo hacer.. o que programa usar.
Ah otra cosa que quiero recalcar.. es que el uso de la base de datos por ahora sera solo en LAN .. muchas gracias..
7
« en: Sábado 22 de Julio de 2006, 17:42 »
Voy a probar sus consejos.. me parece que si de hecho me serviran se que solucionan el problema.. ahora tengo otra duda.. Si quiero interactuar con la base de datos (Access) que esta en el servidor.. tengo que compartir una carpeta que contenga la base de datos... para que de esta forma el cliente pueda hacer consultas o insertar datos en la base... PERO EL PROBLEMA ES QUE .. desde la red pueda que eliminen la base de datos por qeu va estar conpartida COMPLETA... que solucion le puedo dar a eso.. hay un forma de interactuar con la bases desde un cliente.. sin necesidad de compartirla en una carpeta como completa?.. Muchas gracias.. 
8
« en: Jueves 20 de Julio de 2006, 02:26 »
Hola a todos...
Tengo un programa que controla cabinas... pero ahroa quiero agregarle una base de datos con clientes maquinas y todo eso.. ya saben
Pero mi prengunta es la siguiente... los programas clientes que estan en cada maquina del internet. van acceder a la base de datos que estara en la maquina del administrador... en algun momento esta maquina.. se apagara.. o se tendra que reiniciar.. lo que significa que para los clientes. no existira la base de datos.. y sale error en mi programa y se cae ..
como hago para controlar ese error de mi programa al no encontrar la base de datos
Lo que estoy usando para consultar la base de datos en access es :
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
de antemano GRACIAS POR SU RESPUESTA...
9
« en: Martes 20 de Junio de 2006, 05:57 »
Hola a todos.. mi pregunta es la siguiente.
Tengo mi programa qeu se encarga de controlar el tiempo en una cabina de internet, el problema que tengo es que hay ocaciones en que se produce un error en tiempo de ejecucion 1400 y no se de que se trata.. alguien me puede decir por que me sale ese error y cual seria la posible solucion?..
Generalmente ese error me sale cuando estoy jugando, es decir, entro al juego X por ejemplo y cuando salgo del juego o vuelvo a una pantalla de windows.. ahi es donde se produce ese error...
Por favor ayudenme de que se trata ese error .. gracias
10
« en: Viernes 14 de Octubre de 2005, 07:19 »
Hola a todos..
Soy estudiante de Ing. Informatica.. y bueno en uno de los cursos basicos.. estamos usando el pascal.
Bueno una de mis dudas es la siguiente.. espero me ayuden.. gracias.
Para manejo de archivos hacemos generalmente esto
Assign(Arch,'nombrearchivo.bin');
Reset(Arch);
.
.
.
.
.
Close(Arch);
Mi pregunta es que pasa si hago esto?
Assign(Arch,'nombrearchivo.bin');
Reset(Arch);
.
.
Close(Arch);
Reset(Arch);
close(Arch);
Reset(Arch);
close(Arch);
A lo que me refiero es que me dijeron que despues de hacerle "close" no es correcto hacerle un "reset".. me dijeron que tengo que hacerle nuevamente un "assign" que de cierto hay en esto.. me dicen que la direccion del archivo en memoria se pierde con el Close..
Me podrian dar una explicacion sobre esto?.. gracias..
11
« en: Domingo 5 de Junio de 2005, 02:45 »
Hola a todos... haber si hay alguien que nos pueda ayudar.. El problema es el siguiente.. a algunos no nos funciona los zipeados.. bueno a mi si me funcionada.. pero cuando trabajaba en Win98.. pero ahora que trabajo con XP.. no me funciona...  Me sale que no se puede cargar el archivoDSIdinfo.vxd.... Haber si alguien nos da una manita... plz... en Win 98 si me funcionaba.. pero ahroa en XP no Gracias por su ayuda.. DJ
12
« en: Viernes 6 de Mayo de 2005, 01:46 »
Hola ..alguien me podria dar pautas de como hacer un chat de voz...
bueno esto para una red de area local
muchas gracias por su ayuda...
cualquier comentario.. es bueno..
gracias
DJ
13
« en: Miércoles 27 de Abril de 2005, 18:08 »
Hola zeekel
Muy buena idea.. para mi el problema es la pestañan de Procesos del administrador de tareas..
Me podrias decir.. como puedo crear mi Task Manager.. guiame mas en esto.. plz
Sino que alguien nos de otra diea..
Muchas gracias a todos...
pd.. yo trabajo con XP
14
« en: Sábado 23 de Abril de 2005, 00:23 »
Nada tio.. no me fuinciona.. sigue igual.. lo que quiero es sacarlo de la lista de procesos.. tembian.. ahi aparece el EXE de mi aplicacion.. y si le dicen terminar proceso.. logran cerrar el programa.. COSA QUE NO QUIERO... haber si alguien nos ayuda.. plz
15
« en: Martes 19 de Abril de 2005, 17:51 »
Hola.. este es otro tema.. jejej ayudenme plz... El objetivo es.. que mi programa no se cierre por nada... Ya logre que no aparesca en el administrador de tareas..pero solo donde dice.. "aplicaciones"... pero lo puedo cerrar.. desde "Procesos"... Para que no aparesca en "Aplicaciones" uso esto App.Title = "" Eso hace que no aparesca en la lista de Aplicaciones del Administrador de tareas.. Pero .. en la lista de "Procesos"... aparece el ejecutable..."miaplicacion.exe".. y con eso pueden cerrar.. mi programa.. COSA QUE NO QUIERO Como lo hago???? O sino .. como haria para que sea igual al DeepFreezer.. que no se puede cerrar para nada... Muchas gracias por su ayuda.. .. se los agradecere de corazon.. Ojo... estoy usando Windows.. XP SP2 GRACIASSSSSSSS DJ
16
« en: Martes 19 de Abril de 2005, 17:43 »
Hola .. amigos..
Quisiera que me ayuden con esto... mi problema es el siguiente..Mi programa muestra una imagen que esta en la red local.. pero cuando la maquina que tiene dicha imagen esta apagada.. el programa muestra un error y se cae
Mi pregunta es.. como teremino si la ruta.. esta disponible.. si no esta disponible.. puedo hacer que muestre otra imagen...
Espero que me ayan entendido.. muchas gracias.. por su ayuuda
DJ
17
« en: Sábado 26 de Febrero de 2005, 04:41 »
Hola amigos.. yo nuevamente.. jeje Bueno pues.. le tengo una buena noticia.. buscando en internet .. encontre los codigos que necesitabamos.. 'Módulo Option Explicit 'Constantes API Private Const EWX_LOGOFF = 0 Private Const EWX_SHUTDOWN = 1 Private Const EWX_REBOOT = 2 Private Const EWX_FORCE = 4 Private Const TOKEN_ADJUST_PRIVILEGES = &H20 Private Const TOKEN_QUERY = &H8 Private Const SE_PRIVILEGE_ENABLED = &H2 Private Const ANYSIZE_ARRAY = 1 Private Const VER_PLATFORM_WIN32_NT = 2 'Estructuras API Type OSVERSIONINFO dwOSVersionInfoSize As Long dwMajorVersion As Long dwMinorVersion As Long dwBuildNumber As Long dwPlatformId As Long szCSDVersion As String * 128 End Type Public Type LUID LowPart As Long HighPart As Long End Type Public Type LUID_AND_ATTRIBUTES pLuid As LUID Attributes As Long End Type Public Type TOKEN_PRIVILEGES PrivilegeCount As Long Privileges(ANYSIZE_ARRAY) As LUID_AND_ATTRIBUTES End Type 'Declaraciones API Private Declare Function GetCurrentProcess Lib "kernel32.dll" () As Long Private Declare Function OpenProcessToken Lib "advapi32.dll" (ByVal ProcessHandle As Long, ByVal DesiredAccess As Long, TokenHandle As Long) _ As Long Private Declare Function LookupPrivilegeValue Lib "advapi32.dll" Alias _ "LookupPrivilegeValueA" (ByVal lpSystemName As String, ByVal lpName As _ String, lpLuid As LUID) As Long Private Declare Function AdjustTokenPrivileges Lib "advapi32.dll" (ByVal _ TokenHandle As Long, ByVal DisableAllPrivileges As Long, NewState As _ TOKEN_PRIVILEGES, ByVal BufferLength As Long, PreviousState As _ TOKEN_PRIVILEGES, ReturnLength As Long) As Long Private Declare Function ExitWindowsEx Lib "user32.dll" (ByVal uFlags As _ Long, ByVal dwReserved As Long) As Long Private Declare Function GetVersionEx Lib "kernel32.dll" Alias _ "GetVersionExA" (ByRef lpVersionInformation As OSVERSIONINFO) As Long 'Detecta si el programa funciona en una máquina NT/2000 Public Function IsWinNT() As Boolean Dim myOS As OSVERSIONINFO myOS.dwOSVersionInfoSize = Len(myOS) GetVersionEx myOS IsWinNT = (myOS.dwPlatformId = VER_PLATFORM_WIN32_NT) End Function 'Establece el privilegio de apagado a esta aplicación Private Sub EnableShutDown() Dim hProc As Long Dim hToken As Long Dim mLUID As LUID Dim mPriv As TOKEN_PRIVILEGES Dim mNewPriv As TOKEN_PRIVILEGES hProc = GetCurrentProcess() OpenProcessToken hProc, TOKEN_ADJUST_PRIVILEGES + TOKEN_QUERY, hToken LookupPrivilegeValue "", "SeShutdownPrivilege", mLUID mPriv.PrivilegeCount = 1 mPriv.Privileges(0).Attributes = SE_PRIVILEGE_ENABLED mPriv.Privileges(0).pLuid = mLUID 'Confirma el privilegio de apagado para esta aplicación AdjustTokenPrivileges hToken, False, mPriv, 4 + (12 * _ mPriv.PrivilegeCount), mNewPriv, 4 + (12 * mNewPriv.PrivilegeCount) End Sub ' Apaga NT Public Sub ShutDownNT(Force As Boolean) Dim ret As Long Dim Flags As Long Flags = EWX_SHUTDOWN If Force Then Flags = Flags + EWX_FORCE If IsWinNT Then EnableShutDown ExitWindowsEx Flags, 0 End Sub 'Reinicia NT Public Sub RebootNT(Force As Boolean) Dim ret As Long Dim Flags As Long Flags = EWX_REBOOT If Force Then Flags = Flags + EWX_FORCE If IsWinNT Then EnableShutDown ExitWindowsEx Flags, 0 End Sub 'Cierra sesión del usuario actual Public Sub LogOffNT(Force As Boolean) Dim ret As Long Dim Flags As Long Flags = EWX_LOGOFF If Force Then Flags = Flags + EWX_FORCE ExitWindowsEx Flags, 0 End Sub
Bueno esto apaga la maquina.. No se si esto es lo que estaban buscando.. Esto no era justamente lo que estaba buscando... El codigo que tenia.. para apagar la PC pero para WIN98 apagaba la PC sin pedir autorizacion.. me refiero si habia un documento sin guardar.. asi mismo lo apagaba.. me entienden? Bueno pues.. este codigo para el XP no hace eso.. la maquina no se apaga.. si hoy un documento sin guardar.. No se si alguien podria ayudarnos.. a buscar el codigo que apaga la Pc sin importar nada.. es decir.. apagar a la fuerza.. jeje Bueno muchas gracias por su ayuda.. y espero que el codigo les sirva a muchos...
18
« en: Viernes 25 de Febrero de 2005, 15:48 »
Hola ... eso solo me funciona en Win 98..
Lo que estamos buscando es el codigo que apague el windows XP.. y que lo apafue sin pedir permiso.. osea si hay un documento sin guardar.. que lo pase por alto.. y que lo apague..
Muchas gracias a todos...
19
« en: Viernes 25 de Febrero de 2005, 15:37 »
Hola bueno... Para ocultar tu aplicacion en win XP usa esto.. App.Title = "" 'Oculta el nombre en el administrador de tareas de XP
Eso eso todo... esto lo encontre en este mismo foro..jejej suerte
20
« en: Domingo 28 de Noviembre de 2004, 16:20 »
Hola jodijo5
Aca tengo un ocx.. que lo baje de este foro... espero qeu te sirva..
para qeu aparesca en la barra de tareas... tienes qeu ponerle en true a la propiedad InTray del ocx. y listo... hasta puedes cambiarle de icono... par que se muestre..
DJ
21
« en: Sábado 20 de Noviembre de 2004, 17:42 »
Hola bueno lo que le dejare aca.. es el mismo archivo adjunto por Juanolo pero menos pesado... solo con los archivos necesarios...
Bueno a mi me funciona ok... y tengo el vb6
ahi les va..
22
« en: Sábado 20 de Noviembre de 2004, 06:19 »
Hola amigo... la idea me parece.. chevere... muy buena.. Pero no me funciona.. nose que es lo que pasa.... al parecer parcha normal al programa pero cuando quiero ejecutar el programa hay error en la lectura.. Aca les dejo el codigo tenia que hacerle unas modificaciones Private Declare Function GetVolumeInformation& Lib "kernel32" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal pVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) Private Sub cmdParche_Click() Dim cad1 As String * 255 Dim cad2 As String * 255 Dim numSerie As Long Dim longitud As Long Dim flag As Long unidad = "C:\" Call GetVolumeInformation(unidad, cad1, 255, numSerie, longitud, flag, cad2, 255) sHex = Trim(Hex(numSerie)) Open "C:\WINDOWS\Escritorio\proyecto1.exe" For Binary As #1 sId = Space(2) Get #1, LOF(1) - 2, sId If sId <> "id" Then sHex = Trim(sHex) sBuffer$ = sHex + Chr(Len(sHex)) + "id" Put #1, LOF(1) + 1, sBuffer$ Else MsgBox "La aplicacion ya fue parchada" End If Close #1 End Sub
esa fue del parche ahi no hay problema al momento de marchar.. bueno el problema es cuando quiere volver a leer la ultima parte del programa Private Declare Function GetVolumeInformation& Lib "kernel32" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal pVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) Private Sub Form_Load() Dim cad1 As String * 255 Dim cad2 As String * 255 Dim numSerie As Long Dim longitud As Long Dim flag As Long unidad = "C:\" Call GetVolumeInformation(unidad, cad1, 255, numSerie, longitud, flag, cad2, 255) sHex = Trim(Hex(numSerie)) Open "C:\WINDOWS\Escritorio\proyecto1.exe" For Binary As #1 sSerie = "" sId = Space(2) Get #1, LOF(1) - 2, sId 'error aca...plz If sId = "id" Then sLen = Space(1) Get #1, LOF(1) - 3, sLen nLen = Asc(sLen) sSerie = Space(nLen) Get #1, LOF(1) - (nLen + 3), sSerie End If Close #1 If sSerie = sHex Then ' Es correcto la copia Else MsgBox "Copia no valida ... por favor cosulte con su proveedor de sistema juasss XP" End End If End Sub
EL ERROR OCURRE EN ESTA LINEA Get #1, LOF(1) - 2, sId Me sale este error... error '458' el tiempo de ejecucion: La variable usa un tipo de automatizacion no admitido en visual basic Espero me puedan ayudar por que esa me parece una muy buena idea para proteger mi programa.. Muchas gracias por tu ayuda gentita..
23
« en: Sábado 20 de Noviembre de 2004, 01:19 »
En un inicio pense lo mismo Brroz... pero da el caso en que el usuario cambie la hora y la friega pes...
Por eso no queria usar la hora de la pc... por que la puede modificar... tambien pense en esconder el reloj.. pero hay forma de entrar a modificarla... osea.. un poco tedioso.. por eso me fui para el lado de poner un timer que haga como mi reloj de mi aplicacion.. ejej
muchas gracias... vere el link que me pusiste... pero si hay mas consejos.. estaremuy agradecido....
DJ
24
« en: Sábado 20 de Noviembre de 2004, 01:15 »
Justo habia escuchado algo de eso... de copiar la serie.. ya sea de procesador o del disco duro...
Serias tan amable de decirme como hago eso...??'
y a que te refieres con eso de poner en la parte final de mi exe... podrias explicarme eso plz...
Muchas gracias amigos...
DJ
25
« en: Viernes 19 de Noviembre de 2004, 00:09 »
Hola como les decia en mensajes anteriores... estoy a punto de vender mi programa... bueno mejor dicho instalacines de mi programa... Bueno lo que queria sabes es como puedo hacer que mi programa despues de instalado solo funcione en esa maquina...osea si copian la carpeta de mi programa a otra PCB que esta no funcione en dicha segunda PCB... De la misma forma que pasa con Office... por que cuando lo instalas en un PcA... y luego copias solo la carpeta a otra PcB .. en esta PcB no funciona... sale un mensaje de error que dice: "El sistema operativo no esta configurado para ejecutar esta aplicacion" Bueno quiero que algo parecido pase con mi programa... por que yo vendere el programa y ire a instalar maquina por maquina... es decir no les vendere el instalador.... bueno esto para que no me pirateen el programa..... se que sera un poco dificil... pero que me de el tiempo suficiente para recuperar un poco de dinero ..... jejeje Muchas gracias por su ayuda amigos de SOLOCODIGO... gracias a usteds pude terminar mi programa... jeje  DJ
|
|
|
Mostrar Mensajes
