Insertar datos Extraidos de Un Combox

[Acostag]

Hola... amigos...

tengo un combo donde me arroja Nombres de una BD en Access
pero resultado.. quiero Integrarlo (Junto con Otros) a otra
tabla de la Misma BD. Podrian Ayudarme.. ??

Saludos
Luis.R.Acosta

[bakanzipp]

no entiendo mucho lo que quieres hacer.

gralmente cuando se llena un combo obviamente se usa un solo recordset para que a medida que avance el recorset se vayan generando los option con la data que quieres que vaya en el combo.

lo que se me ocurre a mi, es que tu consulta sql que te devuelva el recordset debe relacionar las dos tablas para mostrar los campos de ellas. SI no existe relacion entre las tablas no veo cual es la idea de juntarlas en un mismo combo....


<%
sql="select tabla1.campo1, tabla2.campo1 where tabla1.campo1=tabla2.campo1
set rs=conexion.execute(sql)
%>
<select name=lista>
<%if not rs.eof and not rs.bof then
while not rs.bof%>
<option value=""><%=rs("campo1")%>-<%=rs("campo2")%></option>
end if%>
</select>

[Acostag]

Gracias...bakanzipp por Contestar...

Creo que me Explique mal... mira este es mi Combo
<Select Name="Eleccion">
<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="& server.mappath("Trans_Cantu.mdb")

SQL = "SELECT * FROM Clientes"
Set rs = conn.Execute(SQL)
While Not rs.EOF
%>
<option value="<%=rs("Clave")%>"><%=rs("Clave")%> </option>
<%
rs.MoveNext
Wend
rs.Close
%>

y en mi Formulario... quiero que lo selecionado del Combo.. se agrege a otra BD.

haber si me Explique...

Saludos
Luis.R.Acosta

[bakanzipp]

claro...usa un submit del formulario


<form name=formulario method=post action="misma_pagina.asp">
<Select Name="Eleccion">
<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="& server.mappath("Trans_Cantu.mdb")

SQL = "SELECT * FROM Clientes"
Set rs = conn.Execute(SQL)
While Not rs.EOF
%>
<option value="<%=rs("Clave")%>"><%=rs("Clave")%> </option>
<%
rs.MoveNext
Wend
rs.Close
%>

<input type=submit value=Ingresar>

<%if request.form("eleccion")<>"" then
sql="insert into otra tabla value('&" trim(request.form("eleccion") &"',....)"
conn.execute(sql)
..
..
..
response.write "guardado"
end if%>
</form>


bueno ahi lo puedes mejorar.

[Acostag]

Perfecto.... dejame lo Intento ahorita..

gracias... bakanzipp

[Acostag]

Maestro.....bakanzipp

ya hise las modificaciones para hacer el Insert a la otra tabla.. pero me marca errores de Syntax. e inculso estuve checando algunos Insert Into. pero no jala... le Quite el TRIM
pero como quiera marca error de Syntax podrias echarle una
revisada.. ??

<form name=formulario method=post action="pasos.asp">
<Select Name="Eleccion">
<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="& server.mappath("Trans_Cantu.mdb")

SQL = "SELECT * FROM Clientes"
Set rs = conn.Execute(SQL)
While Not rs.EOF
%>
<option value="<%=rs("Clave")%>"><%=rs("Clave")%> </option>
<%
rs.MoveNext
Wend
rs.Close
%>

<input type=submit value=Ingresar>

<%if request.form("Eleccion")<>"" then
sql = "insert into datos (nombre) value ('" &request.form("Eleccion")&"')"
conn.execute(sql)
response.write "guardado"
end if%>
</form>

***Error
Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[Microsoft][ODBC Microsoft Access Driver] Syntax error in INSERT INTO statement.


la Nueva Tabla es Datos y el campo es Nombre...

Saludos
Luis.R.Acosta

[Acostag]

SEÑORES....

ya encontre la Falla... Bien dicen que es mas Facil Encontrar
una auja en un pajar, con un programadro Torturado por un ASP.

sql = "insert into datos (nombre) value ('" &request.form("Eleccion")&"')"

sql = "insert into datos (nombre) values ('" &request.form("Eleccion")&"')"

Saludos
Luis.R.Acosta

[bakanzipp]

parece que llegue tarde al post..

bueno me alegro ke lo hayas sacado por tus propios medios...asi se aprende msa..

10/4