21-abr-2008, 08:00
|
#1 (permalink) |
 Fecha de Ingreso: abril-2008
Mensajes: 4
|
Funcion para obtener el recordset de una consulta sql o access
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 ???? Última edición por chiribillo; 21-abr-2008 a las 09:25. |
|
|
|
21-abr-2008, 10:40
|
#2 (permalink) |
 
Fecha de Ingreso: enero-2008
Ubicación: Madrid
Mensajes: 805
|
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:
y la llamas así, una vez abierta la conexion (Access o Sql Server) p.e. para mostrar los datos en un control DataGrid: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
Set DataGrid1.DataSource = ConRS(conex, "Select * From Tabla1") Un saludo! |
|
|
|
|
24-abr-2008, 08:00
|
#4 (permalink) |
|
Fecha de Ingreso: abril-2008
Mensajes: 4
|
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:
Entonces como le paso a la función la conexión de access???Dim nombase As Database Set Ado_Rc0 = ObtenerRecordset(sql2, comoconecta, nombase) |
|
|
|
|
24-abr-2008, 10:23
|
#5 (permalink) |
|
Fecha de Ingreso: enero-2008
Ubicación: Madrid
Mensajes: 805
|
Re: Funcion para obtener el recordset de una consulta sql o access
Cita:
No lo entiendo muy bien, ¿qué es Ado_BD y cómo lo has declarado?
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:
Entonces como le paso a la función la conexión de access???Dim nombase As Database Set Ado_Rc0 = ObtenerRecordset(sql2, comoconecta, nombase) 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. |
|
|
|
Mode Lineal
