Temas amorozos

Como Ligar

Sé tú mismo/misma. Intentar ser algo que no eres no trae buenos resultados. Más tarde temprano saldrá a flote lo que llevas dentro. Sé sincero /sincera.
No te precipites. Espera el momento adecuado. Trabaja sin cesar, muévete… Pero no corras demasiado de prisa. Todo necesita tiempo. Unas frases que rompen el hielo, unas preguntas, unas risas, más tarde una mirada, más tarde… TIEMPO.
Ríete, desarrolla tu SENTIDO DEL HUMOR. El mejor amor necesita del sentido del humor… No es racional. Sonríe, ríe, déjate llevar… Hay que empezar jugando (nunca se sabe cómo se termina, ¡ojo!). Genera confianza en la persona que que gusta. Especialmente si no la conoces demasiado (Ver beneficios de reír).
Si quieres conquistar a una persona, no hables de ti. Interésate por esa persona. Intenta saber cosas (no profundas) de la persona con la que quieres ligar. Averigua directamente todo lo que puedas, hazla hablar de sí misma, de lo que le gusta, de lo que opina… Cuando acabes tu primera pregunta, ten preparada otra pregunta… Haz preguntas interesantes, inteligentes… No adules. Muéstrate seguro.
Habla, comunícate. Cada palabra que digas y escuche, cada contestación será una barrera menos, entrarás un poco más en la persona que quieres conquistar. Tienes millones de palabras en los diccionarios…¡utilízalas!. Gesticula, pregunta, sonríe… mueve los labios, mira, abre las cejas, llévate las manos a la cabeza, ¡COMUNÍCATE…! Leer: Cómo romper el hielo
Empieza por cosas intrascendentes… No caigas en la tentación de las conversaciones profundas. Trata de hacer sonreír a la persona que te gusta… Haz divertida la conversación… Intenta hacerla reír. ¡CUANTO más veces MEJOR! Lectura: un juego para ligar rápido: ¡un juego que funciona!
Si has logrado hacer reír a la persona que te gusta muchas veces, has dado un gran paso. Eso puede ser cosa de minutos, horas o días no te precipites, cada persona tiene su tiempo. Sé medidamente atrevido si ves que la persona que te gusta lo acepta.
Mírala brevemente a los ojos. Miradas un tanto furtivas y breves mientras hablas o ríes. Observa si es receptiva a estas miradas. Entras en otra fase. Lectura: Técnicas para mirar a los ojos.
El primer contacto físico debe hacerse de forma muy natural, espontánea mientras la persona que te gusta está riendo. No lo dejes para muy tarde. Debe ser pronto y breve. Una palmada, la mano, el brazo… Lo que te diga el momento más oportuno. …Y deja pasar algún tiempo antes de que llegue el segundo. No te precipìtes. (Lectura:Ligar: jugar con la distancia física).
Ya has hecho lo más difícil. Si has llegado hasta aquí, siendo sincero, divirtiendo y comunicándote sin problemas, podrás seducir. Sigue tu intuición. Tendrás información suficiente para no dar un paso en falso. Piensa en que tienes capacidad para rendir cada célula, cada poro de la piel de la persona que te gusta. Enhorabuena, adelante… Verás que llegado un punto, podrás comunicarte, sin decir una sola palabra!!!!
Anuncios

Informacion valiosa. “Todo lo que se hace por una nueva Base de datos”

SJADONET18: Cómo crear una base de datos Microsoft Access mediante reflexión
Por Enrique Martínez Montejo «SoftJaén»
[MS MVP – VB]
Última revisión: 20/06/2008

La manera más fácil de crear una nueva base de datos Microsoft Access mediante programación es referenciando en nuestro proyecto de Visual Basic .net las bibliotecas clásicas de ADO y ADOX, tal como explico en el artículo Cómo crear una nueva base de datos Microsoft Access. Como podrá observar el lector, se utiliza la interoperabilidad COM para poder utilizar las mencionadas bibliotecas que han sido referenciadas en nuestro proyecto.

Pero tampoco es sumamente necesario referenciar explícitamente en nuestro proyecto biblioteca alguna, porque el propio marco de trabajo de .net pone a nuestra disposición un conjunto de clases para poder acceder y manipular módulos y ensamblados mediante técnicas de reflexión, permitiéndonos recuperar el objeto System.Type de los objetos, incluyendo el objeto Type de cualquier componente COM que se encuentre debidamente registrado en el sistema, como bien puede ser la biblioteca de ADOX.

El conjunto de clases que nos permite tal posibilidad se encuentra dentro del espacio de nombres System.Reflection, a excepción del objeto System.Type, que se encuentra dentro del propio espacio de nombres System, por tanto, lo primero que haremos será importar en nuestro módulo el siguiente espacio de nombres:

Imports System.Reflection

A continuación, crearemos una función general que será la encargada de crear la base de datos propiamente dicha, mediante llamadas a otras funciones auxiliares más específicas. Para ello, a la función le deberá pasar una cadena de conexión Ole Db adecuada, que incluya la ruta y el nombre de la base de datos que se desea crear, así como los restantes parámetros que estime conveniente.

”’
”’ Crea una nueva base de datos Microsoft Access utilizando la biblioteca ADOX.
”’
”’ Cadena de conexión Ole Db con la información necesaria para crear la nueva base de datos.
”’
”’
Public Function CreateDatabaseAccess(ByVal connString As String) As Boolean

