• Viernes 8 de Noviembre de 2024, 07:01

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.


Mensajes - Astronald

Páginas: [1]
1
Bases de Datos / Re: Base De Datos
« en: Jueves 9 de Octubre de 2008, 16:50 »
Esa cadena solo sirve en si la base de datos esta montada en un dominio, debes crear una que utilice autenticación SQL y no Windows que utilice ID_Usuario y pass intenta con el usuario sa...

Código: Text
  1.  
  2. Private Function Conectar() as Boolean
  3. On Error GoTo ErrorConexion
  4.     If Conexion.State <> adStateOpen Then
  5.         Set Conexion = Nothing
  6.        Conexion.Open "Provider=sqloledb;" _
  7.            & "Data Source=Servidor;" _
  8.            & "Initial Catalog=BaseDatos;" _
  9.            & "User Id=NombreUsuario;" _
  10.            & "Password=Password;"
  11.     End If
  12.     Conectar = True
  13.     Exit Function
  14. ErrorConexion:
  15. Conectar = False
  16. End Function
  17.  
  18.  

Como utilizarla

Código: Text
  1.  
  2. If Conectar then rs.open "SELECT * FROM Tabla", Conexion
  3. If Conectar then Conexion.execute "DROP Tabla"
  4.  
  5.  


Dato Curioso, no necesitas ningun tipo de proveedor cliente(No necesitas instalar ninguna herramiena SQL), en la maquina cliente solo que tenca el MDAC instalado
es decir en WinXP no problem.

Otro dato el servidor puede ser:
En una red NombrePC o la direccion IP
En internet mssql.tudominio.com o tambien la direccion IP del servidor.

en mi parecer siempre empiezo de esta manera,
asi este en el mismo equipo que la base de datos, para que despues no me implique tener que modificar codigo si trato de conectarme desde otra PC.
si no te conecta tienes que revisar que el servidor SQL acepte las conexiones remotas. esto se hace en la configuracion del mismo.

Cualquier cosa gritas

2
Visual Basic para principiantes / Re: Funcion para Saber si Un Arreglo Esta Vacio
« en: Miércoles 8 de Octubre de 2008, 16:30 »
agregue la funcion a el modulo donde se hacia la prueba de tiempo de duración y es la opcion mas lenta..

Funcion 1: 971
Funcion 2: 62
Funcion 3: 13617

que tristeza entonces hice esta otra

Código: Text
  1.  
  2. Private Sub Funcion3()
  3.     Dim Lista() As Integer
  4.     Dim a As Integer
  5.     Dim i As Long
  6.     For i = 0 To 100000
  7.         AgregarElemento Lista
  8.         Lista(i) = 1
  9.     Next i
  10. End Sub
  11.  
  12. Private Sub AgregarElemento(ByRef Arreglo As Variant)
  13.     On Error GoTo SinIniciar
  14.     ReDim Preserve Arreglo(UBound(Arreglo) + 1)
  15. Exit Sub
  16. SinIniciar:
  17.     ReDim Arreglo(0)
  18. End Sub
  19.  
  20.  

y o sorpresa ....

Funcion 1: 959
Funcion 2: 59
Funcion 3: 76

Bueno no es la mas rapida pero...
 * No tenemos que actualizar la variable NElementos, lei y el hecho de utilizar un procedimiento hace que se se mas costoso el codigo, pero sino lo utilizamos se perderia la modularidad y entonces tendriamos que repetir la misma linea en todos los segmentos donde lo utilizamos.

Otra cosa es que la funcion Ubound cuesta, y en la funcion 2 no se utiliza...
y bueno tambien falta ver que necesitamos hacer consultar el arreglo, o agregar un elemento.

3
Visual Basic para principiantes / Re: Funcion para Saber si Un Arreglo Esta Vacio
« en: Miércoles 8 de Octubre de 2008, 14:55 »
Sin querer entrar en conflictos te muestro este apartado que esta en la MSDN si quieren comprobarlo por favor busquen optimizar codigo.

