Mensajes

Hola, veran tengo que hacer un consulta SQL del tipo

Código [Seleccionar] Expandir

"Select * From Flores WHERE Estado IN ('Pendiente','Enviado,'Entregado','Anulado')"


Los datos los cojo de 4 Check's. Mi difcultad esta en obtenerlos ya que tengo que hacer varios IF's ....

Código [Seleccionar] Expandir

IF Check1=1 And Check2=1 AND Check3=1 AND Check4=1
IF Check1=1 And Check2=0 AND Check3=1 AND Check4=1
IF Check1=1 And Check2=0 AND Check3=0 AND Check4=1
IF Check1=1 And Check2=0 AND Check3=0 AND Check4=0
.
.
.
....como veran boy haciendo muchos IF para cada caso, cosa que me enrreda. Hay alguna manera mas simple de hacer esto?

Hola, a todos. Saben de tanto wear se me ocurrió hacer esto. Y la verdad si me devuelve la ID que quiero.

Código [Seleccionar] Expandir

Dim RS As New Recordset
Dim NuevoID As Long
RS.Open "Clientes", DBConex, adOpenStatic, adLockOptimistic
RS.AddNew
      NuevoID = RS!ID  ' como la ID ya se autogeneró aprovecho para cogerla :)

      RS!Nombre = Text1
      RS!Atellidos = Text2
RS.Update
RS.Close
Set RS = Nothing

Al poner el Rs.AddNew creamos un nuevo registro, y como la ID es autonumerico pues será el primero en generarse, cosa que aprovecho para cogerlo con la variable NuevoID y continuo ingresando datos en los demas campos. Pero tengo dudas o mas bién en que casos me daria error.

Chispas, la frase "mi cadena conexion", crei que lo enviaba como un parametro al ingresar un nuevo registro y luego con ese parametro me diria la ID que se generó.

La verdad, es que eso no sirve. xq, si hay varios usuarios que hicieron el mismo ingreso veo muy dificel que reciba la ID correcta. Supongo que para que eso funcione antes de ingresar el nuevo registro tendría que:

1.- Bloquear la Tabla (para que nadie ingrese ningun registro)
2.- Ingresar el registro
3.- Obtener el Ultimo registro ingresado
4.- Desbloquear la Tabla

De esta manera creo que cada usuario recibiria la ID correcta del registro ingresado. Pero todo esto es mucho codigo. En relidad me preguntaba por algo profesional, de esas que utilizan las grandes empresas. Supongo que tambien se habran topado con un lío como este, no?

Hola, XcryptOR. Me podrías explciar esto, xq me parece interesante el código.

Supongamos que tengo la tabla Clientes con dos campos ID (Autonumerico) y Nombre (Char)

Paso1
Inserto un registo.
Dim Rs As New Recorset
Rs.Open "Clientes"
Rs.AddNew
Rs!Nombre = TheGhost(Z)
Rs.UpDate
Rs.Close

Ahora: como obtengo esa id, conciderando que unos x usuarios estan ingresando datos al mismo tiempo.

[Recibir el último ID de una inserción]

Lo que deseo es: Recibir el último ID de una inserción. Practicamente algo igual como se ve aqui: http://www.desarrolloweb.com/articulos/1433.php

[Albaran]

Hola, amigos.

Veran, tengo una base de datos con tablas Albaran y RecibosDePago. y las ID's de cada tabla son autonumericas. Pues mi problema esta en que al crear un Albaran tambien tengo que crear un ReciboDePago, pero mi problema esta que como relaciono el Albaran con RecibosDePago, si cada uno generan sus ID automáticamente.

he pensado en una ves guardado el albaran, ya se genera la ID. y esta ID tendria que asignarla al ReciboDePago. Pero para eso tendría que cerrar el albaran, luego buscarlo y abrirlo. cosa que asi ya sabria el ID que se asigno a mi albaran. luego recien crear el ReciboDepaGO.. pues como veran estoy hecho un lio.. ayuda porfavor..

Hola tengo un DataReport con datos y en una parte quiero que se muestre un codigo de barras. Para ello estoy Usando el Tipo de Fuente Interleaved 2 de 5.

Pero al cargar en el formulario me sale un error:

Código [Seleccionar] Expandir

Error al ajustar líneas de texto en el control Etiqueta37

Estoy Usando el Código:

Código [Seleccionar] Expandir

Dim lcstart As String
Dim lcstop As String
Dim barralargo As String
Dim lccar As String
Dim lni As Long

lcstart = Chr(40)
lcstop = Chr(41)
barralargo = 1234567890

For lni = 1 To Len(barralargo) Step 2
    If Val(Mid(barralargo, lni, 2)) < 50 Then
      lccar = lccar + Chr(Val(Mid(barralargo, lni, 2)) + 48)
    Else
      lccar = lccar + Chr(Val(Mid(barralargo, lni, 2)) + 142)
    End If
Next
barralargo = lcstart + lccar + lcstop

.Sections("Sección1").Controls("Etiqueta37").Caption = "*" & barralargo & "*"


En un formulario lo Uso:

Código [Seleccionar] Expandir

Label1.FontName = "i2of5txt"
Label1.FontSize = 72
Label1.AutoSize = True

Label1.Caption = "*" & barralargo & "*"

Y funciona correctamente, pero no se que pasa con el data report.. ayuda porfavor..

Cierras xq luego no podrias abrilo si esque necitaras abrirlo nuevamente..
libera memoria para que no este cargado el programa, sino se vuelve lenta..

Gracias, es justo lo que nececitaba.  En realidad creiq ue se podia solo con el ADO

RS.Open - Abres
RS. Close - Cierras
Set RS = Nothing - Liberas de la memoria