datos a un text

[Sergio18]

Hola,

Os cuento, yo tengo una base de datos de acces conectada a un msflexgrid con ADO, la tabla que tengo puesta se llama "Clientes", cuando yo doy al msflexgrid se añaden los datos a un formulario que he creado, tambien tengo relacionada la tabla "Clientes" con una que se llama "Pagos" en acces, entonces, lo que quiero es que cuando yo de al msflexgrid y se inserten los datos en el formulario quiero que me aparezca el 'Importe' que tienen que pagar en un text.

Campos de tablas:

Clientes: IdCliente,Nombre,Apellidos,Direccion,Ciudad,Provincia,Telef ono,CP.
Pagos: IdPagos,Importe,IdCliente,Descripcion,Fecha

Y tengo que hacer eso sin poder utilizar un bucle, solo con una consulta, de momento la tengo asi pero solo me añade el primer registro, y con todos lo clientes (cada cliente tiene un importe distinto o no tiene):


Esto esta puesto en el msflexgrid

Código vb:

Set cnPrueba = New Connection
'Establecer sus propiedades
     With cnPrueba
        .Provider = "Microsoft.Jet.oledb.4.0"
        .ConnectionString = "prueba.mdb"
    End With
cnPrueba.Open
           'Insertamos el importe de los clientes en un text
        Set rsPagosDevoluciones = New Recordset
        
        With rsPagosDevoluciones
            
            .Source = "Select importe from pagosdevoluciones where idcliente = idpagos"
            .ActiveConnection = cnPrueba
            .LockType = adLockBatchOptimistic
        End With
            rsPagosDevoluciones.Open Options:=adCmdText
            Text7.Text = rsPagosDevoluciones!importe
 

Saludos, espero haberme explicado bien

[Insomnia]

Hola

Me voy a centrar en la SELECT.

Lo primero que tienes que saber, es que tabla(s) necesitas para realizar la select y los datos que tienes.

Esta claro que quieres obtener el importe, por lo tanto necesitas la [bold]tabla Pagos[/bold], pero tienes que obtener el importe de un cliente (no el de todos), por lo tanto tienes que poner una condición WHERE comparando el cliente, lo que tienes que saber es que dato del cliente tienes, es decir, si tienes el idcliente o solo el nombre del cliente.

Si tienes solo el nombre tendrás que utilizar también la tabla clientes, por lo que te hace falta unir las dos tablas con un INNER JOIN.

Si tienes el idcliente, con una sola tabla será suficiente, pero en tu ejemplo comparas el campo de la tabla idclientes con el campo idpago (no le veo lógica) tendrás que compararlo con una variable que tengas en el form o en el grid.

Bueno, no te pongo código para que puedas ir haciendo pruebas, y lo más importante decide lo que quieres obtener y los datos de los que dispones.

--Saludos--

[Sergio18]

Hola Insomnia,

En efecto, lo tengo que hacer todo en la select y con inner join llevo la mañana provando combinaciones pero no me va, he echo esto:

Código vb:

.Source = "select importe from pagosdevoluciones inner join clientes ON clientes.idcliente = pagosdevoluciones.importe where importe = '" & Text7 & "'"
 

seleccion el importe de pagosdevoluciones(es "pagos") la combino con la de clientes y seleccion los dos que creo que con esos valdran.

Me dice que no coinciden los tipos de datos en la expresion de criterios

Saludos


PD: He echo mas combinaciones te he puesto esta porque es la que acababa de hacer

[Sergio18]

Si tienes el idcliente, con una sola tabla será suficiente, pero en tu ejemplo comparas el campo de la tabla idclientes con el campo idpago (no le veo lógica) tendrás que compararlo con una variable que tengas en el form o en el grid.

Tengo el idcliente en pagosdevoluciones y clientes (es la relacion que hay entre ellos) entonces no haria falta el inner join?¿

saludos

[Sergio18]

He echo esto ahora pero me sigue dando error:

Código vb:

"SELECT Pagosdevoluciones.Importe FROM Clientes INNER JOIN Pagosdevoluciones ON Clientes.IdCliente =  Pagosdevoluciones.IdCliente WHERE ((Clientes.IdCliente= '" & Text3 & "') AND  Pagosdevoluciones.Importe = '" & Text7.Text & "')"
 

Va mas o menos va por hay la cosa?¿

Saludos

[Insomnia]

