Evitar duplicidad

[banrey]

Hola Amigos una consulta rapida como hago para que mi codigo valide si hay un dato que intento ingresar en mi bd antes de insertarlo, de esta forma evitar ingresarlo nuevamente.

Basicamente lo que quiero es que si hay un dato en mi bd este se actualize y si no hay este inserte lo estoy tratando de hacer asi


if rs1.eof= false then
update........... ,

else

insert.......

end if

pero no me funsiona no hace update ni insert cuando reconoce la existencia de algun dato en la bd

[Shiryu_Libra]

tomando como ejemplo un "nickname"

'tomando valor del formulario
criterio = request.form("nickname")

'se realiza la consulta
select nickname from tabla
' todo el procedimiento necesario para ejecutar

'valido el valor de formulario contra base de datos
if criterio = rs.fields.item("nickname").value then
'caso afirmativo
response.write "ya esta"
else
'caso negativo
response.write "disponible"
end if

'cierras todos los componentes de consulta... limpias variables etc....

seria un similar....

[banrey]

Gracias por responder tan raipo.

Ahora quisiera pedirte el favor que me mostraras un ejemplo pero con codigo para saber como hacerlo un ejemplo solamente.

Y una ultima consulta como podria yo hacer inset en varias tablas al mismo tiempo y update al mismo tiempo en varias tablas, porque que pasa una ves validado si hay un dato en mi bd lo podria actualizar y sino no hay inserto el nuevo dato, esta es basicamente lo que necesito pero no me inserta ni me modifica cuando valido si hay o no dato en la bd...


me podrias ayudar con esto por favor

Gracias.....

[Shiryu_Libra]

anexa tu codigo.. para verificacion

[banrey]

Esto es lo que tengo hecho

vivienda=Request.Form("vivienda")
vehiculo=Request.Form("vehiculo")
licencia=Request.Form("licencia")
Dim oConn1, rs1, sql1
set oConn1 = Server.CreateObject("ADODB.Connection")
OConn1.Open "Provider=SQLOLEDB;Data Source=jnjvecatempdb;Initial Catalog=yyyyy; User Id=sa;Password=xxxxx;"
sql1 = "INSERT INTO ficha_vehicular (codfic,vehicu,gralic) VALUES (" & codfic & ","& vehiculo &"," & licencia &")"
oConn1.Execute(sql1)

que quiero insertar en la tabla vivienda al mismo tiempo que se ejecuta el insert de ficha_vehicular como lo puedo hacer.

como puedo hacer insert masivo en varias tablas al mismo tiempo, intente haciendo lo siguiente:

sql1 = "INSERT INTO ficha_vehicular (codfic,vehicu,gralic) VALUES (" & codfic & ","& vehiculo &"," & licencia &")"
sql2 = "INSERT INTO ficha_vivienda (codfic,tipvivi) VALUES (" & codfic & ","& vivienda &")"

Pero no me resulto, me prodrias ayudar como podria hacer este insert en varias tablas.

Muchas Gracias

[Shiryu_Libra]

entonces primero verificas que "codfic" en la tabla vehicular para despues ingresar en vivienda...? ese es el punto de referencia???
pero si en vivienda hay algun repetido no importa???

???

[Esfinge02]

mas sencillo.
as una con sulta con un parametro clave de la insercion y despues condicionas,

if not rs.eof then
actualisas
else
insertas
end if

[banrey]

Muchachos muchas gracias por contestar de verdad pero vamos a omirtir por ahora el hecho de duplicidad y disculpe que cambien un tanto el tema y digo un poco porque luego de saber como hacer esto que les voy a preguntar si voy a verificar la duplicidad.

Les formulo nuevamente la pregunta como puedo hacer para hacer varios insert al mismo tiempo a tablas distintas como puedo hacer esto. por ejemplo tengo 6 tablas distintas y debo insertar data en cada una de ellas, esta data la recogo de un formulario y necesito insertarlas en su respectiva tabla.

Les pongo el mismo ejemplo:

Si tengo este codigo:
if not rs.eof then
/*aqui iran los 6 update a las 6 tablas distintas*/
else
/*aqui iran los 6 insert a las 6 tablas distintas*/
end if

Como puedo hacer los 6 insert y los 6 update????

Muchisimas Gracias.

[Adler]

Hola

Prueba así, usando trasiciones

Código asp:

conn.BeginTrans
 
sql1 = "INSERT INTO ficha_vehicular (codfic,vehicu,gralic) VALUES (" & codfic & ","& vehiculo &"," & licencia &")"
conn.Execute(sql1)
if Err.number <> 0 Then 
Response.Clear ()
conn.RollBackTrans
Err.Clear ()
Response.End ()
end if
 
sql2 = "INSERT INTO ficha_vivienda (codfic,tipvivi) VALUES (" & codfic & ","& vivienda &")"
conn.Execute(sql2)
if Err.number <> 0 Then 
Response.Clear ()
conn.RollBackTrans
Err.Clear ()
Response.End ()
end if
 
conn.CommitTrans
 

Suerte

[banrey]

Hola Amigos una consulta intento ingresar un dato a mi bd y me sale el siguiente error

Microsoft OLE DB Provider for SQL Server (0x80040E14)
The name 'fsddddddf' is not permitted in this context. Only constants, expressions, or variables allowed here. Column names are not permitted.

porque me puede estar saliendo este error y como lo soluciono muchas gracias

[Adler]

Hola

Iniciado por banrey

Hola Amigos una consulta intento ingresar un dato a mi bd y me sale el siguiente error

Microsoft OLE DB Provider for SQL Server (0x80040E14)
The name 'fsddddddf' is not permitted in this context. Only constants, expressions, or variables allowed here. Column names are not permitted.

