Visual Basic - Conexion de VB 6.0 a Access

Hola espero que me puedan ayudar tengo un problema con una conexion a Acces con VB 6.0 en la BD en Acces tengo 5 tablas y la conexion q ago de VB a Acces con el asistente si me sale satisfactoreamente pero el problema es cuando quiero ligar mis cajas de texto con el Adoc no me lo hace bueno en la caja de texto elijo la propiedad dataSource y eligo el Adoc 1 pero a la hora de ir a la propiedad dataField para elegir el campo de la tabla que corresponde me envia un mensaje de error me dice q verifique el nombre o ruta del documento q pueden estar incorrectos pero ya los verifique y estan bien no se pork con mas de una tabla no me hace la conexion pork ya lo hice con una tabla en la BD y si lo hace perfectamente pero si le agrego mas tablas a la base no me sale. Espero q me puedan ayudar.

con ADODB
Sub ( NOMBRE DE LA TABLA )()
With RsNOMBRE DE TABLA
If .State = 1 Then .Close
.Open "SELECT *from nombre", base, adOpenStatic, adLockOptimistic

End With
End Sub
en un modulo

y en la coneccion:

Global base As New ADODB.Connection
Global RsUsuarios As New ADODB.Recordset
'Global Rsnomre As New ADODB.Recordset
Global Rs1 As New ADODB.Recordset
'Global Rs2 As New ADODB.Recordset

cuantas quieras.

Bueno esta bien lo del modulo pero lo de la conexion eso donde lo pongo enque parte del codigo del formulario?

Los dos lo pones en modules separados

Te explico mejor

Modulo1:

Sub main()
With base
.CursorLocation = adUseClient
.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:Documents and SettingsuserEscritorioBaseBASE.mdb;Persist Security Info=False"
PrincipalForm.Show ( ESTO ES DE UN LOGUIN SI PONE TODO BN TE LLEVA ACA)

End With
End Sub

Sub usuarios()
With RsUsuarios
If .State = 1 Then .Close
.Open "SELECT *from Usuarios(name de la tabla de acces) ", base, adOpenStatic, adLockOptimistic

End With
End Sub

Modulo2:

Global base As New ADODB.Connection

Global RsUsuarios As New ADODB.Recordset RSUSUARIOS EN MI CASO

y si qures hacer el loguin

With RsUsuarios
.Requery
.Find "id='" & Trim(txtuser.Text) & "'"
If .EOF Then

If !clave = Trim(txtpass.Text) Then
PrincipalForm.Show
Unload Me

ID = Es dentro de la tabla Usuarios uno de los cambos igual que clave

si qures hacer venta de lapiseras y cargarlas a la base:

With RsLAPICERA ( EJEMPLO)
.Requery
.AddNew
!nombre = txtporductononre.Text ( LOS !NOMBRE, son los que estan
!clave = txtCLAVE.Text dentro de access y el txtedad.text es
!precio = txtnombre.Text la caja de texto del formulario para
!asdada = txtapellido.Text cargar los datos.
!asddasdasdas = txtedad.Text
!asdasdasdasd = txttelefono.Text

.Update
.Requery

End With

oye tio intente hacer el aplicativo y me bota error en lo de With RsLAPICERA ( EJEMPLO) me dice algo de no se que de un ojeto o algo asi

hola muy buenos dias, soy un chico nuevo en esto de la programacion, de verdad no se como hacerlo, pero necesito un codigo que me pueda ayudar a realizar lo siguiente:

tengo que hacer en access una tabla llamada usuarios: en dicha tabla van los siguientes campos.

Id (para saber si es administrador o no)
nombre
apellido
login
password

y despues debo hacer en visua basic un diseño de un formulario para entrar a X formulario o mejor dicho, si es admnistrador pasar a un formulario y si no lo es a otro formulario. por ejemplo:

debo colocar en el form1. dos (2) etiquetas o label, una con el caption "login" y la otra con el caption "password"

tambien debo colocar 2 cajas de texto o text1 y text2. en estas es que debo ingresar el login y el password (que se supone que debe estar en la tabla usuarios, para poder acceder al sistema)

y colocar 2 botones, botonSalir y botonAcceder

el codigo del boton salir ya se que es: end, pero el boton de acceder no se como realizar el codigo.

se que tengo q conectar la base de datos access 2000 a visual basic y no se como

luego comparar lo escrito en las cajas de texto (login y password) con los campos de la tabla usuarios de la base de datos que supuestamente realize en access 2000 y tampoco se como, y mucho menos se como va escrito el codigo para que el visual sepa si es admnistrador o no...

si tienes algo que me pueda ayudar para resolver el codigo del boton acceder te lo agradeceria,

o no se si puede mandarme un ejemplo de registro de usuarios y validacion de los mismos... solamente quiero los codigos o los pasos de como hacer el boton acceder, valindando que tipo de usuario es, y si el login y el password son correctos

Si me puedes ayudar te lo agradeseria de todo corazon.

Victor: Dime si haz resuelto ya que estoy en la misma situación y he encontrado este mensaje tuyo en el google

SI AFORTUNADAMENTE YA ENCONTRE LA SOLUCION A MI PROBLEMA

Hola Victor.

Tengo el mismo problema, por favor me puedes regalar el codigo de solución.

Cordialmente,

Hola Victor.

Tengo el mismo problema, por favor me puedes regalar el codigo de solución.

Cordialmente,

Hola , tengo una duda con respecto a los ADODC,es necesario colocar en un formulario donde estan relacionadas varias tablas, un ADODC por cada tabla??

No es necesario hacer eso mira te paso mi correo para q me expliques bien q onda y te ayudo ok

[email protected]

hola soi maholi quiero hablar con tigo pronto

me podrias pasar el codigo fuente con el que solucionaste el login por favor

Solo la conexion de vb 6.0 a access Ayudaaaaaaaaaaaaa

Bueno eso es muy facil solo tienes q utilizar el asistente de conexion de visual q te ofrese el ADODC eso lo ves en las propiedades del adodc

Quisiera por favor si alguien me puede pasar la coneccion de BV6 con ADO pero con PDSAToolSet 6
o mejor aún si me pudieran pasar los archivos que se instalan con el PDSAToolSet 6 en archivos de programa, estoy muy necesitado de este software, por favor alguien que me lo envie atte Edgar

Enviame el proyecto a ver que es lo que pasa. o pasame la BD nada mas a ver en que te puedo ayudar.



Sin mas por el Momento se Despide.

LUIS A FRANCO R
INGENIERO DE SISTEMAS
EMAIL: [email protected]
TLF: 0426-5821929
PIN: 79F120E2
INSTAGRAM: FRANCO776
TWITTER: @FRANCO776

Eso de usar los asistentes, es para jugar, pero si es para trabajar en serio, esos asistentes, y pasarse enlazando tantos controles, es una verdadera pérdida de tiempo.

Lo mas sensato sería algo mas o menos así:

Saludos cordiales