Hola

Esta última versión tiene más sentido, seleccionas el importe, el inner join esta correcto (comparas los campos que unen las dos tablas) pero, que es lo que tienes en text3 y en text7 y de que tipo son? (texto, numérico,...)

--Saludos--

[Sergio18]

En text3.text esta el idcliente de tipo numerico y en el text7 es donde quiero insertar el importe de tipo numerico,tambien

Saludos

[Insomnia]

Hola

Es lo que te comentaba, si tienes el idcliente en el mismo formulario, no te hace falta la tabla clientes para obtener el importe, simplemente utiliza la tabla Pagosdevoluciones.

La condición del importe (text7) no tiene que ir en el WHERE ya que con eso le estas indicando que quieres obtener, el importe del cliente cuyo id sea igual al que pone en el text3 Y que tenga un importe igual al que pone en text7. Y eso no es lo que buscas.

--Saludos--

[Sergio18]

Entonces no haria falta usar el inner join ¿no? con una consulta normal valdria??

Código vb:

"select Pagosdevoluciones.Importe from pagosdevoluciones where pagosdevoluciones.IdCliente ((pagosdevoluciones.IdCliente= '" & Text3 & "')"
 

Da error
saludos

[Insomnia]

En el WHERE estas poniendo dos veces pagosdevoluciones.IdCliente, la sintaxis no es correcta.

[Sergio18]

Ya me acabo de dar cuenta, me ha dicho mi compañero que tengo que utilizar las funciones de agrupado de SQL, para que cuando yo añada un registro me apareza el total del importe que tenga el cliente

[Sergio18]

De momento llevo esto que da error pero es para ver si voy bien

Código vb:

"SELECT sum(Pagosdevoluciones.Importe) as sumitamia FROM Clientes INNER JOIN Pagosdevoluciones ON Clientes.IdCliente =  Pagosdevoluciones.IdCliente WHERE ((Clientes.IdCliente= '" & Text3 & "') group by importe"
 

saludos

[Insomnia]

Hola

Volvemos a lo de antes, todos los campos que utilizas los tienes en la tabla Pagosdevoluciones (no te hace falta utilizar dos tablas), lo de SUM es correcto, la condición WHERE esta medio bien (sobran los paréntesis, además abres dos paréntesis y solo cierras uno), pero piensa mejor por que campo puedes agrupar.

--Saludos--

[Sergio18]

Es que lo de las dos tablas me ha dicho que esta bien, por eso no las he kitao, lo del parentesis ya esta y he intentado agruparlo por idpagos e idcliente y me sigue dando error

Código vb:

"SELECT sum(Pagosdevoluciones.Importe) as sumitamia FROM Clientes INNER JOIN Pagosdevoluciones ON Clientes.IdCliente =  Pagosdevoluciones.IdCliente WHERE Clientes.IdCliente= '" & Text3 & "' group by idcliente"
 

saludos

[Insomnia]

OK, creo que en post anterior (el de las 2 páginas) te comentaba como tenían que ir las select dependiendo del tipo de datos, es decir, no es lo mismo poner una condición WHERE con un campo de texto que con uno numérico.

Espero que la pista te sea útil

[Sergio18]

Lo unico que he visto asi, a sido que no tenia las comillas simples se las he quitado y hacer lo mismo. Tambien he porbado a dejarlo asi : = & text3 y = text3 pero todos dan el mismo error te dejo este:

Código vb:

'Insertamos el importe de los clientes en un text
        Set rsPagosDevoluciones = New Recordset
        
        With rsPagosDevoluciones
            .Source = "SELECT sum(Pagosdevoluciones.Importe) as sumitamia FROM Clientes INNER JOIN Pagosdevoluciones ON Clientes.IdCliente =  Pagosdevoluciones.IdCliente WHERE Clientes.IdCliente= " & Text3 & " group by idcliente"
            .LockType = adLockBatchOptimistic
        End With
            rsPagosDevoluciones.Open Options:=adCmdText
            Text7.Text = rsPagosDevoluciones!importe
 

edito: Acabo de comprobarlo y es como lo tengo en el codigo, dado que text3 es numerico, he probado las formas que te he dicho y en la interrupcion me sale vacio pero con las comillas simples me sale el codigo que selecciono

saludos

[Insomnia]

