* * * Abrir bases de datos SQL Serer Con VB 6??? * * *

[kakarot]

Te mando unas funciones dnd tengo para conectar una tabla de sql(oracle) con visual a ver si te sierve, trabajo con ADODB (puedes moldearlo mejor)

Function conectar(pcn As ADODB.Connection) As String

Dim oracle As String
Set pcn = New ADODB.Connection
oracle = "Provider=MSDAORA.1;Password=projecte;" & "User ID=projecte;Data Source=" & servidor & ""
pcn.Open oracle
'End Function

Function conectarRs(prs As ADODB.Recordset, pcn As ADODB.Connection, tabla As String) As String
' Set prs = New ADODB.Recordset
Set prs.ActiveConnection = pcn
prs.CursorLocation = adUseClient
prs.CursorType = adOpenDynamic
prs.LockType = adLockOptimistic
prs.Open tabla

End Function

Function conectaAdodc(pcn As Adodc, tabla As String) As String

pcn.ConnectionString = "Provider=MSDAORA.1;Password=projecte;" & "User ID=projecte;DataSource=" & servidor & ""
pcn.CursorLocation = adUseClient
pcn.CursorType = adOpenDynamic
pcn.LockType = adLockBatchOptimistic
pcn.CommandType = adCmdTable
pcn.RecordSource = tabla
End Function

Function desconectar(rs As ADODB.Recordset, cn As ADODB.Connection)
rs.Close
cn.Close
End Function


NOTA: EN LA FUNCION CONECTAR LA VBLE ORACLE TU TENDRIAS Q PONER OTRA CADENA(LA DE CONEXION TUYA)