De Base Datos a Formulario

[oscarsb1988]

Saludos programadores:

Llevo un tiempo intentando hacer eso pero me está siendo imposible. Necesito pasar los datos de los campos de una fila en concreto de una tabla de una base de datos, a los textbox de un formulario. Pero soy incapaz de lograrlo.

UPDATE:

He conseguido que entre en la fila que quiero pasar. Consigo pasar el código, pero el resto de datos no me los mete en los textbox del formulario. Con un alert he comprobado que al introducir en una variable los datos de los campos, me los marca como que están en blanco/vacio (?) cuando realmente tienen datos...

Código ASP:

<script for=cbocodice event=onclick event=onchange language=vbscript>
            <%rs1.movefirst%>
            <%while not rs1.eof%>
            <%if rs1("Codice") = "1" then%>
            ICnomeA = <%=rs1("Nome_Azienda").value%>
            form1.ICnomeA.value = ICnomeA
            <%end if%>
            <%rs1.movenext%>
        <%wend%>
        </script>
 

Cambiando el "Nome_Azienda" por "Codice" me lo pasa porque es el código xD. Pero con el resto de campos nada :S

Obviamente tengo muchos campos... Pero de momento solo estoy trabajando para probar con el código "Codice" y "Nome_Azienda" que es un campo de la tabla tipo text.

UPDATE2:

Código ASP:

code = form1.cbocodice.options.value
            <%rs1.movefirst%>
            <%while not rs1.eof%>
            <%if cstr(rs1("Codice")) = code then%>
            alert ("dentro IF")
 
            ICnomeA = <%=rs1("Nome_Azienda").value%>
            form1.ICnomeA.value = ICnomeA
            alert ("Variable Nome_Azienda" + ICnomeA)
 

Finalmente hay 2 problemas:

-El code no es comparado por el programa en la condición... Luego nunca entra al IF. Si en vez del code pongo "1", entra al IF pero me pone que todos los campos estan en blanco, vacios,... cosa que es falsa porque realmente la fila con código "1" tiene datos.

Si en vez de pasar el campo "Nome_Azienda" pongo "Codice" me lo pasa correctamente al formulario ( Me pone un 1 ) xD

Ahora ya no sé seguir más... Necesito ideas :\

Código ASP:

<%@ language="VBScript"%>
        <script>
        <%
        set cnn = Server.CreateObject("ADODB.Connection")
        cnn.open "PROVIDER=SQLOLEDB;DATA SOURCE=63.522.153.65;UID=MSSql888;PWD=ed382;DATABASE=MSSql888"
        
        set rs1=Server.CreateObject("ADODB.recordset")
        rs1.Open "select * from WEBSITE", cnn ,1,3
        %>
        </script>
        
        <script for=vedere event=onclick language=vbscript>
            code = form1.cbocodice.options.value
            <%rs1.movefirst%>
            <%while not rs1.eof%>
            <%if cstr(rs1("Codice")) = "1" then%>
            alert ("dentro IF")
 
            ICnomeA = <%=rs1("Nome_Azienda").value%>
            form1.ICnomeA.value = ICnomeA
            alert ("Variable Nome_Azienda" + ICnomeA)
            
            ICresp= <%=rs1("Responsabile").value%>
            'alert ICresp
            ICtecnico= <%=rs1("Tecnico_Net1").value%>
            'Alert IStecnico
            ISprod=<%=rs1("Prod_Mod").value%>
            'Alert ISprod
            IStipo=<%=rs1("Tipologia").value%>
            'Alert IStipo
            IStype=<%=rs1("Type").value%>
            'Alert IStype
            ISserial=<%=rs1("Serial").value%>
            'Alert ISserial
            IScpu=<%=rs1("CPU_Num").value%>
            'Alert IScpu
            ISram=<%=rs1("RAM").value%>
            'Alert ISram
            IShd=<%=rs1("HD").value%>
            'Alert IShd
            ISraid=<%=rs1("Modello").value%>
            'Alert ISraid
            ISbackup=<%=rs1("Backup_Capacita").value%>
            'Alert ISbackup
            ISscsi=<%=rs1("SCSI").value%>
            'Alert ISscsi
            ISnastri=<%=rs1("Nastri").value%>
            'Alert ISnastri
            ISso=<%=rs1("SO").value%>
            'Alert ISso
            ISserver=<%=rs1("Server").value%>
            'Alert ISserver
            ISdominio=<%=rs1("Dominio").value%>
            'Alert ISdominio
            ISadmin=<%=rs1("Pass_Admin").value%>
            'Alert ISadmin
            ISdisco=<%=rs1("Config_Disco").value%>
            'Alert ISdisco
            ISlogiche=<%=rs1("Part_Logiche").value%>
            'Alert ISlogiche
            ISip=<%=rs1("IP").value%>
            'Alert ISip
            ISmask=<%=rs1("Mask").value%>
            'Alert ISmask
            ISgateway=<%=rs1("Gateway").value%>     
            'Alert ISgateway
            ISdhcp=<%=rs1("DHCP").value%>
            'Alert ISdhcp
            ISrange=<%=rs1("Range").value%>
            'Alert ISrange
            Servizi=<%=rs1("Servizi").value%>
            'Alert Servizi
            Software=<%=rs1("Software").value%>
            'Alert Software
            ANnome=<%=rs1("AN_anti").value%>
            'Alert ANnome
            ANnum=<%=rs1("AN_utenti").value%>
            'Alert ANnum
            ANuser=<%=rs1("AN_user").value%>
            'Alert ANuser
            ANpass=<%=rs1("AN_pass").value%>
            'Alert ANpass
            ANpassc=<%=rs1("AN_passc").value%>
            'Alert ANpassc
            GC=<%=rs1("GC").value%>
            'Alert gc
            GCid=<%=rs1("GC_Utent").value%>
            'Alert GCid
            GCpass=<%=rs1("GC_Pass").value%>
            'Alert GCpass
            Rmarca=<%=rs1("R_Marca").value%>
            'Alert Rmarca
            Rnome=<%=rs1("R_Nome").value%>
            'Alert Rnome
            Ruser=<%=rs1("R_User").value%>
            'Alert Ruser
            Rpass=<%=rs1("R_Pass").value%>
            'Alert Rpass
            Rip=<%=rs1("R_IP").value%>
            'Alert Rip
            Rnet=<%=rs1("R_Acquistato").value%>
            'Alert Rnet
            Fmarca=<%=rs1("F_marca").value%>
            'Alert Fmarca
            Fnome=<%=rs1("F_nome").value%>
            'Alert Fnome
            Fuser=<%=rs1("F_user").value%>
            'Alert Fuser
            Fpass=<%=rs1("F_pass").value%>
            'Alert Fpass
            Fip=<%=rs1("F_IP").value%>
            'Alert Fip
            Fnet=<%=rs1("F_Acquistato").value%>
            'Alert Fnet
            note=<%=rs1("Note").value%>
            'Alert note
            <%end if%>
            <%rs1.movenext%>
        <%wend%>
        </script>
 

