SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: bartrix58 en Lunes 9 de Diciembre de 2002, 17:59

Título: Re: Conexion con sql db?
Publicado por: bartrix58 en Lunes 9 de Diciembre de 2002, 17:59

salu2 amigos foreros, les escribo para saber si alguien me puede esxplicar como se realiza una conexion con una base de datos de sql 7, q controles se usan, como se hace cuales son los pasos etc... espero me puedan ayudar

gracias

Título: Conexion con sql db?
Publicado por: Jose Arriagada en Lunes 9 de Diciembre de 2002, 20:26

Yo utilizo conexion RDO.Si te sirve, prueba.

1. Crea una conexion ODBC en tu PC, que apunte a la base de datos SQL que tu requieres.


2. En tu aplicacion, selecciona Proyecto->Referencias y marca la opcion Microsoft Remote Data Object 2.0

3. En un modulo .bas, pone las siguientes variables.

Global aConexion As rdoConnection
Global bConexion As rdoConnection
Global Resultado As rdoResultset
Global Respuesta As rdoResultset
Global Aenv As rdoEnvironment
Global Benv As rdoEnvironment

Global gDSN as string
Global gUID as string
Global gPWD as string
Globa gDataBase as string


Crea un procedimiento llamado Conectar:

Public Sub Conectar()
   Set Aenv = rdoEnvironments(0)
   Set Benv = rdoEnvironments(0)

   Aenv.CursorDriver = rdUseOdbc
   Benv.CursorDriver = rdUseOdbc

   sConnect = "ODBC;DSN=" & gDSN & ";"
   sConnect = sConnect & "UID=" & gUID & ";"
   sConnect = sConnect & "PWD=" & gPWD & ";"
   sConnect = sConnect & "DATABASE=;" & gDataBase

   Set aConexion = Aenv.OpenConnection(sConnect)
   Set bConexion = Benv.OpenConnection(sConnect)
End Sub

Crea un procedimiento llamado Desconectar:

Public Sub Desconectar()
   aConexion.Close
   bConexion.Close
End Sub


En el load del form principal, coloca el siguiente codigo:

Sub Form_Load()
   gDSN="MiConexion"
   gUID=""MiUID"
   gPWD="MiPassword"
   gDataBase="MiBaseDatos"
   Call conectar()
End Sub

En un boton command, agrega:

Private Sub Command1_Click()
   Tabla="EMPLEADOS" 'Nombre de una tabla de la base de datos
   Sentenciasql="select * from " & Tabla
   Set Respuesta = aConexion.OpenResultset(SentenciaSQL)
   while not respuesta.eof
        print respuesta!codigo_empleado
        print respuesta!nombre_empleado
        respuesta.movenext
   wend
End Sub


En otro boton command, agrega:

Private Sub Command2_Click()
call desconectar()
En Sub

Cualquier cosa, enviame un emilio y te respondo si te puedo ayudar.