Visual Basic - Nuevo error en SELECT

Nuevo error en SELECT

Publicado por JAVIER (6 intervenciones) el 22/01/2018 13:16:17

Set TbDeclarados = Db.OpenRecordset

("SELECT String(9 - Len(NfTitular),'0') & NfTitular AS NifTitular, First(ApTitular) AS ApellidosTitular, First(NmTitular) AS NombreTitular, Sum(Recibo) AS Importe

FROM " & TbEjercicio & "

GROUP BY String(9 - Len(NfTitular), '0') & NfTitular")

¿Quién me puede ayudar con la redacción anterior?. Creo que el error está en String, concretamente en las comillas del 0

Muchas gracias

Valora esta pregunta

Me gusta: Está pregunta es útil y esta clara

No me gusta: Está pregunta no esta clara o no es útil

Responder

Pos: 1

Val: 3.117

Nuevo error en SELECT

Publicado por Andres Leonardo (1799 intervenciones) el 22/01/2018 15:00:40

que pretendes hacer con el string esto es un tipo de datos .... que motor usas ???

espero poderte ayudar

Saludos

Valora esta respuesta

Me gusta: Está respuesta es útil y esta clara

No me gusta: Está respuesta no esta clara o no es útil

Comentar

Pos: 2

Val: 1.259

Nuevo error en SELECT

Publicado por Antoni Masana (565 intervenciones) el 23/01/2018 07:00:48

Como dice Andres: ¿Que pretendes hacer?

Yo tampoco lo tengo clero pero si veo un error evidente.

Set TbDeclarados = Db.OpenRecordset

("SELECT String(9 - Len(NfTitular),'0') & NfTitular AS NifTitular, First(ApTitular) AS ApellidosTitular, First(NmTitular) AS NombreTitular, Sum(Recibo) AS Importe

FROM " & TbEjercicio & "

GROUP BY String(9 - Len(NfTitular), '0') & NfTitular")

En la segunda linea hay un error. Lo correcto seria esto

TxtTitular = String(9 - Len(NfTitular),'0') & NfTitular

Set TbDeclarados = Db.OpenRecordset("SELECT " & txtTitular & " AS NifTitular, " & _

                                          First(ApTitular) & " AS ApellidosTitular, " & _

                                          First(NmTitular) & " AS NombreTitular, " & _

                                               Sum(Recibo) & " AS Importe" &

                                   " FROM " & TbEjercicio & _

                                   " GROUP BY String(9 - Len(NfTitular), '0') & NfTitular")

Has de diferenciar lo que es texto SELECT de lo que es código de programa String(9 - Len(NfTitular),'0') & NfTitular

En el primer caso el SELECT un Nif de titular que se llama String(9 - Len(NfTitular),'0') & NfTitular
En el segundo caso 000007647 por que esta fueda de las comillas y se evalua.

Para entenderlo mejor prueba esto:

MsgBox "SELECT String(9 - Len(NfTitular),'0') & NfTitular AS NifTitular, First(ApTitular) AS ApellidosTitular, First(NmTitular) AS NombreTitular, Sum(Recibo) AS Importe FROM " & TbEjercicio & " GROUP BY String(9 - Len(NfTitular), '0') & NfTitular"

MsgBox "SELECT " & txtTitular & " AS NifTitular, " & _

                                          First(ApTitular) & " AS ApellidosTitular, " & _

                                          First(NmTitular) & " AS NombreTitular, " & _

                                               Sum(Recibo) & " AS Importe" &

                                   " FROM " & TbEjercicio & _

                                   " GROUP BY String(9 - Len(NfTitular), '0') & NfTitular"

Saludos.
\\//_

Valora esta respuesta

Comentar