Como conectar visual 6.0 con access 97

Cerrado
ppiante - 8 ene 2009 a las 20:46
 emma - 6 jun 2012 a las 19:16
Hola,
Estoy tratando de crear un base de datos en access 97 con visual 6.0, pero no se como realizar la conexion entre ambas, ademas la informacion ingresada debe compartirse en red, he leido sobre ADO pero no me queda claro que és y si realmente me sirve para lo que necesito, probé agregando el el control Adodc y conectandolo con cada textbox y me aparece la informacion pero no se como agregar una fila nueva, ni guardar el registro nuevo, ni realizar busquedas. Ademas tengo otras otras dudas
1. ¿para que me sirve un modulo?¿puedo realizar la conexion a través de él?¿y como?
2. Que es sql? para que sirve?
3. Yo estoy diseñando en access 97 y visual 6.0 ¿tendré problemas si despues llevo el ejecutable a un pc que tiene access 2003?
4. Como hago para hacer la programacion en mi pc y despues llevarlo a los pc que trabajan en red?

Ojala pudieran ayudarme porque por mas libros que he leido aun no logro comprender bien esto.

13 respuestas

Bueno para poder conectar una base de datos de acces con visual basic 6.0 la tienes que hacer de la siguiente manera:

1er. Paso: Si ya tienes hechas tus tablas hechas en acces en este caso puedes hacerlas en acces 2003 y guardarlas pero puedes convertirlas en "herramientas"--->"utilidades de la base de datos"--->"convertir base datos"--->"a formato de archivo acces 97".
2o Paso: Como segundo paso ahora bien tienes que conectar tu base de datos desde el odbc que son los origenes de la base de datos de windows o mejor dicho lo que te permite conectar la base de datos de acces 97.

3er Paso:bueno el siguinete paso es conectar tu base de datos desde el odbc que se haria de la siguiente manera:

1.- Inicio
2.- Herramientas Administrativas
3.- Origenes de Datos de ODBC (Doble click)
4.- Elegir la primera opcion (Base de datos de Visual Fox Pro)
5.-Te va a aparecer una ventana que dice crear nnuevo origen de datos, eliges la segunda opcion "Driver do Microsoft acces (*.mdb), le damos en finalizar.
6.- Te aparecera una ventana para que busques tu base de datos y y le pongas un nombre para poder jalarla desde visual basic. Bueno le das en seleccionar, luego buscas en donde guardaste tu base de datos y le das aceptar, luego saldra de esa ventana y te pondra la anterior dale aceptar a todo lo demas y listo habras cobnectado tus tablas de acces con visual basic, ahora solo te quedara jalarlas desde visual para poder jalar esas tablas y habra quedado listo.

4o Paso: Te vas me paraece a una opcion de Datasource y luego busca una opcion desde donde esta el proyecto y buscas el nombre de los campos que tienen tus tablas de acuerdo a lo que quieres quer haga desde los command que tengas en tu base de datos de visual o mejor dicho el diseño.


espero mandarte luego un tutorial para que lo entiendas mejor pero esto es un avance de lo que puedes hacer con visual y acces asi es que no te preocupes, esta explicacion te la doy a ala ligera pero luego te mando un archivo completo y les dejo mi correo para cualquier duda o aclaracion.
alan_ara6@hotmail.com....hasta la vista ya saben a donde contactarme muchachos...bye y hasta la proxima.
21
Hola, quería saber si podía agregarte a msn para que me des alguna pista de lo que me falta con la base de datos.

De antemano muchas gracias,
0
Hola por favor necesito saber como conecto una base de datoas Acess 2007 con vb 6.0...espero tu repuesta gracias....
0
jeje nunca he programado para visual fox y ahorita tengo que emigrar un sistema de fox a visual basic alguien me podria ayudar con los basics
0
gracias pero no me sirvio de nada
0
A.......... si puedes publicar un link del tutorial sería genial.
0
Public Cn As New Connection
Public rs As New Recordset
Public Rstemp As New Recordset
Public CodBus As String

Public Sub Conectar()
Cn.Provider = "Microsoft.Jet.Oledb.4.0"
Cn.Open (App.Path + "\base\vac_jer.mdb")
End Sub
Public Sub llenarcombo(c As ComboBox, t As String, col As Integer)
If Rstemp.State = 1 Then Rstemp.Close
Dim Sql$
Sql = "select * from " + t
Rstemp.Open Sql, Cn, adOpenStatic, adLockOptimistic
Do While Not Rstemp.EOF
c.AddItem Rstemp(col)
Rstemp.MoveNext
Loop
Rstemp.Close
End Sub
Public Sub limpiar(f As Form)
Dim c As Control
For Each c In f
If (TypeOf c Is TextBox) Or (TypeOf c Is ComboBox) Then c.Text = ""
If TypeOf c Is OptionButton Then c.Value = False
Next
End Sub


Public Function BuscarDato(Tabla As String, Campo As String, Cond As String, Ncol As Integer) As String
Dim Sql$, Rstemp As New Recordset
Sql = "Select * From " + Tabla + " Where " + Campo + "='" & Cond & "'"
Set Rstemp = Cn.Execute(Sql)
If Not (Rstemp.EOF) Then
BuscarDato = Rstemp(Ncol)
Else
BuscarDato = ""
End If
Rstemp.Close
End Function

Public Sub main()
Call Conectar
INICIO.Show
End Sub