Y lo otro es que creo mas costoso que los desarrollador nos pongamos a discutir...

Optimizar Codigo (Fuene MSDN)

A menos que desarrolle tareas como la generación de fractales, sus aplicaciones raramente se verán limitadas por la velocidad de ejecución del código. Normalmente son otros factores, como la velocidad de vídeo, los retrasos de la red o la actividad del disco, los que limitan las aplicaciones. Por ejemplo, cuando un formulario tarda en cargarse, puede deberse al número de controles y gráficos del formulario más que a la lentitud del código del evento Form_Load. Sin embargo, puede encontrar puntos del programa en los que la velocidad del código es el factor principal, especialmente en las rutinas a las que se llama con mucha frecuencia. Cuando éste sea el caso, puede usar varias técnicas para incrementar la velocidad real de las aplicaciones:

Evitar el uso de variables Variant.
Usar variables Long Integer y aritmética de números enteros.
Pasar a variables las propiedades utilizadas con mayor frecuencia.
Usar variables de nivel de módulo en lugar de variables estáticas.
Reemplazar las llamadas a procedimientos por código en línea.
Usar constantes siempre que sea posible.
Pasar argumentos con ByVal en lugar de ByRef.
Usar argumentos opcionales con tipo.
Usar colecciones.
Incluso si no va a optimizar la velocidad del código, conviene tener presentes estas técnicas y los principios en los que se basan. Si adquiere el hábito de elegir algoritmos más eficientes al escribir código, obtendrá una ventaja adicional a la velocidad de la aplicación.

Evitar el uso de variables Variant
El tipo de datos predeterminado de Visual Basic es Variant. Es cómodo para los programadores principiantes y en aplicaciones en las que la velocidad de procesamiento no es importante. Sin embargo, si piensa optimizar la velocidad real de su aplicación, debe evitar el uso de variables Variant. Como Visual Basic convierte las variables Variant al tipo de datos apropiado en tiempo de ejecución, las operaciones con otros tipos de datos simples eliminan este paso adicional y son más rápidas que sus equivalentes Variant.

Un buen sistema para no usar variables Variant es usar la instrucción Option Explicit, que le obliga a declarar todas las variables. Para usar Option Explicit, active la casilla de verificación Requerir declaración de variables en la ficha Editor del cuadro de diálogo Opciones, disponible en el menú Herramientas.

Tenga cuidado cuando declara múltiples variables: si no utiliza la cláusula As tipo, se considerarán variables Variant. Por ejemplo, en la siguiente declaración, X e Y son Variant:

Dim X, Y, Z As Long

Escritas de esta manera, las tres variables son de tipo Long:

Dim X As Long, Y As Long, Z As Long

Para obtener más información   Para aprender más acerca de los tipos de datos de Visual Basic, vea "Tipos de datos" en "Fundamentos de programación".

4
Visual Basic para principiantes / Re: Funcion para Saber si Un Arreglo Esta Vacio
« en: Martes 7 de Octubre de 2008, 01:36 »
No se....., no encontre en internet entonces hice esta funcion

Código: Text
  1.  
  2. Private Function LimiteArray(ByRef Arreglo As Variant) As Long
  3.     On Error GoTo SinIniciar
  4.         LimiteArray = UBound(Arreglo)
  5.     Exit Function
  6. SinIniciar:
  7.     LimiteArray = -1
  8. End Function
  9.  
  10.  

lo otro es que si redimensionamos con esta funcion la primera es igual a cero
ejemplo,
Código: Text
  1.  
  2. redim Arreglo(limiteAray(arreglo)+1)
  3.  
  4.  
si no esta iniciada la inicia en 0
A mi me gusto

Y tampoco me gusta las variables Variat  para crear arreglos en esta utilizo una pero solo como referencia para permitir todo tipo de matrices

Páginas: [1]