‘ La función asume que no existe el archivo de base de datos, y que la
‘ cadena de conexión cumple con los parámetros necesarios, entre ellos,
‘ el parámetro Data Source.

‘ Creamos un objeto Catalog de la biblioteca de ADOX

Dim ty As System.Type = Nothing
Dim cat As Object = CreateObject(“ADOX.Catalog”, ty)

If cat Is Nothing Then Return False

‘ Generamos una nueva base de datos Microsoft Access.

Dim param() As Object = {connString}
Dim o As Object = ExecuteMethod(cat, ty, “Create”, param)

If o Is Nothing Then Return False

‘ Se ha creado con éxito la base de datos

‘ Referenciamos el objeto ADODB.Connection subyacente.

Dim cnn As Object = GetProperty(cat, ty, “ActiveConnection”, New Object() {})

cat = cnn
cnn = Nothing

‘ Cerramos la conexión.

ExecuteMethod(cat, ty, “Close”, Nothing)

ty = Nothing
cat = Nothing

Return True

End Function

La siguiente función auxiliar crea y devuelve una referencia al objeto COM que se haya especificado mediante su ProgId:

”’
”’ Crea y devuelve una referencia al objeto COM especificado.
”’
”’ Nombre correspondiente al ProgId del objeto COM que se desea obtener.
”’ Se devolverá el tipo asociado al identificador de programa especificado.
”’
”’
Private Function CreateObject(ByVal progId As String, ByRef ty As System.Type) As Object

Try
‘ Obtenemos el tipo asociado al identificador de programa
‘ (ProgID) especificado.

ty = Type.GetTypeFromProgID(progId)

If ty Is Nothing Then Return Nothing

‘ Creamos la instancia del tipo de objeto especificado.

Dim o As Object = Activator.CreateInstance(ty)

Return o

Catch ex As Exception
Return Nothing

End Try

End Function

A continuación, escribiremos una función que se encargará de ejecutar los métodos del objeto especificado, utilizando para ello el método InvokeMember del objeto System.Type adecuado:

”’
”’ Ejecuta el método del objeto COM especificado.
”’
”’ Instancia del objeto COM cuya método se desea ejecutar.
”’ El tipo asociado al programa especificado.
”’ Nombre del método que se desea ejecutar.
”’ Matriz que contiene los argumentos que se van a pasar al método que se desea ejecutar.
”’
”’
Private Function ExecuteMethod(ByVal app As Object, _
ByVal ty As System.Type, _
ByVal methodName As String, _
ByVal args() As Object) As Object

If (app Is Nothing) OrElse _
(ty Is Nothing) Then Return Nothing

Try
‘ Ejecuto el método especificado.

Dim o As Object = ty.InvokeMember( _
methodName, _
BindingFlags.DeclaredOnly Or BindingFlags.Public Or _
BindingFlags.NonPublic Or BindingFlags.Instance Or _
BindingFlags.IgnoreCase Or BindingFlags.InvokeMethod, _
Nothing, _
app, _
args)
Return o

Catch ex As Exception
Return Nothing

End Try

End Function

Y si la anterior función se encarga de ejecutar los métodos de un objeto, ahora construiremos la última función auxiliar para leer el valor de las propiedades del objeto.

”’
”’ Obtiene el valor de la propiedad del objeto COM especificado.
”’
”’ Instancia del objeto COM cuya propiedad se desea leer.
”’ El tipo asociado al programa especificado.
”’ Nombre de la propiedad.
”’ Matriz que contiene los argumentos que se van a pasar a la propiedad.
”’
”’
Private Function GetProperty(ByVal app As Object, _
ByVal ty As System.Type, _
ByVal propertyName As String, _
ByVal args() As Object) As Object

If (app Is Nothing) OrElse _
(ty Is Nothing) Then Return Nothing

Try
‘ Leo el valor de la propiedad especificada.

Dim value As Object = ty.InvokeMember( _
propertyName, _
BindingFlags.DeclaredOnly Or BindingFlags.Public Or _
BindingFlags.NonPublic Or BindingFlags.Instance Or _
BindingFlags.GetField Or BindingFlags.GetProperty, _
Nothing, _
app, _
args)
Return value

Catch ex As Exception
Return Nothing

End Try

End Function

¡Bueno! Ya sólo queda llamar a la función CreateDatabaseAccess para crear una nueva base de datos Microsoft Access, en el ejemplo, una flamante base de datos Microsoft Access 2007:

Dim bln As Boolean = CreateDatabaseAccess( _
“Provider=Microsoft.ACE.OLEDB.12.0; ” & _
“Data Source=C:\Bases\Nuevo1.accdb”)
If bln Then
MessageBox.Show(“La base de datos se ha creado satisfactoriamente.”)
Else
MessageBox.Show(“No se ha podido crear la base de datos.”)
End If

Como habrá tenido ocasión de comprobar, la reflexión nos proporciona una alternativa para evitar referenciar en tiempo de diseño componentes COM en nuestro proyecto, porque lo que hace es crear dinámicamente los objetos en tiempo de ejecución. Pero por utilizar esta técnica, tenemos que pagar un precio, que consiste en que no podemos utilizar la característica de IntelliSense disponible en el entorno de trabajo de Visual Studio, por tanto, tendremos que conocer con soltura los métodos y propiedades de aquellos objetos con los cuales vamos a trabajar.

Esta es la direccion original http://www.mvp-access.es/softjaen/bases/ado/sjspado023.htm por si quieren mas informacion.

Informacion valiosa, temas de interes y entretenimiento