vedere.asp



Cuando le meto el código en el campo Nome_Azienda lo mete bien, pero el resto de Alerts del resto de campos son en blanco... los campos también...



Revisando el código fuente del explorador... Se vé que conecta con la base de datos... Pero tiene problemas a la hora de introducirlos a los campos :S



La base de datos...

[Adler]

Hola

Aquí te falta la asignación

form1.ICnome.value=<%=rs1("Nome_Azienda")%>

Suerte

[oscarsb1988]

Gracias por responder pero sigue sin funcionar

De todas formas, si sabéis algún otro método para pasar los datos al formulario os estaría muy agradecido.

Sigo intentando solucionar esto...

[Myakire]

cual es el resultado que se le manda al cliente de ese código que tienes?

[oscarsb1988]

Lo que tengo es un formulario index.html

En ese index, tengo 2 botones que llevan a un formulario HTML de registro que al darle al botón submit conecta con su homólogo en ASP para enviar los datos del formulario al correo electrónico mediante CDOSYS y a la base de datos.

El otro botón me lleva directamente a un formulario en ASP donde quiero que automáticamente me cargue 1 combobox ( con todos los códigos de la tabla ), y en el onchange de cada uno me cargue los datos en cada campo correspondiente del mismo formulario de esa página en ASP.

El error que supuestamente tendré... Es que solo utilizo un documento en ASP ( no uso HTML ).

Me podrías decir como hacerlo?

Supongo que será un formulario HTML ( pero los combobox no me los cargaría al abrir la página ) que más tarde de alguna manera conecte a otro en ASP para que cargue todos los códigos al combobox y saque los datos al formulario.

Un saludo y gracias ;)

[oscarsb1988]

Iré actualizando el primer mensaje con los avances...

Necesito ideas al UPDATE2 :\

[Myakire]

Iniciado por Myakire

cual es el resultado que se le manda al cliente de ese código que tienes?

Viendo el código del cliente, veo que te faltan los apóstrofes al hacer la asignación

form1.ICnome.value= '<%=rs1("Nome_Azienda")%>'

[oscarsb1988]

Error de sintaxis: Linea 15 -> form1.ICnomeA.value = '1'

Poniendo las comillas simples

[Myakire]

Es que tu usas vbscript del lado del cliente (de hecho eso es mucho muy desaconsejable ), y lo que te puse pensando que usabas javascript como sería natural, cambia la sintaxis para vbscript, la idea es esa

[oscarsb1988]

Myakire era eso. Comillas dobles no simples... Ahora sí pasa los datos :D

Te mereces un buen puesto como programador web y con buen salario... Tú si que sabes :P