COMO GUARDAR TRES DATOS EN UNA MISMA CAJA DE TEXT
Publicado por BETSY (28 intervenciones) el 14/03/2006 18:58:01
HOLA NECESITO AYUDA YO TENGO UNA CAJA DE TEXTO LLAMADA TXTRESULTADO2.TEXT Y ALLI QUISIERA GUARDAR TRES CAMPOS DE LA BASE DE DATOS OSEA
If CmbCuota.Text = "SI" Then
txtResultado2.Text = 2,3,9
Else
txtResultado2.Text = 3 And 9
End If
PERO NO ME LO TOMA.
porq cuando yo hago mi consulta que vendria siendo esta
sSQL = "SELECT Giros.CodContr, Giros.TipCuota, Giros.Cantgiro, Giros.FechVenc, Giros.MontoCuo, TipMoneda.DesMoned, StaGiros.DesGiros, Giros.CodOpera, Entidades.DesUbica"
sSQL = sSQL & " FROM Entidades INNER JOIN (TipMoneda INNER JOIN (Giros INNER JOIN StaGiros ON Giros.CodGiros = StaGiros.CodGiros) ON TipMoneda.CodMoned = Giros.CodMoned) ON (Entidades.CodUbica = Giros.CodUbica) AND (Entidades.CodUbica = Giros.CodUbica) AND (Entidades.CodUbica = Giros.CodUbica)"
sSQL = sSQL & " Where Giros.FechVenc >= " & "#" & Format(TxtDesdeFe.Text, "MM/DD/YYYY") & "#"
sSQL = sSQL & " And Giros.CodGiros = 1"
sSQL = sSQL & " And Giros.CodMoned = " & "'" & TxtResultado.Text & "'"
sSQL = sSQL & " And Giros.CodUbica = 1"
sSQL = sSQL & " And Giros.TipCuota = " & "'" & txtResultado2.Text & "'"
sSQL = sSQL & " ORDER BY Giros.CodContr, Giros.FechVenc;"
me da errorrrrrrrrrr como podria hacer
If CmbCuota.Text = "SI" Then
txtResultado2.Text = 2,3,9
Else
txtResultado2.Text = 3 And 9
End If
PERO NO ME LO TOMA.
porq cuando yo hago mi consulta que vendria siendo esta
sSQL = "SELECT Giros.CodContr, Giros.TipCuota, Giros.Cantgiro, Giros.FechVenc, Giros.MontoCuo, TipMoneda.DesMoned, StaGiros.DesGiros, Giros.CodOpera, Entidades.DesUbica"
sSQL = sSQL & " FROM Entidades INNER JOIN (TipMoneda INNER JOIN (Giros INNER JOIN StaGiros ON Giros.CodGiros = StaGiros.CodGiros) ON TipMoneda.CodMoned = Giros.CodMoned) ON (Entidades.CodUbica = Giros.CodUbica) AND (Entidades.CodUbica = Giros.CodUbica) AND (Entidades.CodUbica = Giros.CodUbica)"
sSQL = sSQL & " Where Giros.FechVenc >= " & "#" & Format(TxtDesdeFe.Text, "MM/DD/YYYY") & "#"
sSQL = sSQL & " And Giros.CodGiros = 1"
sSQL = sSQL & " And Giros.CodMoned = " & "'" & TxtResultado.Text & "'"
sSQL = sSQL & " And Giros.CodUbica = 1"
sSQL = sSQL & " And Giros.TipCuota = " & "'" & txtResultado2.Text & "'"
sSQL = sSQL & " ORDER BY Giros.CodContr, Giros.FechVenc;"
me da errorrrrrrrrrr como podria hacer
Valora esta pregunta


0