RE:Grabacion Multiple (Ayuda Urgente)
Santos este es el codigo que tengo:
Dim oConn, Rs,Fecha,Sql,CodAsig,UltimoFolio
Set oConn = Server.CreateObject ("ADODB.Connection")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Server.MapPath("\Solicitudes\Bd_Solic.mdb")
Set RS = Server.CreateObject ("ADODB.RecordSet")
<con esto de abajo verifico el ultimo ya grabado en la tabla para no generar duplicidad de registro la tabla tiene un ID principal>
Sql="SELECT Top 1 dc_Solicitud FROM t_Solicitud order by dc_Solicitud DESC"
set Rs = oConn.Execute(SQL)
UltimoFolio= rs("dc_Solicitud")+1
Ssql="Insert Into t_Solicitud"
Ssql= Ssql & "(dc_Solicitud,dc_Region,dc_Provincia,dc_Comuna,dc_Descripcion,df_Solicitud,dg_Contacto,dg_email,dg_cargo,dg_fono,dg_Reporte,dc_Recepcion,dc_recepcionado,dc_asignado,dc_estado,dc_Lugar_Solucion,dg_Observacion)"
Ssql= Ssql & "values "
Ssql= Ssql & "(" & UltimoFolio & ","
RegProvComu=right(Comuna,5)
Reg=cint(left(RegProvComu,2))
Prov=cint(mid(RegProvComu,3,1))
Comu=cint(right(RegProvComu,2))
Ssql= Ssql & Reg & ","
Ssql= Ssql & Prov & ","
Ssql= Ssql & Comu & ","
Ssql= Ssql & "'"&left(Comuna,len(Comuna)-5)& "'" & ","
FechaFinal=right(Fecha,4) & mid(Fecha,4,2) & left(Fecha,2)
Ssql= Ssql & "'"&FechaFinal&"'" & ","
Ssql= Ssql & "'"&Contacto&"'" & ","
Ssql= Ssql & "'"&Mail&" '" & ","
Ssql= Ssql & "'"&Cargo&"'" & ","
Ssql= Ssql & "'"&Fono&"'" & ","
Ssql= Ssql & "'"&Reporte&"'" & ","
Ssql= Ssql & ModoContacto & ","
Ssql= Ssql & 0 & ","
Ssql= Ssql & CodAsig & ","
Ssql= Ssql & EstadoSolucion & ","
Ssql= Ssql & ModoSolucion & ","
Ssql= Ssql & "'"&Observaciones&" '" & ")"
set Rs = oConn.Execute(Ssql)
Set Rs = nothing
Set oConn = nothing
Por favor si ves algo que este haciendo mal me dices para corregirlo
Gracias por poner tu experiencia disposcicion de los demas .