Ayuda Con Consulta SQL

23/04/2004 - 12:50 por Roberto Alarcón | Informe spam
Hola Amigos tengo Un Problema Con el Ingreso de datos en un Tabla Lo que
pasa: que que quiero seleccionar una consulta dependiendo de un campo que
viene de una pagina anterior

Si el Campo Fpago = Coutas

Set Conm= Server.CreateObject("ADODB.Connection")
Conm.Open("PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" &
Server.MapPath("bd/bell.mdb"))
SQL="Insert Into Venta (Fecha,Vendedor,Marca,Modelo,Total,Fpago,) values ('"
& Fecha & "','" & Vendedor& "','" & Marca & "','" & Modelo & "'," & couta1
& ",'" & Fpago & "')"
set RS2 = Conm.Execute(SQL)


Si el Campo Fpago = Contado

Set Conm= Server.CreateObject("ADODB.Connection")
Conm.Open("PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" &
Server.MapPath("bd/bell.mdb"))
SQL="Insert Into Venta (Fecha,Vendedor,Marca,Modelo,Total,Fpago,) values ('"
& Fecha & "','" & Vendedor& "','" & Marca & "','" & Modelo & "'," & Valo &
",'" & Fpago & "')"
set RS2 = Conm.Execute(SQL)

Si se dan cuenta el la primera consulta si la Forma de Pago = Cuotas guardo
en el campo Valor la variable Couta1

y en la segunda consulta si la Forma de Pago = Contado guardo en el campo
Valor la variable Total

Nota : SI ALGUIEN ME PUEDE AYUDAR CON EL CODIGO SERIA GENIAL

desde ya muchas gracias
Roberto Alarcon
Chile
 

Leer las respuestas

#1 Jimy
23/04/2004 - 20:50 | Informe spam
If Fago = "Cuotas" Then
campo = Cuotas1
Else
campo = Total
End If

Set Conm= Server.CreateObject("ADODB.Connection")
Conm.Open("PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" &
Server.MapPath("bd/bell.mdb"))
SQL="Insert Into Venta (Fecha,Vendedor,Marca,Modelo,Total,Fpago,) values ('"
& Fecha & "','" & Vendedor& "','" & Marca & "','" & Modelo & "'," & campo
& ",'" & Fpago & "')"
set RS2 = Conm.Execute(SQL)

Preguntas similares