Conexión Red
Muy buenas, estoy desarrollando una aplicación y necesito saber como puedo conectar la aplicación a la base(esta estará en un servidor, no en el ordenador de la aplicación).
1 Respuesta
Respuesta de xabi
1
Te recomiendo ADO y ODBC.
Bien, crea la fuente de datos odbc desde panel de control ej. MyODBC.
En el equipo local la ruta a la BD sera del tipo "c:\directorio\bd.mdb", en el equipo cliente "\\servidor\directorio\bd.mdb"
En cuanto a ADO te recomiendo código en vez del control ADODC, te permitirá un mayor control añádelo mediante "Proyecto-Referencias-Microsoft ActiveX Data Objects 2.? Library"
Podrás crear una conexión y un recordset:
'en un modulo
public cn as ADODB.Connection
'en el formulario
dim rs as ADODB.Recordset
'en el load del formulario principal
set cn = new adodb.connection
cn.conectionstring="DSN=MyODBC"
cn.open
'Ya tienes una conexión abierta!!!
'en un formulario de muestra de datos ej
set rs = new adodb.recorset
rs.ActiveConnection = cn
rs.CursorType = adOpenKeyset
rs.LockType = adLockReadOnly
rs.Source = "Select * From Clientes"
rs.open
'Ya tienes accesibles los registros de la tabla de clientes
rs.movefirst
rs.movelast
rs.movenext
rs.moveprevious
rs.delete
rs.update
rs("Nombre")=text1
text1=rs("nombre")
'por ultimo
Rs. Close
Con. Close
...
Bien, crea la fuente de datos odbc desde panel de control ej. MyODBC.
En el equipo local la ruta a la BD sera del tipo "c:\directorio\bd.mdb", en el equipo cliente "\\servidor\directorio\bd.mdb"
En cuanto a ADO te recomiendo código en vez del control ADODC, te permitirá un mayor control añádelo mediante "Proyecto-Referencias-Microsoft ActiveX Data Objects 2.? Library"
Podrás crear una conexión y un recordset:
'en un modulo
public cn as ADODB.Connection
'en el formulario
dim rs as ADODB.Recordset
'en el load del formulario principal
set cn = new adodb.connection
cn.conectionstring="DSN=MyODBC"
cn.open
'Ya tienes una conexión abierta!!!
'en un formulario de muestra de datos ej
set rs = new adodb.recorset
rs.ActiveConnection = cn
rs.CursorType = adOpenKeyset
rs.LockType = adLockReadOnly
rs.Source = "Select * From Clientes"
rs.open
'Ya tienes accesibles los registros de la tabla de clientes
rs.movefirst
rs.movelast
rs.movenext
rs.moveprevious
rs.delete
rs.update
rs("Nombre")=text1
text1=rs("nombre")
'por ultimo
Rs. Close
Con. Close
...
Muchas gracias, solo necesita como podía ser la conexión en si de odbc, porque la conexión y el recordset lo hago mediante funciones en módulos de clase. Si necesitas algo no dudes en preguntar
