Ayuda con un programa en VB 6.0

[taison7]

Hola a todos, tengo una duda con un programita que estoy realizando. Se trata de un programa para un concesionario de carros con su respectiva base de datos y ya lo tengo todo realizado y lo grabe en mi memoria USB (Ejemplo: I:\proyecto\autos.mdb) el problema es que cuando me voy a otro PC, a la memoria USB le puede quedar asiginada otra letra diferente a la que le asigne en el otro PC (Ejemplo: F:\proyecto\autos.mdb) lo que me hace estar cambiando a cada rato la ubicacion de la base de datos entoces me gustaria saber si hay un codigo que me ubique automaticamente la letra que le quedo asignada a la USB o la ubicacion de la base de datos.

[pana99]

Hola.
Mira, para solucionar tu problema yo haria que la base de datos este relacioanda con el path de la aplicacion. Asi cuando este cambia, el path se modifica automaticamente.
Cuando abras la conexion deberias hacerlo asi:

Public cnn As New ADODB.Connection
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
App.Path & "\tuBaseDatos.mdb" & ";Persist Security Info=False"

Espero te sirva
Saludos

[taison7]

gracias por tu atencion pero ahora tengo problemas con las tablas de mi base de datos podrias decirme como seria el codigo para las tablas ya que con esta nueva forma de conectar la base de datos parece que es diferente el codigo para las tablas, yo lo tengo asi pero me sale con errores:

Public datos As Database
Public acceso As Recordset
Public cnn As New ADODB.Connection

Private Sub Form_Load()
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Agenda.mdb" & ";Persist Security Info=False"
Set acceso = cnn.OpenRecordset("acceso", dbOpenDynaset)
End Sub

como seria corregido?

[pana99]

Hola. Mira yo lo uso asi y me funciona, te lo paso y luego si consideras, modificalo a tu necesidad

Código:

Private Sub Form_Load()
Dim rs As ADODB.Recordset, Sql as string, Base as string

Set rs = New ADODB.Recordset
Sql = "select * from TuTabla where TusCondiciones"
Base = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Agenda.mdb" & ";Persist Security Info=False"

    With rs
     .ActiveConnection = Base
     .CursorType = adOpenStatic
     .CursorLocation = adUseClient
     .Open Sql
    End With

'Luego para utilizar los datos obtenidos lo haces por ejemplo con :
   msgbox  rs!NombreCampoDeTAbla

End Sub

Espero te sirva

[taison7]

hola muchas gracias por la informacion de verdad me ha sido de gran ayuda pero mira que hay otra forma de hacerlo mas facil y mas corto y lo deduci de tu ejemplo:

Public base As Database
Public acceso As Recordset
Private Sub Form_Load()
'conecta la base de datos aunque se cambie la ubicacion
Set base = OpenDatabase(App.Path & "\agenda.mdb")
Set acceso = base.OpenRecordset("acceso", dbOpenDynaset)
End Sub

De todas maneras gracias por molestarte y ayudarme con esta duda ya que sin tu informacion no lo hubiera logrado.