porque me puede estar saliendo este error y como lo soluciono muchas gracias

Muestra la porción de código que te lanza este error

Suerte

[Esfinge02]

a ojo de buen cubero, creo que estas tratando de insertar, o tratas de actualizar un capo que no existe o simplemente la longitud o el tipo no son los mismos, utilizas procedimientos almacenados, para esto....

[adiazm]

"Only constants, expressions, or variables allowed here"

Esa es la clave. ;)

[banrey]

correcto lo hice por procedimientos almacenados ahora tengo otro inconveniente tengo la necesidad de generar un reporte en excel desde asp y lo hago de la siguiente forma:
<%
Response.ContentType = "application/vnd.ms-excel"
Response.AddHeader "Content-Disposition", "filename=reporte.xls;"
%>


<%
Dim oConn1, rs1, sql1
set oConn1 = Server.CreateObject("ADODB.Connection")
set rs1=Server.CreateObject("ADODB.Recordset")
oConn1.Open "Provider=SQLOLEDB;Data Source=jnjvecatempdb;Initial Catalog=yyy; User Id=sa;Password=xxx;"
sql1= "SELECT datos_personales.cedfic"
rs1.Open SQL1,oConn1,1,2
'oConn1.Execute sql1,rs1
if rs1.EOF then
'Response.Write("<P align=center><FONT face=Arial size=2>No hay ningún registro en esta tabla</font></p>")
else
PintarTabla
end if
Sub PintarTabla ()
Response.Write("<TABLE name=inicio align=center border=1 width=50% cellPadding=0 cellSpacing=0>" & vbCrlf)
Response.Write( "<TR name=encabezado>" & vbCrlf)
Response.Write( "<TD><FONT face=Arial size=""1""><B>Cédula</B></font></TD>" & vbCrlf )
Response.Write( "<TD><FONT face=Arial size=""1""><B>Rif</B></font></TD>" & vbCrlf )
Response.Write( "</TR>" & vbCrlf )
while not rs1.EOF
Response.Write( "<TR>" & vbCrlf )
Response.Write( "<TD><FONT face=Arial size=""1"">" & rs1.Fields("cedfic") & "</font></TD>" )
Response.Write( "<TD><FONT face=Arial size=""1"">" & rs1.Fields("riffic") & "</font></TD>" )
Response.Write( "</TR>" & vbCrlf )
rs1.MoveNext
wend
Response.Write("</TABLE name=fin>")
End Sub 'PintarTabla
%>

Que sucede nada me vota el siguiente error:

Active Server Pages, ASP 0113 (0x80004005)
The maximum amount of time for a script to execute was exceeded. You can change this limit by specifying a new value for the property Server.ScriptTimeout or by changing the value in the IIS administration tools.

y no me genera el archivo nunca que pordra ser.

[Esfinge02]

al parecer se te acabo el tiempo de ejecución del scrip lo que puedes hacer es cambiar este tiempo en el servidor o agrega este código al principio.....

response.Buffer = false
Server.ScriptTimeout = 1400

el tiempo "1400" esto puede ser cambiado a tu conveniencia

[adiazm]

¿Pero y el otro error lo solucionaste?.

Iniciado por banrey

correcto lo hice por procedimientos almacenados ahora tengo otro inconveniente tengo la necesidad de generar un reporte en excel desde asp y lo hago de la siguiente forma:
<%
Response.ContentType = "application/vnd.ms-excel"
Response.AddHeader "Content-Disposition", "filename=reporte.xls;"
%>


<%
Dim oConn1, rs1, sql1
set oConn1 = Server.CreateObject("ADODB.Connection")
set rs1=Server.CreateObject("ADODB.Recordset")
oConn1.Open "Provider=SQLOLEDB;Data Source=jnjvecatempdb;Initial Catalog=yyy; User Id=sa;Password=xxx;"
sql1= "SELECT datos_personales.cedfic"
rs1.Open SQL1,oConn1,1,2
'oConn1.Execute sql1,rs1
if rs1.EOF then
'Response.Write("<P align=center><FONT face=Arial size=2>No hay ningún registro en esta tabla</font></p>")
else
PintarTabla
end if
Sub PintarTabla ()
Response.Write("<TABLE name=inicio align=center border=1 width=50% cellPadding=0 cellSpacing=0>" & vbCrlf)
Response.Write( "<TR name=encabezado>" & vbCrlf)
Response.Write( "<TD><FONT face=Arial size=""1""><B>Cédula</B></font></TD>" & vbCrlf )
Response.Write( "<TD><FONT face=Arial size=""1""><B>Rif</B></font></TD>" & vbCrlf )
Response.Write( "</TR>" & vbCrlf )
while not rs1.EOF
Response.Write( "<TR>" & vbCrlf )
Response.Write( "<TD><FONT face=Arial size=""1"">" & rs1.Fields("cedfic") & "</font></TD>" )
Response.Write( "<TD><FONT face=Arial size=""1"">" & rs1.Fields("riffic") & "</font></TD>" )
Response.Write( "</TR>" & vbCrlf )
rs1.MoveNext
wend
Response.Write("</TABLE name=fin>")
End Sub 'PintarTabla
%>

Que sucede nada me vota el siguiente error:

Active Server Pages, ASP 0113 (0x80004005)
The maximum amount of time for a script to execute was exceeded. You can change this limit by specifying a new value for the property Server.ScriptTimeout or by changing the value in the IIS administration tools.

y no me genera el archivo nunca que pordra ser.

[Esfinge02]

por eso el codigo agregaselo esto te permite maipular el tiempo...

You can change this limit by specifying a new value for the property Server.ScriptTimeout or by changing the value in the IIS administration tools.

incrementa el tiempo de la ejecucion del procedimenton en el asp