cambiar el orden de coger datos en un for each, del ultimo al primero

[manzarinaa]

Hola a todos!
Tengo este código:
sentencia = "Insert into " & tabla & " values('"
For Each crtlControl In formulario.Controls
If TypeOf crtlControl Is TextBox Then
sentencia = sentencia & crtlControl.Text & "', '"
End If
Next crtlControl
sentencia = Left(sentencia, Len(sentencia) - 3)
sentencia = sentencia & ")"
MsgBox sentencia
Es para dar un alta, en principio lo hace bien, lo que veo ahora es que el orden en que el foreach me coge los controles está al revésel primero me sale el ultimo y demás.
Hay manera de cambiar este orden??

[Txoco]

Hola otra vez!

No puedes cambiar el orden en que se enumeran, y además es arbitrario y poco fiable.

En su lugar, tienes que crear primero un array de controles, ordenarlo utilizando por ejemplo la propiedad TabIndex, y hacer la concatenación después, recorriendo el array.

[guille_el3]

Lo que puedes hacer es concatenarlos al reves.

Tu lo haces de la siguiente manera:

Código:

         If TypeOf crtlControl Is TextBox Then
            sentencia = sentencia & crtlControl.Text & "', '"
        End If

Y si tus text son:

A, B, C, al concatenarse quedan ABC

Si quieres que se forme CBA debes hacer algo como:

Código:

         If TypeOf crtlControl Is TextBox Then
             sentencia = crtlControl.Text & "', '" & sentencia
         End If

Fijate que ahi concateno sentencia al final.

Suerte!

[manzarinaa]

OH! mi salvador :P
ya lo pense.....pero no quierooo
llevo 5 dias con esta funcion y queria algo algo en vez de for each pues un for ouchhh y ya está jo si, me tocará hacerlo asi
me extraña que para dar altas en una base de datos no hayan inventado algo más sencillo
Gracias! me resigno, y me pongo a arreglarlo para que se ponga al revés

[guille_el3]

Ahhh! si tu problema es con la bd entonces tengo otra solucion mas linda :P

la sentencia insert se puede escribir de varias manera

Código:

INSERT INTO (TABLA) VALUES(VALOR_COL1, VALOR_COL2,....)

ó

Código:

INSERT INTO (TABLA) COLUMNS(NOMBRE_COLX, NOMBRE_COLY,..) VALUES(VALOR_COLX, VALOR_COLY,...)

De esa manera puedes hacer insert cambiando el orden de las columnas para que te sea mas cómodo (ten en cuenta que en la base no cambia el orden, solo es más comodo para hacer el insert), y hasta puedes hacer update con algunas columnas, no todas (mientras las que no pongas acepten el null).

Espero que te sirva, saludos!

[manzarinaa]

Mañana lo miro con calma, muchas gracias si sirve ya pondre algo por aqui, creo que podre poner en las tags los nombres de los campos, no? :P
Muchas gracias

[manzarinaa]

JO que función
que no me la ejecutaaaa
a ver si alguien ve el fallo por dios, que ya me va a dar algo
Dim campos As String
Dim valores As String
Dim sentencia As String
Dim crtlControl As Control

valores = " values('"
campos = " columns("
For Each crtlControl In formulario.Controls
If TypeOf crtlControl Is TextBox Then
If crtlControl.Tag = "Telefono" Or crtlControl.Tag = "idcli" Or crtlControl.Tag = "idpag" Then
valores = Left(valores, Len(valores) - 2)
valores = valores & crtlControl.Text & ", '"
Else
valores = valores & crtlControl.Text & "', '"
End If
campos = campos & crtlControl.Tag & ", "
'guardo la clave ajena
If crtlControl.Tag = "idcli" Then
claveAjena = CInt(crtlControl.Text)
End If
End If
Next crtlControl
'inserto la clave ajena
If tabla = "paginas" Then
campos = campos & "codcli_pag, "
valores = Left(valores, Len(valores) - 2)
valores = valores & claveAjena & ", '"
End If
valores = Left(valores, Len(valores) - 3)
valores = valores & ")"
campos = Left(campos, Len(campos) - 2)
campos = campos & ")"
sentencia = "Insert Into (" & tabla & ") " & valores & campos
MsgBox sentencia
frmNavegador.dbGestion.Execute "'" & sentencia & "'"
End Sub

