SoloCodigo

La mejor forma es que te crees en la carpeta donde tienes almacenado el proyecto un fichero udl el cual tiene que en lazar con la base de datos. Una vez echo esto haz lo siguiente:

Public Function EstableceConexion()
Dim cnn As New ADODB.Connection

On Error GoTo Error

cnn.open "FILE NAME=" & App.Path & "Fichero_conexion.udl"

Error:
MsgBox ("No")

End Function

Para crear un fichero udl simplemente haz lo siguiente:

1º Pulsa con el botón derecho.
2º Elije crear nuevo archivo de texto.
3º Llamale como quieras y cambia su extensión txt por udl.
4º Abre el fichero y crea la conexion con la base de datos que desees.

Espero que me hayas entendido y que te sirva de ayuda.

Saludos,
Roberto García

A mi también me interesaría que me enviaras los archivos que dices para saber como se haría.

¿Me lo puedes enviar por favor a mi correo (GARCI_20@hotmail.com)?

Muchas gracias.

Saludos,
Roberto García

A ver si te he entendido. Tu lo que quieres es que tu programa sólo se pueda utilizar una vez que el usuario se haya autenticado no?

Yo creo que lo que deberías de hacer es lo siguiente, yo por lo menos cuando e tenido que hacer algo parecido lo he echo asi:

- Crea un formulario en el cual pida al usuario un nombre y una contraseña.
- Cuando pulse a aceptar comprueba en una base de datos si ese usuario existe con esa contraseña.
- En el caso de que sea correcto cierras ese formulario y abres el MDI en el form_unload del formulario donde has pedido la contraseña con MDI.show
- En el caso de que el usuario y la contraseña no sean correcto dejale tres intentos mas y si aún asi no es correcto cierra toda la aplicación y ya esta.

En el caso de que no trabajes con una base de datos dime donde tienes almacenados los nombres de usuario y su contraseña y si kieres te hago un ejemplo de como lo podrías hacer.

Saludos,
Roberto García

Muchísmas gracias. si que era esto más o menos lo que quería. Por lo menos me sirve para hacerme una idea y poder hacer la dll que necesito.

Gracias.
Saludos,
Roberto García

Hola compañeros,

Necesito sacar información del sistema como es:

- Cuantos procesadores tiene.
- Velocidad del procesador.
- Lo que se está ocupando del procesador.
- Memoria Ram disponible del ordenador
- Memoria Ram que se está usuando.
- Discos duros disponibles.
- Capacidad de cada disco duro.
- Espacio libre en los discos duros.

Muchas gracias por vuestra ayuda.

Saludos,
Roberto García.

Al igual que todos los compañeros del foro que te han contestado, también pienso que es un proyecto demasiado grande para nosotros, además de ser un proyecto al cual le deberíamos dedicar mucho tiempo, cosa que creo que no tenemos todos, ya que algunos estudian u otros trabajan como yo.

De todas formas estaría dispuesto a ayudar en todo lo que pudiera tanto a la hora de realizar el análisis del proyecto como en la programación del mismo.

Mantenerme informado de que lo decidaís.

Saludos,
Roberto García

Conectarte a Internet desde Visual Basic:

‘ Conectarse a Internet utilizando el WinInet.dll


‘ Declaraciones

‘

Const Internet_Autodial_Force_Unattended As Long = 2

Public Declare Function InternetAutodial Lib "wininet.dll" (ByVal dwFlags As Long, ByVal dwReserved As Long) As Long

Public Declare Function InternetAutodialHangup Lib "wininet.dll" (ByVal dwReserved As Long) As Long


‘ Código

‘
Dim lResult As Long

lResult = InternetAutodial(Internet_Autodial_Force_Unattended, 0&)

Como desconectarse a Internet:

‘

‘ Ejemplo de como puede desconectarse de Internet utilizando el WinInet.dll

‘

Const Internet_Autodial_Force_Unattended As Long = 2

 
Public Declare Function InternetAutodial Lib "wininet.dll" (ByVal dwFlags As Long, ByVal dwReserved As Long) As Long

Public Declare Function InternetAutodialHangup Lib "wininet.dll" (ByVal dwReserved As Long) As Long

‘

‘ Código

‘

Dim lResult As Long

lResult = InternetAutodialHangup(0&)


Espero que te sirva.

Saludos,
Roberto García

Supongo que el campo FechaInicio de la tabla FechasFinales será de tipo DateTime, por lo tanto prueba lo siguiente:

SELECT * from FechasFinales WHERE FechaInicio= CAST('05/02/03' AS datetime)

De todas formas, ¿tu base de datos que es: SQL Server, Access, Oracle?

Saludos,
Roberto García

Si no recuerdo mal es de la siguiente forma:

variable = Msflexgrid.textMatrix(Msflexgrid.row, Msflexgrid.col)

Pruebalo y me cuentas.

Saludos.

A que te refieres con el árbol de expansión máxima?

La "m" indica que lo que se va a sumar a la fecha son meses. Los otros posibles parámetros son:

Intervalo -> Descripción
yyyy -> Year
q -> Quarter
m -> Month
y -> Day of year
d -> Day
w -> Weekday
ww -> Week of year
h -> Hour
n -> Minute
s -> Second

Por lo tanto la función es la siguiente:

DateAdd (intervalo,tiempoasumar,fecha)

Espero que te haya quedado ya un poco más claro.

Lo siento he estado buscando el crack que me baje pero no lo he encontrado. Además en la empresa en que trabajo al final decidieron comprarlo porque vieron que era muy bueno y no se donde puedes conseguirlo.

De todas formas busca en google crack setup factory que seguro que hay te aparece algo.

Saludos.

Te aconsejo que tu archivo de instalación lo hagas con el programa Setup Factory 6.0. Búscalo en el google y descargatelo. Yo hago todas las instalaciones con ese programa y no tengo ningún problema a la hora de irlo a instalar a cualquier sitema operativo de windows.

Saludos,
Roberto García