Como crear DLL que suba y baje archivos

[Yoston]

Otra clase...

midll.conexiones.cls

Public Function EjecutaConsulta(ByVal Tipo As String, ByVal senSQL As String, Optional ByVal User As String, Optional ByVal PassWord As String, Optional ByVal BaseDatos As String, Optional ByVal Servidor As String) As ADODB.Recordset
If Tipo = "Oracle" Then
cadena = "provider=OraOLEDB.Oracle; Data Source=" & Servidor & "; User Id=" & User & "; Password=" & PassWord & ";"
Else
If Tipo = "SQL" Then
'cadena = "provider=SQLOLEDB; Data Source=" & Servidor & ";Database=" & BaseDatos & ";Uid=" & User & ";Pwd=" & PassWord & ";"
cadena = "driver={SQL Server};server=" & Servidor & ";database=" & BaseDatos & ";uid=" & User & ";pwd=" & PassWord & ";"
Else
If Tipo = "ACCESS" Then
cadena = "PROVIDER=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & BaseDatos & ";"
Else
If Tipo = "MySQL" Then
cadena = " Driver={MySQL};SERVER=" & Servidor & ";DATABASE=" & BaseDatos & ";UID=" & User & ";PASSWORD=" & PassWord & ";"
Else
cadena = "DSN=" & BaseDatos & "; UID=" & User & ";PWD=" & PassWord & ";"
End If
End If
End If
End If

Dim conectar As ADODB.Connection
Dim rs As ADODB.Recordset

Set conectar = New Connection
Set rs = New Recordset

On Error GoTo ErrorCon
conectar.ConnectionTimeout = 15

conectar.Open cadena

rs.Open senSQL, conectar, 0, 1

Set EjecutaConsulta = rs

Set rs = Nothing
Set conectar = Nothing

Exit Function

ErrorCon:

Set rs = Nothing
Set conectar = Nothing

Exit Function

End Function

ejemplo .... llamada desde ASP

<<ACCESS.asp>>

Dim rs,sql
set rs = Server.CreateObject("ADODB.Recordset")
set ACC= server.CreateObject("midll.Conexion")
sql="select * from Alumno where User='"&USERNAME&"' and Password='"&PASSWORD&"'"
set rs = ACC.EjecutaConsulta("ACCESS",sql,,,Serve r.MapPath("DatosConsulta2.mdb;"))
if not rs.eof then
...

<<SQL.asp>>

Dim rs,sql
set rs = Server.CreateObject("ADODB.Recordset")
set ACC= server.CreateObject("midll.Conexion")
sql="select * from Alumno where User='"&USERNAME&"' and Password='"&PASSWORD&"'"
set rs = ACC.EjecutaConsulta("SQL",sql,UserBD,Pas sBD,Basedatos,Server)
if not rs.eof then
...
<<ODBC.asp>>
Dim rs,sql
set rs = Server.CreateObject("ADODB.Recordset")
set ACC= server.CreateObject("midll.Conexion")
sql="select * from Alumno where User='"&USERNAME&"' and Password='"&PASSWORD&"'"
set rs = ACC.EjecutaConsulta("ODBC",sql,UserBD,Pa ssBD,NombreDNS)
if not rs.eof then
...

etc..(Oracle,MySQL)

bueno espero que a alguien le sirva :))
chausito..