a cura di - Pubblicato il 20/11/2001 - Categoria: Versione stampabile Commenta questo articolo [ ]
Laptop Battery Come si nota, dopo la session (che utilizza prevalentemente il sistema AS/400 per verificarne i privilegi in base all utente), necessario riprendere i parametri libreria e archivio dalla form precedente, altrimenti non si avrebbe l' effettiva scrittura sul DB, ecco perch subito dopo le session ho inserito queste linee di codice:
Computer memory is the quickest, cheapest, and easiest way to improve the performance of your system. Find RAM memory upgrades for desktops, laptops, servers, and printers all backed by a lifetime warranty and guaranteed compatible with your computer. Shipping is an everyday low price of $1.99! Computer Memory Outlet sells memory compatible with all leading computer manufacturers like Dell, Apple, Compaq, HP, Sony, IBM, Lenovo, and many more.”
Thinkpad LIBRERIA = REQUEST.FORM("LIBRERIA")
ARCHIVIO = REQUEST.FORM("ARCHIVIO")
You searched for information on battery and laptop computer. Your new compaq laptop battery comes in a discharged condition and must be charged before use (refer to your computer manual for charging instructions). Of course, once you decide on the laptop computer battery you need, you will want to receive it right away. Plug battery pack into DC input of your laptop computer which is located in backside of laptop usually. Toshiba laptop battery laptop batteries, laptop battery, toshiba laptop battery, batteries for laptop computer.
Microsoft L' effettivo inserimento dei campi avviene in questo punto:
As a rental organization ICC has kept strong focus on service by following strict quality control procedures and providing 24 hour a day, 7 day a week technical support on every computer rental. Feel secure when renting a computer from iccrents.com. Rent Laptops from Quick, 1000 laptops in stock, HP, CPQ, Dell, IBM, 24x7 Support, Same Day deliveries available nationwide. 20 years of experience.
Laptop Computers SQL = "INSERT INTO "& LIBRERIA &"." & ARCHIVIO & " (ID, NOME, COGNOME) VALUES ('" & ID & "','" & NOME & "','" & COGNOME & "')"
AS400Command.CommandText = SQL
AS400Command.Execute
"Computer industry analysts estimate that some 60 percent of all corporate data exists only on desktop and laptop computers, " said Walter Scott, CEO of Acronis. "Incorporating Acronis True Image with New Mexico Software backup server is the ideal solution to capture that corporate data and ensure that it is not lost. While traditional server backups are effective for protecting server data, every company should have a combination of server and workstation backup plans."
Laptop Computer con una normale query SQL.
Description Have a friend with a laptop Do they always complain about the heat Cool them down with HandStands' Cool Lift. Designed to help promote air flow and reduce heat, the Cool Lift is perfect for notebook computers with the latest hot processors from Intel, AMD, Motorola, or IBM. Proof Shields for Laptops help prevent scratches from normal laptop use. Proof Shield. It even completely disappears when applied!
Desktop Computer Verso la fine visionabile il controllo degli errori. Quelli che vengono riproposti a video sono gli stessi generati dal client-access.
Notebooks Ed ecco infine il codice della pagina aggiungi.asp:
Lenovo <!-- METADATA TYPE="typelib" UUID="00000200-0000-0010-8000-00AA006D2EA4" NAME="ADO Type Library" -->
<%
'----------- varialibi AS400 --------------
Dim AS400Connessione
Dim AS400Command
Dim AS400File_rs
Dim ConnectionString
Dim Color
Dim ColorEnd
Dim CommandText
Dim CommandType
'---------- prelievo dati form id,nome,cognome-------------------------
ID = request.form("id")
NOME = request.form("nome")
COGNOME = request.form("cognome")
'---------- controllo gestione errori inserimento -------------------
controllo = 0
if id = "" then
controllo = controllo + 1
end if
if nome = "" then controllo = controllo + 1
end if
if cognome = "" then controllo = controllo + 1
end if
'------------------------ fine controllo errori ----------------------------
'--------------- condizione di errore immissione ------------------------------
if controllo >0 then
Response.Write ("si sono verificati " & controllo & " errori nell immisione, prego ricontrollare <br>")
Response.Write("<a href=""http://miosito.xxx"">Torna Indietro</a>")
else
'-------- prelievo informazioni relative all AS/400
'-------- possono tranquillamente essere inserite in un global.asa
Session("AS400_Userid") = Request.Form("UserId")
Session("AS400_Password") = Request.Form("Password")
Session("Library") = Request.Form("Libreria")
Session("FileName") = Request.Form("Archivio")
Session("AS400_SystemName") = Request.Form("Ip")
LIBRERIA = REQUEST.FORM("LIBRERIA")
ARCHIVIO = REQUEST.FORM("ARCHIVIO")
'-------------- connessione al mainframe -----------------------
ConnectionString = "Provider=IBMDA400;Data Source=" & Session("AS400_SystemName") & ";"
CommandText = "SELECT * FROM " & Session("Library") & "." & Session("FileName")
CommandType = adCmdText
Set AS400Connection = Server.CreateObject("ADODB.Connection")
AS400Connection.Open ConnectionString,Session("As400_Userid"),Session("AS400_Password")
Set AS400Command = Server.CreateObject("ADODB.Command")
AS400Command.ActiveConnection = AS400Connection
If (InStr(1,Request.Form("ConnectionType"),"IBM",vbTextCompare) > 0) Then
AS400Command.Properties("Updatability") = 0
End If
AS400Command.CommandText = CommandText
AS400Command.CommandType = CommandType
'----------- SQL DI INSERIMENTO ------------
SQL = "INSERT INTO "& LIBRERIA &"." & ARCHIVIO & " (ID, NOME, COGNOME) VALUES ('" & ID & "','" & NOME & "','" & COGNOME & "')"
Response.Write("Query eseguita : " & SQL & "<br>")
AS400Command.CommandText = SQL
AS400Command.Execute
DisplayError AS400Connection, Err.Number, Err.Description, Err.Source, "Main"
'--------------- Subroutine Visualizza Errori -----------------
Sub DisplayError(Connection,errNum,errDesc,errSource,proc)
On Error Resume Next
if errNum = 0 then
Response.Write("<br>Grazie, operazione effettuata con successo <br>")
Response.Write("<a href=""http://miosito.xxx"">Torna Indietro</a>")
else
Response.Write("<br>Errore VB num. : <b>" & errNum & " [0x" & Hex(errNum) & "]</b>")
Response.Write("<br>Descrizione errore: <b>" & errDesc & "</b>")
Response.Write("<br>Sorgente Errore: <b>" & errSource & "</b>")
Response.Write("<br>Procedura: <b>" & proc & "</b>")
Response.Write("<br>Totali errori di connessione: <b>" & Connection.Errors.Count & "</b>")
If (Connection.Errors.Count > 0) Then
For Each ErrorMsg in Connection.Errors
Response.Write("<br>" & ErrorMsg.Description)
Next
End If
end if
End Sub
session.abandon
Set AS400File_rs = Nothing
AS400Connection.Close
Set AS400Connessione = Nothing
Set AS400Command = Nothing
end if
%>
Conclusioni
Hard Drive Il discorso fatto per la scrittura non si discosta poi molto dall'esempio precedente, in cui andavamo a leggere i dati contenuti sul server. Tuttavia, utile notare come per manipolare al meglio i dati di un AS/400 occorra utilizzare delle query SQL e non i vari metodi o funzioni messi a disposizione da ADO. Approfondimenti
