Insert usando "IN" - Ayuda

Sebas22 · #1 (**permalink**) 02/07/2002, 22:59

Supongase que tengo el siguiente codigo:

<%
For i=1 to 4
<input type="text" name="<%=i%>" size="20">
next
arreglo = request.form(i)

//Suprimidas conexiones con una base de datos

Ob_RS.Open "Tabla", Conn, adOpenStatic, adCmdTable
if not OB_RS.EOF then
OB_RS.MoveLast
cod = OB_RS("Codigo") + 1
else
cod = 1
end if

sql = “insert into Tabla (Codigo, Campo1) values (‘” & cod & “’, ‘” & arreglo & “’)”
Com.CommandText = sql
Com.Execute

Lo que yo quiero hacer es insertar los 4 registros que corresponderían, los cuales deberian quedar asi en la base de datos:

Codigo = 1 – Campo1 = “algo”
Codigo = 2 – Campo1 = “otra cosa”
... Y asi los 4 registros

Ahora bien, ¿esto podria implementarse con la clausula “IN” del SQL? De ser asi, ¿como seria?... y en caso que no fuera, ¿como puedo lograr los resultados que necesito? Un saludo...

urjose · #2 (**permalink**) 02/07/2002, 23:33

1.- El IN se utiliza para consultas, actualización o de borrado de registros

Y lo que puedes hace es tener 4 textboxes con EL MISMO NOMBRE

<input type="text" name="algo" size="20">

Los recoges así=

Algo=Request.Form("Algo")

Si el usuario ingreso 4 palabras la variable Algo traserá:

Algo="Hola1, Hola2, Hola3 Hola4"

Para insertar los registros partimos la cadena

Arreglo=Split(Algo,", ")

For i=0 to Ubound(Arreglo)
.
.
.
sql = “insert into Tabla (Codigo, Campo1) values (‘” & cod & “’, ‘” & arreglo(i) & “’)”
.
.
.
Next

Lo cual ira insertando primero Hola1, Hola2 y así sucesivamente.

Saludos

<center>
<p><a href=http://comunidadguru.com><img border=0 src=http://comunidadguru.com/urjose.gif></a></p>
</center>

Sebas22 · #3 (**permalink**) 03/07/2002, 10:17

Entiendo todo perfectamente, pero tengo un par de dudas con respecto a Split. Especificamente los parametros que usas, pones algo asi: Split(Arreglo,",")... Cual es el significado de los prametros comillas que ahi ingresas? Un saludo y gracias por tu respuesta previa.

AlZuwaga · #4 (**permalink**) 03/07/2002, 11:10

No, no... las comillas no son parámetros. la funcion split tiene la siguiente estructura (reducida... no pongo la cantidad de cadenas a devolver ni el método de comparación):

Split(CADENA, DELIMITADOR)

CADENA: El texto a separar con sus delimitadores

DELIMITADOR: El/los caracters que van a servir para separar en subcadenas a "CADENA"

En el caso del ejemplo de urjose, el DELIMITADOR es el caracter "COMA" (",") y al ser un string debe ir entre comillas

saludos

AlZuwaga · #5 (**permalink**) 03/07/2002, 11:13

...para que lo veas màs claro:

<%
Dim CADENA, DELIMITADOR, ARREGLO

CADENA = "Rojo,Verde,Azul"
DELIMITADOR = ","

ARREGLO = Split(CADENA,DELIMITADOR)
%>

Sebas22 · #6 (**permalink**) 03/07/2002, 14:14

Gracias por toda la ayuda, anda a la perfeccion, excepto en el siguiente caso:

<%
For i=1 to 4
<input type="checkbox" name="arreglo" value="ON">
next
arreglo = request.form("arreglo")

//Suprimidas conexiones con una base de datos

Ob_RS.Open "Tabla", Conn, adOpenStatic, adCmdTable
if not OB_RS.EOF then
OB_RS.MoveLast
cod = OB_RS("Codigo") + 1
else
cod = 1
end if

arreglo = Split(arreglo,", ")

for i=0 to Ubound(arreglo)

if (arreglo(i)<>"") then
arreglo(i) = "si"
else
arreglo(i) = "no"
end if

sql = “insert into Tabla (Codigo, Campo1) values (‘” & cod & “’, ‘” & arreglo(i) & “’)”
Com.CommandText = sql
Com.Execute
cod = cod + 1
next
OB_RS.Close

El error lo genera la linea de:
if (arreglo(i)<>"") then
y es el siguiente:

Error de Microsoft VBScript en tiempo de ejecución error '800a0009'

El subíndice está fuera del intervalo: 'i'

Ahora bien, en el ejemplo previo yo genero 4 checkboxes... de los cuales se almacenan 3 en la base de datos... he probado corriendo el IF anterior con otro contador que esté un valor adelante de "i" o bien detrás", es decir, comenzando como 1 o -1 en el bucle FOR, incrementandola dentro del mismo, pero ahi me genera el mismo error en el IF con la diferencia que no guarda ni un registro en la base (es decir el bucle no pasa de la primera vuelta y ni siquiera llega a la sentencia INSERT, se muere en el IF). ¿Cómo puedo hacer para que el IF no me genere ese error usando la variable "i"? ¿Tengo que hacer otro bucle fuera del FOR antes de entrar en el para validar como "si" o "no" a los datos? Un saludo.

urjose · #7 (**permalink**) 03/07/2002, 14:27

Bueno este if esta de más:
if (arreglo(i)<>"") then

Por que el arreglo siempre tendrá un valor

Si el usuario marco 3 casillas

Generará lo siguiente

Arreglo(1)="algo"
Arreglo(2)="algo"
Arreglo(3)="algo"

Es decir para que validar algo que siempre estara lleno

Por cierto sería bueno que pusieras un response.write arreglo antes de realizarle el split para ver que valores traen los checkboxes.

Saludos

<center>
<p><a href=http://comunidadguru.com><img border=0 src=http://comunidadguru.com/urjose.gif></a></p>
</center>

Juansan · #8 (**permalink**) 03/07/2002, 16:10

perdon que me meta pero yo uso este codigo y funciona.
ok=split(request("modi"),"," )' la matriz
for each modi in ok

Sql = " Insert into modiparada "
Sql = Sql & "IN '"&Server.MapPath("\gservicios\hruta \hruta.mdb")&"'"
sql = sql & " SELECT PARADA.ID, PARADA.PARADA, PARADA.FRECUENCIA, PARADA.DETENCION, PARADA.RE, PARADA.HORA, PARADA.OBS, PARADA.RECORRIDO, PARADA.TURNO,RECO.SUC"
SQL = SQL & " FROM RECO INNER JOIN PARADA ON (RECO.TURNO = PARADA.TURNO) AND (RECO.RECORRIDO = PARADA.RECORRIDO)"
sql = sql & " WHERE parada.id = " & modi & ""
Conn.Execute Sql , registros

Se daran cuenta que vengo de una pagian anterior donde estan los checkboxes.

Ahora bien, estoy migrando esto a sql pero...
NO FUNCIONA!!!!
El problema esta en el: Sql = Sql & "IN '"&Server.MapPath("\gservicios\hruta \hruta.mdb")&"'" dado que ahora mi conexion es
"Provider=SQLOLEDB.1;Persist Security Info=False;Password=XXXXXX;User ID=XXXXXX;Initial Catalog='labase';Data Source=ELSERVER" , como hago para reemplazr esto y con que??

Gracias a todos