Foros del Web - Funcion para obtener el recordset de una consulta sql o access

Foros del Web (http://www.forosdelweb.com/)

- Visual Basic clásico (http://www.forosdelweb.com/f69/)

- - Funcion para obtener el recordset de una consulta sql o access (http://www.forosdelweb.com/f69/funcion-para-obtener-recordset-consulta-sql-access-578222/)

chiribillo

21/04/2008 08:00

Funcion para obtener el recordset de una consulta sql o access

Buenas!!!!

Estoy haciendo un pragrama con vb6 i tengo dos conexiones a bases de datos. Una en acces 97 y obra en sql server 2000.
Lo que necesito es hacer una función que me devuelva un recordset, pero la funcion tiene que ser la misma para access 97 que para sql, y no se como hacerlo.
Algien me puede ayudar porfavor ????

Avellaneda

21/04/2008 10:40

Re: Funcion para obtener el recordset de una consulta sql o access

Buenas!!!!

Mira, pon esta función en un módulo .bas

Código:

Public Function ConRS(ByVal cn As ADODB.Connection, Sql As String) As ADODB.Recordset

Dim rs As New ADODB.Recordset

With rs

    .ActiveConnection = cn

    .CursorType = adOpenStatic

    .CursorLocation = adUseClient

    .Open Sql

End With

Set ConRS = rs

End Function

y la llamas así, una vez abierta la conexion (Access o Sql Server) p.e. para mostrar los datos en un control DataGrid:

Set DataGrid1.DataSource = ConRS(conex, "Select * From Tabla1")

Un saludo!

chiribillo

23/04/2008 07:40

Re: Funcion para obtener el recordset de una consulta sql o access

Muchas gracias creo que esto me sirve!!!!!

chiribillo

24/04/2008 08:00

Re: Funcion para obtener el recordset de una consulta sql o access

Hola,

Tengo alguna duda sobre la funcion:

Para conectar con las bases de datos lo hago de la siguiente forma:

SQL Server

Código:

comoconecta = "Provider=SQLOLEDB; " & "Initial Catalog=" & NombreBD & "; " & "Data Source=(local); " & "integrated security=SSPI; persist security info=True;"

Ado_BD.Open comoconecta

Access

Código:

Dim nombase As Database

Set Ado_Rc0 = ObtenerRecordset(sql2, comoconecta, nombase)

Entonces como le paso a la función la conexión de access???

Avellaneda

24/04/2008 10:23

Re: Funcion para obtener el recordset de una consulta sql o access

Cita:

Iniciado por chiribillo (Mensaje 2377410)

Hola,

Tengo alguna duda sobre la funcion:

Para conectar con las bases de datos lo hago de la siguiente forma:

SQL Server

Código:

comoconecta = "Provider=SQLOLEDB; " & "Initial Catalog=" & NombreBD & "; " & "Data Source=(local); " & "integrated security=SSPI; persist security info=True;"

Ado_BD.Open comoconecta

Access

Código:

Dim nombase As Database

Set Ado_Rc0 = ObtenerRecordset(sql2, comoconecta, nombase)

Entonces como le paso a la función la conexión de access???

No lo entiendo muy bien, ¿qué es Ado_BD y cómo lo has declarado?
Igual para Ado_Rc0.

nombase As Database: ¿eso es DAO, no? ¿Dónde abres la BD nombase?

¿Qué hace la función ObtenerRecordset?

Un saludo.

La zona horaria es GMT -6. Ahora son las 08:48.