Visual Basic - Conectar a Access desde aplicacion

Life is soft - evento anual de software empresarial
   
Vista:

Conectar a Access desde aplicacion

Publicado por Mikel (6 intervenciones) el 21/08/2009 13:37:29
Hola a todos,

Trabajo con vb6 y access 2003. La duda es como cambiar de la conexión de un archivo de access a otro, me explico; en el ConnectionString del adodc yo configuro una ruta y nombre de archivo de access, por ejemplo:

"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:Archivos de programaPRESUPUESTOSOBRASOBRA1.mdb;Persist Security Info=False"

Cuando trabajo contra "OBRA1.mdb" no hay problema, todo funciona, ahora lo que quiero es mediante código conectarme a "OBRA2.mdb". Lo intento de esta manera y aunque realiza la consulta no cambia el connectionstring y por tanto no conecta bien:

Private Sub Command1_Click()

Dim rs As ADODB.Recordset

Set rs = New ADODB.Recordset
With rs
.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source =" & App.Path & Text1.Text
.CursorType = adOpenStatic
.CursorLocation = adUseClient
.Open "Select * from CONCEPTOS"
End With
Set DataGrid1.DataSource = rs
Text2.Text = Adodc1.ConnectionString
End Sub

Si me podrías dar una pista estaría muy agradecido.
Un saludo.
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:Conectar a Access desde aplicacion

Publicado por jaime guerrero (361 intervenciones) el 21/08/2009 23:32:39
eso que has hecho lo tienes que hacer en el objeto conexion, no en el recordset
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

RE:Conectar a Access desde aplicacion

Publicado por Mikel (6 intervenciones) el 22/08/2009 16:02:53
Hola Jaime, lo primero muchas gracias por contestar; creo que te refieres a algo como esto:

Public Sub Command1_Click()

Dim Adodc1 As ADODB.Connection
Dim cmdComando As ADODB.Command
Dim strCadenaConex As String
Dim rsLista As ADODB.Recordset
Dim parParametro1 As ADODB.Parameter

Set Adodc1 = New ADODB.Connection

strCadenaConex = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & App.Path & Text1.Text

Adodc1.ConnectionString = strCadenaConex
Adodc1.Open

Text2.Text = Adodc1.ConnectionString

DataGrid1.Refresh
DataGrid1.ReBind
End Sub

Pero aunque tambien lo he intentado no me carga los datos en el datagrid como lo hace cuando conecto manualmente y cargo la aplicacion...además en el adodc1.connectionstring me añade un montón de texto nuevo y en windows sigue el archivo temporal de "bloqueo de registros" del primer archivo access cargado.
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

RE:Conectar a Access desde aplicacion

Publicado por jaime guerrero (361 intervenciones) el 25/08/2009 21:35:48
te falta abrir el recordset y asignarle este recordset al datagrid

datagrid.datasource=rs
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