mi duda se presenta, en Sql Server 2000 y Vb6, lo que quiero hacer es acceder con mi aplicación al Pc-servidor desde la Pc-cliente para acceder a los datos de la base. ¿Como hago para realizar esa conexión? ¿Por dónde empiezo?, desde ya muchas gracias y perdón, que conozca poco por los datos que les dejo, saludos.
-
¿SQL Server 2000? Aún corre? ¡wow!– jachguateel 18 nov. 2016 a las 18:36
-
2@jachguate y Visual Basic 6? Esto es más arqueología que informática lol– Pablo Clausel 18 nov. 2016 a las 18:39
-
@PabloClaus haha, desgraciadamente siguen existiendo casos, de hecho pregunté a alguien porque no han cambiado, la razón "porque así funciona y no tiene problemas" =/ . recomendaría migrar a .NET al menos...– Jorgesys ♦el 18 nov. 2016 a las 18:46
-
1@Elenasys es que algunos todavía usan XP o Windows 2000 con máquinas que no pueden aguantarse .net. Hay rumores que dicen que andan a leña y carbón.– Pablo Clausel 18 nov. 2016 a las 18:55
2 respuestas
Esta puede ser una manera de hacerlo, aunque hay otras (Tuve que desempolvar un poco el código).
Para conectarte con SQL Server 2000 y VB 6 lo más común es usar un objeto ADOdb
. La conexión se arma con una cadena de conexión que tendrías que modificar a tus necesidades.
Una vez establecida la conexión, podés consultar los datos con un objeto recordset.
Dim MyConnObj As ADODB.Connection ' Objecto ADODB Connection
Dim myRecSet As New ADODB.Recordset 'Objeto Recordset
Dim sqlStr As String ' String variable para almacenar la consulta a la base
Set MyConnObj = New ADODB.Connection
MyConnObj.ConnectionString = "Provider=sqloledb;Data Source=IPServidor;Initial Catalog=NombreBaseDeDatos;User Id=Usuario;Password=Password;"
MyConnObj.Open
Set myRecSet = New ADODB.Recordset
sqlStr = "select * from Empleados"
myRecSet.Open sqlStr, MyConnObj, adOpenKeyset
-
1Muchas gracias por tu aporte, desde ya muchas gracias, saludos. el 18 nov. 2016 a las 19:05
-
Pablo y con el nombre de usuarios como haría, tengo que hacer un usuario, por cada pc-Cliente no?. el 18 nov. 2016 a las 19:06
-
1jajaja, se que son lenguajes viejos, pero lo bien que andan, igual tengo pensado migrar a .net, pero quería algo libre como lazarus, me gusto esa plataforma,es lenguaje delphi, y seguiré con sql server express 2005. Así Que entre esos lenguajes estoy decidiendo. el 18 nov. 2016 a las 19:08
-
1Hombre, @Rober, mejor vete de una vez al SQL server 2016, por qué razón te quedarías con el 2005, es casi tan viejo como el 2000. el 18 nov. 2016 a las 19:13
-
@Jachguate y no cambia mucho el lenguaje en el 2016?, yo para tener un avance progresivo, pero si dices que me entenderé de igual manera con el 2016, no me tiembla el pulso y migro, otra cosa, está la versión express del 2016? el 18 nov. 2016 a las 19:20
Para hacer la conexión puedes implementarlo en un modulo algo como:
Attribute VB_Name = "Conexion"
Option Explicit
Public cn As ADODB.Connection
Public rs As ADODB.Recordset
Public Sub Conectar()
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
cn.Open "Provider=SQLNCLI11;Server=.;Database=DBPrueba;Uid=sa;Pwd=666;"
End Sub
Public Sub Desconectar()
On Error Resume Next
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing
End Sub
Usando esta conexión
Server=myServerAddress;Database=myDataBase;User Id=myUsername;
Password=myPassword;
Te puedes guiar de SQL Serverver 2000 connection strings
Puedes usarlo desde una Clase Cliente:
Public Function GetCliente() As ADODB.Recordset
Dim rs As ADODB.Recordset
Dim strSQL As String
Conectar
strSQL = "SELECT idCliente AS Código, nombre AS Nombre FROM Clientes"
Set rs = New ADODB.Recordset
rs.Open strSQL, cn, adOpenStatic, adLockOptimistic
Set GetCliente = rs
End Function
El código es de ejemplo debes adaptarlo a tus necesidades.