Cadena Conexión para Sybase 15.0

CADENA CONEXIÓN EN SYBASE

Se que hay muchos que tienen un quebradero de cabeza para realizar una cadena conexión en Sybase, en mi caso tuve que leer tamaño poco para poder realizarlo en mi motor de Bases de Datos por lo cual lo colgare aquí para que no se me olvide a futuro y de paso espero sea de ayuda para cada uno de ustedes.

Driver={Adaptive Server Enterprise};server=DIRECCIÓN IP DEL SERVIDOR ;port=AGREGAR EL PUERTO AL CUAL SE CONECTAN; db=NOMBRE DE LA BASE DE DATOS;uid=USUARIO;pwd=CONTRASEÑA;

Saludos!!!

RecordSet Virtual

Recordset es una estructura de datos usada en programación cuya utilidad es la de almacenar información desde una tabla de una base de datos. Se usa con frecuencia para obtener conexiones con bases de datos y almacenar el resultado de las posibles consultas que se realicen.

Link de Consulta

Tuve que crear un Recordset Virtual para hacer unas pruebas de edición en un datagrid en Visual Basic 6.0, ya que ocupo mostrar en otra pantalla los datos modificados más los campos que quiero que se descuenten en mi Tabla en mi Base de Datos.

Bueno el código que utilice fue el siguiente:

Dim Virtual As New ADODB.Recordset

With Virtual

.CursorLocation = adUseClient
.CursorType = adOpenDynamic

.Fields.Append "Nombre del Campo en el Datagrid", adVariant
.Fields.Append "Nombre del Campo en el Datagrid", adVariant
.Fields.Append "Nombre del Campo en el Datagrid", adVariant
.Fields.Append "Nombre del Campo en el Datagrid", adVariant
.Fields.Append "Nombre del Campo en el Datagrid", adVariant

End With

With Virtual
.Open
'Para Agregar Campos en el datagrid
.AddNew

.Fields(0) = "Datos que quiero agregar en las filas del DataGrid"
.Fields(1) = "Datos que quiero agregar en las filas del DataGrid"
.Fields(2) = "Datos que quiero agregar en las filas del DataGrid"
.Fields(3) = "Datos que quiero agregar en las filas del DataGrid"
.Fields(4) = "Datos que quiero agregar en las filas del DataGrid"

.AddNew

.Fields(0) = "Datos que quiero agregar en las filas del DataGrid"
.Fields(1) = "Datos que quiero agregar en las filas del DataGrid"
.Fields(2) = "Datos que quiero agregar en las filas del DataGrid"
.Fields(3) = "Datos que quiero agregar en las filas del DataGrid"
.Fields(4) = "Datos que quiero agregar en las filas del DataGrid"

.MoveFirst

End With

Set Me.DataGrid1.DataSource = Virtual
Me.DataGrid1.Refresh

Espero sea de ayuda para cada uno de ustedes.

Saludos!!!

Nanase
0 comentarios

Instalar Visual Basic 6 en Windows 7

Hola todos, no pensé que volvería a ver Visual Studio 6.0 para programar pero a estas alturas de la vida no es de extrañarme mucho, en la empresa en la cual trabajo lo sigue utilizando por lo que me vi en la tarea de instalar ese software en mi Windows 7 Enterprise, así que hago este pequeño post para compartirlo con cada uno de ustedes.

Antes que nada lo que hacemos es copiar todo el disco de Microsoft Visual Studio 6.0 en el disco local C, pueden llamar a la carpeta VB6

Instalando VB6 en W7

Copiar todo el disco de Visual Studio 6.0 en una carpeta en nuestro Disco Duro.
En esa nueva carpeta copia todo los archivos de la carpeta Setup a la raíz de la carpeta que creaste o sea VB6
Ahora renombramos el archivo vb98ent.stf por acmsetup.stf. En algunas versiones como la Profesional, busquen vs98pro.stf, y tengan en cuenta que vs es de Visual Studio, vb de Visual Basic
Ahora, en vez de ejecutar el instalador mediante setup.exe ejecutamos acmsetup.exe. Ten en cuenta de ejecutarlo como Administrador!!!
Y luego de eso instalan el servipack 6 de visual studio y tenemos 6.0 instalado en nuestro Windows 7

Como recomendación y por experiencia es mejor adaptarse a las nuevas tecnologías orientadas a Objetos pero algunas veces uno se puede topar con casos como estos para que lo tengan presente.

Saludos!!!

Nanase
0 comentarios

Aprendamos Juntos