[manzarinaa]

bueno claveAjena es publica está en el opcion explicit

[Txoco]

Si es para dar altas, ¿por qué no enlazas los controles con un DataControl, y utilizas el método AddNew del Recordset del DataControl?

Apenas te requeriría código y es el gestor de base de datos el que se encarga de claves y esas cosas.

[manzarinaa]

jo, por que eo ni se como se utiliza

[Avellaneda]

Hola manzarinaa,

Prueba así (las líneas comentadas son de tu código y las debes eliminar)

Código:

'valores = " values('"
'campos = " columns("
For Each crtlControl In Me.Controls
    If TypeOf crtlControl Is TextBox Then
        If crtlControl.Tag = "Telefono" Or crtlControl.Tag = "idcli" Or crtlControl.Tag = "idpag" Then
    '       valores = Left(valores, Len(valores) - 2)
            valores = valores & "'" & crtlControl.Text & "', "
    '    Else
    '        valores = valores & crtlControl.Text & "', '"
    '    End If
            campos = campos & crtlControl.Tag & ", "
        End If
        'guardo la clave ajena
        If crtlControl.Tag = "idcli" Then
            claveAjena = CInt(crtlControl.Text)
        End If
    End If
Next crtlControl
'inserto la clave ajena
If tabla = "paginas" Then
  '  campos = campos & "codcli_pag, "
  '  valores = Left(valores, Len(valores) - 2)
  '  valores = valores & claveAjena & ", '"
    campos = campos & "codcli_pag"
    valores = valores & "'" & claveAjena & "'"
End If
'valores = Left(valores, Len(valores) - 3)
'valores = valores & ")"
'campos = Left(campos, Len(campos) - 2)
'campos = campos & ")"
'sentencia = "Insert Into (" & tabla & ") " & valores & campos
sentencia = "Insert Into " & tabla & " (" & campos & ")" & " Values (" & valores & ")"

MsgBox sentencia

[Txoco]

Bueno, es mas fácil de lo que parece:

- Añade un DataControl al formulario y establece las propiedades:
* Databasename con la ruta completa hasta el fichero de access.
* Asegúrate que Connect tiene el tipo correcto de base de datos. Para acceder a Access 2000 necesitarás tener el Service Pack 6 instalado.
* En RecordSource pon el nombre de la tabla, o una instrucción SELECT si quieres restringir la consulta.

- En cada control textbox:
* Asigna en DataSource el nombre del DataControl.
* Asigna en DataField el nombre del campo que maneja ese textbox.

Y ya está: al ejecutar, te aparecerá directamente en el textbox el valor del campo, puedes cambiar de registro utilizando las flechas del datacontrol, y modificando el contenido del textbox, se actualizará la base de datos al cambiar de registro.

Para agregar un registro, tienes que llamar a (Nombre del DataControl).Recordset.AddNew

[manzarinaa]

el uso de la palabra clave me, no es valida, si cambio me por formulario solo me coge el primer campo

[manzarinaa]

vale voy a probar lo tuyo txoco

[manzarinaa]

donde esta el datacontrol???

[Avellaneda]

Me.Controls lo puse para hacer la prueba, si el Form se llama "formulario", sustituye Me por formulario.

¿Sólo te coge el primer campo? a mi me funciona perfectamente. ¿Los Tag estáan bien puestos?

[manzarinaa]

Hola avellaneda
es por este if
If crtlControl.Tag = "Telefono" Or crtlControl.Tag = "idcli" Or crtlControl.Tag = "idpag" Then
que es en el que controlo que si me esta entrando un campo numerico o no

[manzarinaa]

el data control es el data de la barra de herramientas??

[manzarinaa]

y estoy con DAO ¿puede ser?

