Foros del Web » Programando para Internet » ASP Clásico »

Ayuda Urgente!

Estas en el tema de Ayuda Urgente! en el foro de ASP Clásico en Foros del Web. necesito ayuda con con esta parte de mi codigo tengo dos select de SQL que devuelven cada uno un numero eso lo tengo que insertar ...
  #1 (permalink)  
Antiguo 18/11/2004, 17:03
 
Fecha de Ingreso: noviembre-2004
Mensajes: 8
Antigüedad: 19 años, 6 meses
Puntos: 0
Ayuda Urgente!

necesito ayuda con con esta parte de mi codigo tengo dos select de SQL que devuelven cada uno un numero eso lo tengo que insertar en otra tabla alguien me puede decir donde le estoy errando y como tiene que ser.. aca esta parte del codigo

SelID = "SELECT max(idtramite) FROM tramites WHERE idcliente LIKE '"&Request("idcliente")&"'"

SET RS = db.Execute(SelID)
idt = rs("SelID")


SelTar = "SELECT min(T.idtar) " _ &"FROM tipo_tramite AS TT, necesita AS N, tareas AS T"_
&" WHERE TT.idtipo = N.idtipo AND N.idtar = T.idtar AND "_
&" (TT.idtipo LIKE '"&Request("tipo")&"');"

SET RS = db.Execute(SelTar)
idtar = rs("SelTar")

InsTra = "INSERT INTO ins_tramite "_
& "VALUES "_
& "('1','"&idt&"','"&idtar&"') ;"

cuando hago un response.write(InsTra)
devuelve "INSERT INTO ins_tramite VALUES ('1','','');
  #2 (permalink)  
Antiguo 18/11/2004, 17:17
Avatar de phpec  
Fecha de Ingreso: noviembre-2004
Mensajes: 70
Antigüedad: 19 años, 6 meses
Puntos: 0
eso creo que lo debiste postear en bases de datos pero creo que tu error está en el query que utilizas para hacer tu insert...
la sintaxis que debes de seguir es

insert into nombre_de_la_tabla (campo1, campo2, campo3) values ('1', '', '')

espero que te sirva
saludos
  #3 (permalink)  
Antiguo 18/11/2004, 17:25
 
Fecha de Ingreso: noviembre-2004
Mensajes: 8
Antigüedad: 19 años, 6 meses
Puntos: 0
si el tema es que me hace el inser mi problema esta en pasar los datos que devuelven las consultas de SQL anteriores para el insert.. por eso cuando hago un response.write me ponse el insert con los campos vacios ("1","","")
  #4 (permalink)  
Antiguo 19/11/2004, 12:25
Avatar de phpec  
Fecha de Ingreso: noviembre-2004
Mensajes: 70
Antigüedad: 19 años, 6 meses
Puntos: 0
tambien has el response.write para SelID y SelTar
  #5 (permalink)  
Antiguo 19/11/2004, 13:34
Avatar de Muzztein  
Fecha de Ingreso: agosto-2002
Ubicación: Hangar 18
Mensajes: 1.703
Antigüedad: 21 años, 9 meses
Puntos: 16
Información

asi a vuelo de pajaro:

SelID = "SELECT max(idtramite) AS ALGO FROM tramites WHERE idcliente LIKE '"&Request("idcliente")&"'"

SET RS = db.Execute(SelID)
idt = rs("ALGO")




SelTar = "SELECT min(T.idtar) " _ &"FROM ????? QUE ES ESTO ?tipo_tramite AS TT, necesita AS N, tareas AS T"_
&" WHERE TT.idtipo = N.idtipo AND N.idtar = T.idtar AND "_
&" (TT.idtipo LIKE '"&Request("tipo")&"');"

SET RS = db.Execute(SelTar)
idtar = rs("AQUI DEBE IR EL NOMBRE DEL CAMPO QUE DESEAS, NO EL NOMBRE DEL RECORD SET")

y una ultima cosa.

ese tipo de insert solo te funcionara cuando los datos van en el mismo orden que estan definidos en la BD, si no es asi, se caerá.
te recomiendo que hagas el insert como el amigo arriba te lo recomendo

  #6 (permalink)  
Antiguo 25/11/2010, 13:23
 
Fecha de Ingreso: noviembre-2010
Mensajes: 1
Antigüedad: 13 años, 6 meses
Puntos: 0
Respuesta: Ayuda Urgente!

tambn necesito ayuda ya k me aparece este error
[Microsoft][Controlador ODBC Microsoft Access] No coinciden los tipos de datos en la expresión de criterios.

Private Sub cmd_guardar_Click()
On Error GoTo e

sql = "insert into paciente([rut],nombre,app,apm,direccion, cod_comuna, cod_ciudad, f_nacimiento, telefono, celular) values( '"
sql = sql & txtrut
sql = sql & "','"
sql = sql & txtnombre
sql = sql & "','"
sql = sql & txtapp
sql = sql & "','"
sql = sql & txtapm
sql = sql & "','"
sql = sql & txtdireccion
sql = sql & "','"
sql = sql & cbocomuna.ItemData(cbocomuna.NewIndex)
sql = sql & "','"
sql = sql & cbociudad.ItemData(cbociudad.NewIndex)
sql = sql & "','"
sql = sql & txt_fecha_nac
sql = sql & "','"
sql = sql & txttelefono
sql = sql & "','"
sql = sql & txtcelular
sql = sql & "')"
cnn.BeginTrans
cnn.Execute sql

e:
If Err.Number <> 0 Then
MsgBox Err.Description
cnn.RollbackTrans
Err.Clear
Else
MsgBox "ingresado Correctamente"
cnn.CommitTrans
End If
end sub
  #7 (permalink)  
Antiguo 25/11/2010, 18:41
Avatar de Myakire
Colaborador
 
Fecha de Ingreso: enero-2002
Ubicación: Centro de la república
Mensajes: 8.849
Antigüedad: 22 años, 4 meses
Puntos: 146
Respuesta: Ayuda Urgente!

Primero, antes de ejecutarlo imprime el valor de "sql" y checa la sintaxis

Segundo no revivas temas con información que no ayudan a la solución del problema inicial, por favor

Saludos
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Tema Cerrado




La zona horaria es GMT -6. Ahora son las 19:42.