CLR: .Net / Mono / Boo / Otros CLR > ASP .NET

 Una Cosa Sobre Base De Datos (access)

(1/2) > >>

miguelabc123:
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, ByVal 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..  :hola:

sergiotarrillo:
vía QuickStart.

tutoriales de acceso a datos

Saludos,

miguelabc123:
Bueno Sergio muchas Gracias por Responder..  Dejame ver como resuelvo..


No se si es mucho pedir, si alguien tiene una aplicacion hecha en VB2005 que trabaje con DB access y que la pueda subir para verla, desglozarla y entenderla porque favor le estare muy agradecido...

sergiotarrillo:
has intentado usar un AccessDataSource?

Ejemplo completo.

Artículo con pantallazos.

Saludos,

miguelabc123:
Vale...sergiotarrillo  Muchas gracias una vez mas..!  Ahora si tengo mucho que leer..  :rolleyes:  

Cuidate y que estes bien..!

Gracias

Navegación

[0] Índice de Mensajes

[#] Página Siguiente