[Txoco]

Hola!

Efectivamente, el acceso es DAO, pero para ADO funcionaría igual.

El DataControl aparece en la paleta de controles básicos, entre el Image y el contenedor OLE.

El uso del Tag te va a dar problemas en ese caso porque sólo admite números, no cadenas, si lo que quieres es comprobar si el texto sólo contiene números, la función IsNumeric(<cadena>) te devuelve un Boolean diciéndotelo.

[manzarinaa]

pero los nombres del campo son cadenas siempre, no? es lo que yo tengo en las tags

[manzarinaa]

de todos modos os pongo el error que me da por que yo creo que puede ser que no haya que darle tantas vueltas (que yo ya no se se si echarme a llorar)
el motor de base de daor microsoft jet no puede encontrar la tabla o consulta de entrada

[Txoco]

Ups, primero, corregirme, que el Tag sí que admite cadenas. De hecho, si le asignas un número, lo convierte

Para corregir el error que te da, comprueba que has escrito bien el nombre de la tabla en el RecordSource del DataControl. Te recomiendo que despliegues las combos en lugar de teclear, y si alguna te aparece vacía, es que alguna propiedad de las que te he dicho está mal configurada, por lo que tendrás que revisarlas.

Y no llores, que esto al principio es más paciencia que otra cosa

[manzarinaa]

si esto es sin el data control, como estaba antes.
el datacontrol lo he puesto y no entiendo como va
por que parece solo un campo ¿??¿?¿?¿?¿

[Avellaneda]

Iniciado por manzarinaa

Hola avellaneda
es por este if
If crtlControl.Tag = "Telefono" Or crtlControl.Tag = "idcli" Or crtlControl.Tag = "idpag" Then
que es en el que controlo que si me esta entrando un campo numerico o no

¿Y para qué quieres controlar si el campo es numérico, para poner o no las comillas simples entre el campo?

No es necesario, la instrucción INSERT INTO admite los valores numéricos tanto entre comillas como sin ellas.

Código:

For Each crtlControl In formulario.Controls
    If TypeOf crtlControl Is TextBox Then
        valores = valores & "'" & crtlControl.Text & "', "
        campos = campos & crtlControl.Tag & ", "
    End If
Next crtlControl

Sin necesidad de comparar campos.

[manzarinaa]

Y entonces por queeee

[manzarinaa]

[Avellaneda]

Pero...

¿Copiaste el código que puse?

Esa consulta está mal, el nombre de la tabla no debe de ir entre paréntesis y la palabra "columns" sobra.

[manzarinaa]

ya el codigo esta actualmente asi:
Public Sub AltaEnBBDD(ByRef formulario As Form, tabla As String)
Dim campos As String
Dim valores As String
Dim sentencia As String
Dim crtlControl As Control
valores = "'"
For Each crtlControl In formulario.Controls
If TypeOf crtlControl Is TextBox Then
If crtlControl.Tag = "idcli" Then
claveAjena = CInt(crtlControl.Text)
Else
valores = valores & crtlControl.Text & "', '"
campos = campos & crtlControl.Tag & ", "
End If
If crtlControl.Tag = "idcli" Then
claveAjena = CInt(crtlControl.Text)
End If
End If
Next crtlControl
If tabla = "paginas" Then
valores = Left(valores, Len(valores) - 2)
campos = campos & "codcli_pag"
valores = valores & claveAjena
Else
valores = Left(valores, Len(valores) - 3)
End If
campos = Left(campos, Len(campos) - 2)
sentencia = "INSERT INTO " & tabla & " (" & campos & ")" & " VALUES (" & valores & ")"
MsgBox sentencia
frmNavegador.dbGestion.Execute "'" & sentencia & "'"
End Sub
y sale el mismo error

[Avellaneda]

Veo que, efectivamente, no has copiado el código como lo puse.

Coloca el código de la respuesta #11 con la rectificación de la respuesta #25.

Las líneas que empiezan por una comilla simple y están marcadas en verde, hay que eliminarlas.