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:
Ver original<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:
Ver originalcode = 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:
Ver original<%@ 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...