Public Function BuscarDatoNum(Tabla As String, Campo As String, Cond As String, Ncol As Integer) As String
Dim Sql$, Rstemp As New Recordset
Sql = "Select * From " + Tabla + " Where " + Campo + "= " & Cond & " "
Set Rstemp = Cn.Execute(Sql)
If Not (Rstemp.EOF) Then
BuscarDatoNum = Rstemp(Ncol)
Else
BuscarDatoNum = ""
End If
Rstemp.Close
End Function
18
Hola para conectar VB con acces 97 solo tienes que dibujar en el formulario un componente llamada DATA y donde dice coneccio String, Microsoft Jet (Version 3.***) y listo
4
Gracias
0
yo lo realice con acces 2007 y quedo asi

Dim ruta As String'variable para guardar la ruta de la base de datos
'-------Definimos parametros de conexion a la base de datos
ruta = App.Path & "\siscorss.accdb"
base.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source= " & ruta & ";"
4
tas toda wey
0

¿No encontraste la respuesta que buscabas?

Haz una pregunta
hola
como puede conesctar una base de dato en access 2007 a visaul basic 6.0 tengo que convertirla pero no se como?
3
bueno sobre usar el ADO, los puedo ayudar ya que he programado antes, solo ingresen el msn y les envio lo que tienen que ase
3
Amigo.. necesito de tu ayuda urgentemente.. necesito hacer un programa de Requerimientos algo asi como un helpdesk, si me puedes ayudar te lo agradecería.
0
DoZeR > LuisMiguel
15 dic 2009 a las 14:08
No sé si aún necesitas la información, pero lo diré de todas maneras:

Ya tenías casi todo listo, lo que te faltó es saber que el ejecutable de la aplicación debe estar en cada uno de los equipos que utilizarán la base de datos (BD), en el ejecutable debe tener la ruta de la BD, la cual deberá estar en un equipo con la carpeta compartida con acceso de lectura y escritura y eso es todo. Para que te quede más ordenado, puedes instalar hasta un equipo de bajas prestaciones como servidor de archivo y el disco D lo compartes y lo configuras en el resto de los equipos como disco de red con la letra Z y para llegar a la carpeta compartida solo debes usar la ruta tal y como la muestra el explorador de windows cuando accede al disco compatido Z mencionado.

Mira, algo que puedes hacer y de manera super simple que funciona es lo siguiente:

Dim Ar as DataBase, Rs as Recordset
Set Ar = OpenDataBase("ruta de la BD, ejemplo Z:\admin\gestion.mdb")
Set Rs = Ar.OpenRecordset("nombre de la tabla contenida en la BD")

Con estas simples 3 líneas de instrucciones ya puedes abrir una Podrás usar instrucciones SQL de consulta, Addnew, Edit y Delete para manipular registros, etc. No es muy científico pero funciona hasta con 3 usuarios sin problemas en una aplicación local pequeña, para más usuarios y una red más grande, debes hacer una de las conexiones que te indican otros colegas más arriba.

Si te da algún error como "No se puede crear el objeto" o algo parecido, la solución es simple para que no te compliques con parches ni otras cosas, simplemente instala el Access 97 en el equipo que da el problema ya que este error aparece cuando un equipo tiene instalado el Office pero no tiene el Access con las DLL requeridas.

Saludos y espero les sirva.
0
Amigo no soy experto, pero te recomendaria en lo pisble que intentes utilizar sql server o mysql. Es mas complicado, pero vale la pena hacer las cosas bien hechas, es una humilde opinión de un novato.
2
Primero lee un manual de ADO + Bases de datos. Luego busca ejemplos que hay muchos en internet . Csaludos
1
Bueno creo que sabes muy poco para que puedas hacer ese programa. No sabes ADO ni SQL , asi se complica

Sería mejor que antes busques y leeas un manual, que hay muchos por iternet

te envio algunos enlaces

Manual de sql básico
http://www.abcdatos.com/tutorial/visualbasic-access-sql.html

Manual de SQL y el componente ADO
https://www.recursosvisualbasic.com.ar/htm/menu-principal/manuales-articulos-tutorial.htm

Espero te sea de utilidad
0
Muchas muchas muchas gracias a todos!!!!, logre hacer la base de datos con visual...ahora solo me queda ver si estos funcionan en red.
Copié la carpeta que contenía la bd y visual en un pc en el disco c y luego compartí la carpeta con otros 2 pc que estan en red e hice un acceso directo de los archivos en estos 2 pc pero no puedo abrir el ejecutable de visual, me aparece un error que dice algo como.."No se puede comprobar el fabricante ¿está seguro de ejecutar el software? y cuando pongo aceptar visual no se puede conectar con la base de datos y no logro obtener la información que hay en ella. Me dijieron que visual era solo para usarlo en 1 pc y no multiusuario, que podía tener conflictos para que dos personas hagan modificaciones o esten utilizando la bd al mismo tiempo...¿que hay de cierto en eso??.
Ayudenme porfa que hace meses que estoy en esto y ya me queda tan poquito...

Se les agradece mucho mucho
0
Si, ADO te sirva perfectamente para acceder y conectar bases de datos en vb, es mas , no hay otras cosa para hacerlo jajaja
0
ve el ejemplo que te ofrece el ms access esto es ,
de la empresa Neptuno. Te va ayudar a ver las tablas,
formularios e informes en ese ejemplo
-1
tienes que usar la siguiente cadena de conexión

db.Open "PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=" & Ruta & ";"
-2