Funcion para obtener el recordset de una consulta sql o access

[chiribillo]

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]

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]

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

[chiribillo]

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]

Iniciado por chiribillo

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.