 Una Cosa Sobre Base De Datos (access)
Hola..
Bueno estoy por aqui para hacer un planteamiento y una pregunta, a ver:
Antes en VB6 para trabajar con Base de datos access me parecia muy sencillo, lo hacia de la siguiente forma.
-Comenzaba declarando en el formulario esto:
Private Declare Function GetTempFileName Lib "kernel32" Alias "GetTempFileNameA" (ByVal lpszPath As String, ByVal lpPrefixString As String, ByVal wUnique As Long, ByVal lpTempFileName As String) As Long
Private Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA" (ByVal nBufferLength As Long, lpBuffer As String) As Long
Private WithEvents rs As ADODB.Recordset
Private WithEvents conn As ADODB.Connection
-----------------------------------------------------------------------------------------------
Luego en cuerpo del formulario hacia lo siguiente para abrir la base de datos:
Dim sql As String
Set rs = New ADODB.Recordset
Set conn = New ADODB.Connection
sql = "SELECT * FROM Tabla"
Call Module1.OpenDataBase(rs, conn, sql) 'esto que llamo aqui lo tenia en un modulo
-------------------------------------------------------------------------------------------
En el modulo tenia el procedimiento que llamo para abrir.
Public Function OpenDataBase(rs As ADODB.Recordset, conn As ADODB.Connection, sql As String)
Dim strConnect As String
Dim strProvider As String
Dim strDataSource As String
Dim strDatabaseName As String
strProvider = "Provider=Microsoft.Jet.OLEDB.4.0;"
strDataSource = App.Path
strDatabaseName = "\BasedeDatos.mdb"
strDataSource = "Data Source=" & strDataSource & strDatabaseName
strConnect = strProvider & strDataSource
conn.CursorLocation = adUseClient
conn.Open strConnect
rs.CursorType = adOpenStatic
rs.LockType = adLockPessimistic
rs.Source = sql
rs.ActiveConnection = conn
rs.Open
End Function
Con esto era feliz..!
Ya con esto podia agregar nuevos registros con: rs.addnew ó podia leer datos de la base con textbox1.text = rs!Nombre y moverme con rs.movenext o
rs.move (12) etc. Para escribir en la base de datos lo hacia con rs!Nombre = textbox1.text rs.update y listo con estos comando me movia y hacia lo que necesitaba con la base datos.
Ahora mi pregunta, Cual es la forma mas sencilla para trabajar con bases de datos en VB2005. Y poder hacer de manera sencilla lo que expreso alli con ese codigo. Es abrir la base, agregar campos, eliminar, moverme a posiciones, leer los datos y eso lo basico que hace con una tabla de access...
Mil perdon, si esta muy largo o no me explico bien. De verdad he buscado guias por internet pero no encuentro nada en español de hecho encontre unos videos muy buenos que me han enseñado mucho estan en ingles. Gracias y ojalan me puedan dar una mano..  | 
Mode Lineal
