Conexion tipo ODBC para Access

[kikevar]

Hola de nuevo y gracias por toda la ayuda que me han brindado.

Quisiera hacer una coneccion tipo odbc pero para acces, no se como crearla o si puedo utilizar el administrador de origen de datos de windows, no se como llamrlo ni donde guarda esa in formacion para usarla en mi aplicacion creada en visual basic 6, a de mas de que si me pueden decir como mandar llamar esta con figuracion en cada una de mis conecciones en los formularios a la bd access.

Espero averme explicado

Gracias de antemano

[ValentinoMolinari]

Yo no te entendi mucho que digamos amigo..... pero puedo sugerirte una forma muy segura de coneccion a access y muy eficiente.....
Creas un Módula Llamado Inicial o como se te ocurra y colocas dentro el sigiuiente código

Option Explicit
Public TipoMov As Integer
Public gTxtHelp As String
Public Operador As String
Public cn As ADODB.Connection
Public Comando As ADODB.Command
Public StrAux As String
''creo variable para consulta
Public STRSQL As String
''creo variable para update
Public StrUpdate As String
''creo variable para insert
Public strInsert As String
Public Record As ADODB.Recordset
Public Rs As ADODB.Recordset
Public RsAux As ADODB.Recordset
Public FncAux As ADODB.Recordset
'Public fMainForm As MDIForm1
'Private LCID As Long ' LCID del idioma actual
'Global lbl As String
'Public strserver As String
Public ConData As String

Public strcn As String


Public Sub main()

strcn = App.Path & "\fmdig.mdb" 'Nombre de la Base de Datos
On Error GoTo ErrAbr
ConData = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & strcn & ";"
Data.ConDigital.Open ConData
Set cn = New ADODB.Connection
cn.CursorLocation = adUseClient
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & strcn & ";"

Set Comando = New ADODB.Command
Comando.ActiveConnection = cn
'Data.Commands(1).ActiveConnection = ConData
Set FncAux = New ADODB.Recordset ' Solo para funciones
FncAux.ActiveConnection = ConData
ErrAbr:
If Not Err.Number = 0 Then
MsgBox "Ocurrió un error al abrir la base de datos" & Err.Number, vbCritical, "Horror Fatal!!!!!!!"
End
End If
FrmSeguridad.Show 'Formulario Inicial de mi sistema
End Sub


y en las propiedades del proyecto configuras que levante del sub main y de ahí llamas a el formulario principal
espero te sirva saludos

[Avellaneda]

Iniciado por kikevar

Hola de nuevo y gracias por toda la ayuda que me han brindado.

Quisiera hacer una coneccion tipo odbc pero para acces, no se como crearla o si puedo utilizar el administrador de origen de datos de windows, no se como llamrlo ni donde guarda esa in formacion para usarla en mi aplicacion creada en visual basic 6, a de mas de que si me pueden decir como mandar llamar esta con figuracion en cada una de mis conecciones en los formularios a la bd access.

Espero averme explicado

Gracias de antemano

Hola, para crear una conexión Access con el driver ODBC:

miMDB = "c:\MisAplicaciones\Bases de datos\LaBase.mdb"
Set cn = New ADODB.Connection
cn.Open "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & miMDB & ";Uid=Admin;Pwd=;"

Si la BD tiene contraseña, se la pones: ...Pwd=Micontraseña;"

[kikevar]

Hola gracias por sus respuestas pero en verdad sigo sin entender muy bien, soy totalmente novato y empirico en esto de la programacion, tambien creo que no me di a entender muy bien con lo que quiero hacer.

Me refiero a hacer cmo el odbc en donde guardo la configuracion ade la coneccion en donde le digo la ruta donde esta la bd y que driver usa para conectarce y demas cosas y que de ahi tome mi programa la info para trabajar la cosa es que la bd esta en un servidor y la maquina se conecta a este y por supuesto tengo todas las conecciones dirigidas a este server, pero al parecer lo quieren poner en otra empresa del grupo y pues tendria que cambiar manualmente todas las conecciones y pues quiero vitar esto, por eso pense en usar algo asi como el odbc mysql.

Pero como les comento soy muy nuevo en esto pues si necesito alguna explicacion mas en espesifico.

En verdad estoy muy agradecido por toda su ayuda.