Visual Basic - acceso a access con vbasic

Life is soft - evento anual de software empresarial
 
Vista:

acceso a access con vbasic

Publicado por andreafuhr (18 intervenciones) el 02/05/2005 16:48:11
Hola a todos!. Gracias de antemano... mi problema es el siguiente.
Generé en el "Entorno de diseño de datos" una coneccion con una BD Access, y luego generé un Command basado en una tabla de dicha BD.
Luego diseñé un formulario de acceso a datos vinculado con este Command (llamado TablaClientes) y funciona barbaro. El problema es:
¿Puedo generar un procedimiento en un modulo general que me permita acceder al recorset MiEntorno.rsTablaClientes? Porque he podido crear conecciones y recorset desde codigo, pero siempre desde cero, es decir, no puedo conectarme con el objeto command (TablaClientes) en particular? Quizá no se pueda... por eso mi pregunta.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:acceso a access con vbasic

Publicado por EZ (39 intervenciones) el 05/05/2005 08:44:32
'Pueba este ejemplo pero modifica el nombre de la base de datos el nombre de la tabla
Dim cnn As Connection
Dim cmd As Command

Set cnn = New Connection
Set cmd = New Command
Set rs = New Recordset

'//Database command connection
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & App.Path & "\MiBase.mdb;"
With cmd
Set .ActiveConnection = cnn
.CommandType = adCmdText
.CommandText = "SELECT * FROM Contactos " & _
"ORDER BY Nombre;"
End With

With rs
.CursorLocation = adUseClient
.Open cmd, , adOpenForwardOnly, adLockReadOnly
End With
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar