Problemas con consultas de access

Tengo 2 tablas una que se llama Registros_mex con campo No_exp como llave principal y Id_solicitante como secundaria y Solicitante tienen el campo Id_solicitante como principal al momento de hacer mi select los datos que me arroja es que por cada id_solicitante de la tabla solicitante me muestra todos los No_exp algo así como esto
No_exp      nombre  apellido
Mex1 lan asakura
Mex2 lan asakura
Mex3 lan asakura
Mex1 juan perez
Mex2 juan perez
Mex3 juan perez
Ese mi problema no se si mi select este mal hecho pero aquí le pongo el código queuso para esa parte
As New ADODB. Recordset
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.Open "SELECT Registros_mex.No_exp, Solicitante.Nombre, Solicitante.Apellido_paterno, Solicitante.Apellido_materno FROM Solicitante, Registros_mex  ", BD, adOpenStatic, adLockOptimistic
Set DataGrid1.DataSource = rs
tambien ya intente esto
Dim rs As New ADODB.Recordset
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.Open "SELECT Registros_mex.No_exp, Solicitante.Nombre, Solicitante.Apellido_paterno, Solicitante.Apellido_materno FROM Solicitante INNER JOIN Registros_mex ON Solicitante.Id_solicitante = Registros_mex=Id_solcitante", BD, adOpenStatic, adLockOptimistic
Set DataGrid1.DataSource = rs
Y me dice que la expresión de combinación no esta admitida por favor espero me puedan ayudar
Respuesta
1
Que tal como te va...
Bueno amigo vamos a ver como nos va con el Query :D
Registros_mex  (No_exp,  Id_solicitante)
Solicitante  (Id_solicitante)
bueno Aqui hacemos el Query
Select Registros_Mex.Nro_Exp,Solicitante.Id_Solicitante
From Registros_Mex, Solicitante
Where Registros_Mex.Id_Solicitante = Solicitante.Id_solicitante
Aver como quedo el Query
        Set Rs = New ADODB.Recordset
        With Rs
            .CursorLocation = adUseClient
            .CursorType = adOpenDynamic
            .LockType = adLockOptimistic
            .Open "Select Registros_Mex.Nro_Exp,Solicitante.Id_Solicitante
From Registros_Mex, Solicitante
Where Registros_Mex.Id_Solicitante = Solicitante.Id_solicitanteSelect Registros_Mex.Nro_Exp,Solicitante.Id_Solicitante
From Registros_Mex, Solicitante
Where Registros_Mex.Id_Solicitante = Solicitante.Id_solicitante", Cn
        End With
Donde CON es la CONEXIÓN
Y para listarlo en el datagrid hacemos lo siguiente
Set Datagrid1.Datasource = Rs
Bueno amigo espero t sirva

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Llenar un DataGrid sin usar el Adodc

En un formulario tengo un control DataGrid para que al ejecutarse la aplicación me muestre un conjunto de registros. Al control ADODC no lo utilizo, realizo la conexión a la BD mediante código de programa. Bueno, resulta que cuando ejecuto la...
1 respuesta

Eliminar un registro de la bd y del datagrid en vb

Soy nuevo en esto, haber si me pueden ayudar estoy haciendo un sistema de facturación, donde despliega el datagrid cuando quiero dar de baja un registro. Por lo tanto hago un click en el data grid y quiero capturar la fila y eliminarla del datagrid y...
1 respuesta

Error al llamar datos de una tabla

Tengo el Siguiente código: Private Sub cboObra_Click() cboAnticipoDirigidoA.Text = "" cboLegalizacionNo.Text = "" Set Con = New ADODB.Connection With Con .ConnectionString = "provider = microsoft.ace.oledb.12.0;data source=D:\PROYECTO TYT\TYT.accdb"...
2 respuestas

Al eliminar un registro en la datagrid

Tengo un problemita al eliminar un registro en la datagrid.. Cuando yo selecciono dentro de la datagrid un registro se elimina el que no esta seleccionado, o sino no se elimina nada o si elimino abajo el ultimo registro se elimina el de arriba, o...
1 respuesta

Llamar a un formulario desde un datagrid para modif.

Tengo un form1 con los datos de una tabla cargados aun datagrid1 y quiero que al seleccionar un fila llame a otro formulario con los respectivos datos para hacerle las modicaciones al registro mi código esta así Dim BD As ADODB.Connection Dim...
1 respuesta

Consulta con conexión ADO

Estoy haciendo una conexión mediante ADO y cuendo en el formulario veo los registros y quiero modificarlo, eliminarlos hacer una búsqueda etc me sale el siguiente mensaje " EL recordset actual no admite actualizaciones.Puede puede ser una limitación...
4 respuestas

Comparar registros en tablas en visual basic

Necesito ayuda por favor explico el problema tengo una tabla llamada marca con los siguientes columnas clave marca y modelo, apart en visual basic 6 tengo 4 textbox text1, text2 text3 y text4, el asunto es los sig. En text1 escribe el usuario una...
1 respuesta

Dudas sobre ADO y Visual Basic 6.0

Me gustaría saber como puedo enlazar datos desde una "*.mdb" a un control datagrid para que pueda ver los datos en forma de tabla tal y como están en la bb. Dd. Lo he hecho con controles ADODC y me funciona pero me gustaría saber si también lo puedo...
4 respuestas

Vb6 datagrid y mysql

Tengo el siguiente código vb6 pero quiero que al hacer una consulua sql los datos de la consulta me los muestre en un datagrid pero la verdad estoy novato en esto espero me podáis ayudar Private Sub Command1_Click() Dim cnn_Conexion1 As Connection...
1 respuesta

Como llenar el datagrid

Soy usuario nuevo y tengo el siguiente problema. Tengo 2 datagrid; uno muestra una lista de opciones. Ese lo quiero cambiar por un textbox, el hecho es que el dato que cliqueo en el lo toma un textbox y este valor sirve como parámetro para filtrar...
1 respuesta