Revisa la estructura de la sentencia SQL donde tiene que ir el GROUP BY y con que va el GROUP BY, es decir, si utilizas GROUP BY no se suele utilizar WHERE para marcar la condición, se utiliza otra función.

[Sergio18]

Ok ya esta lo dejo aqui:

Código vb:

Set rsPagosDevoluciones = New Recordset
        
        With rsPagosDevoluciones
            .Source = "SELECT sum(Pagosdevoluciones.Importe) as sumitamia FROM Clientes INNER JOIN Pagosdevoluciones ON Clientes.IdCliente =  Pagosdevoluciones.IdCliente WHERE Clientes.IdCliente = " & Text3 & ""
            .LockType = adLockBatchOptimistic
            .ActiveConnection = cnPrueba
        End With
            rsPagosDevoluciones.Open
            Text7.Text = rsPagosDevoluciones!sumitamia
 

He quitado el group by,he añadido el activeconnectio que por eso me marcaba siempre el mismo error y de mede añadir la columna importe he añadido sumitamia.

Muchas Gracias como siempre Insomnia,

He intentado mandarte las cervezas por Mp pero estallo el ordenador .

Saludos

[Insomnia]

Me alegro

Y si no me equivoco aún se podía reducir un poco más:

SELECT sum(Importe) as sumitamia FROM Pagosdevoluciones WHERE Clientes.IdCliente = " & Text3 & ""

--Saludos--

[Sergio18]

Buenos dias Insomnia

El codigo reducido lo he probado y no va, pero no pasa nada te lo agradezco =mente. Pero tengo una duda, tengo que hacer que cuando yo de a un registro y este no tenga importe de mede salirme un error null no me haga nada simplemente añada lo que hay, he probado con is null, pero no se si esta bien definido, te lo dejo:

Código vb:

If IsNull(rsPagosDevoluciones("Importe")) Then
            Text7.Text = ""
            End If
 

Saludos

[Insomnia]

Hola

Tienes razón, si te fijas en el código corto mio, he realizado una referencia a la tabla clientes (que no hace falta), creo que lo correcto sería:

SELECT sum(Importe) as sumitamia FROM Pagosdevoluciones WHERE IdCliente = " & Text3

Respecto a como comprobar si el recordset esta vacío, prueba con

Código vb:

If rsPagosDevoluciones.EOF and rsPagosDevoluciones.BOF then 'El recordset esta vacío
   Text7.Text = ""
End if
 

--Saludos--

[Sergio18]

Hola el codigo reducido ya va, gracias por eso, el if me sigue haciendo lo mismo que yo he estado haciendo me añade los registros con datos sin problemas pero al seleccionar uno sin datos me da error 94 : "uso no valido de null"
He probado poniendo isnull pero tampoco

Código vb:

If IsNull(rsPagosDevoluciones.EOF And rsPagosDevoluciones.BOF) Then
            Text7.Text = ""
            End If
 

Tambien he probado esto y hace lo mismo:

Código vb:

If IsNull(rsPagosDevoluciones) Then
            Text3.Text = ""
            Exit Sub
            End If
 

Tambien he declarado una variable (sumitamia) como variant y hace lo mismo:

Código vb:

If sumitamia = Null Then
            Text3.Text = ""
 

Saludos

[Insomnia]

Pues la verdad es que no se, pensaba que utilizando EOF y BOF funcionaría. No es la mejor forma, pero intenta añadiendo la siguiente linea despues de abrir el recordset:

On error resume next

Con esta linea lo único que hace es que si se produce un error continua con la ejecución del programa sin hacer caso del error. No es lo optimo, ya que no controlamos el error, pero en algunas ocasiones...

--Saludos--

[Sergio18]

Ok ya esta

Código vb:

If IsNull(rsPagosDevoluciones!sumitamia) Then
                Text7.Text = " "
            Else
                Text7.Text = rsPagosDevoluciones!sumitamia
            End If
 

Asi va perfecto
Saludos

[Insomnia]

OK !!!

No me había dado cuenta que lo que estaba mal era la referencia al dato del recordset, "rsPagosDevoluciones("Importe")" no es valido, también puedes poner rsPagosDevoluciones.fields(0), me había cegado con que lo que estaba mal era que no funcionaba el isnull

--Saludos--

[Sergio18]

Si es que las respuestas estan delante de nuestros ojos pero hasta que nos damos cuenta lo flipas el estres que causa

Saludos