|
|
|
LAB32: SQL Processor
<%
Dim objRec,objConn,pubSQL,objCmd,val,dBase,stat,statHold1,statHold2
Dim querySel,queryFrom,queryWhere,intSel,intFrom,intWhere,intRows,intCols,intFields
Dim rowsAffected,printit
printit=false
intSel=0
dBase=Request.Form ("tfDatabase")
stat=Request.Form ("taStatement")
stat=Trim (stat)
querySel=UCASE (left (stat,6))
statHold1=stat
if dBase <> "" and stat <> "" then
intSel=inStr (querySel,"SELECT")
if intSel >0 then
set objConn=Server.CreateObject ("ADODB.Connection")
objConn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("\rrasaq\db\"&dBase&".mdb")'("DSN="& dBase)
set objRec=Server.CreateObject ("ADODB.Recordset")
objRec.Open stat,objConn
intFields =objRec.GetRows
For intRows=0 to UBound (intFields,2)
Response.Write ("")
For intCols=0 to UBound (intFields,1)
Response.Write ("| "&intFields(intCols,intRows)& " | ")
Next
Response.Write (" ")
Next
Response.Write (" ")
set objRec=nothing
else
intSel=inStr (querySel,"UPDATE")
if intSel >0 then
set objCmd=Server.CreateObject ("ADODB.Command")
objCmd.ActiveConnection="DSN="&dbase
objCmd.CommandText=stat
objCmd.Execute rowsAffected
printit=true
else
intSel=inStr (querySel,"DELETE")
if intSel >0 then
set objCmd=Server.CreateObject ("ADODB.Command")
objCmd.ActiveConnection="DSN="&dbase
objCmd.CommandText=stat
objCmd.Execute rowsAffected
printit=true
else
intSel=inStr (querySel,"INSERT")
if intSel >0 then
set objCmd=Server.CreateObject ("ADODB.Command")
objCmd.ActiveConnection="DSN="&dbase
objCmd.CommandText=stat
objCmd.Execute rowsAffected
printit=true
else
Response.Write ("You have miss typed your query please recheck it")
end if
end if
end if
if printit=true then
Response.Write (""& rowsAffected &" row(s) Affected.")
end if
end if
' set objCmd=Server.CreateObject ("ADODB.Command")
' objCmd.ActiveConnection= "DSN=WebDevDay"
' objCmd.CommandText="Insert into songList values('"& count+1 &"','"& val &"')"
' objCmd.Execute
' set objConn1=Server.CreateObject ("ADODB.Connection")
' objConn1.Open"DSN=WebDevDay"
' pubSQL1="select * from songList"
' set objRec1=Server.CreateObject ("ADODB.Recordset")
' objRec1.Open pubSQL1,objConn1
' while not objRec1.EOF
' Response.Write (objRec1("ID")&") "& objRec1("playList")&"
")
' objRec1.MoveNext
' wend
' set objRec1= nothing
else
Response.Write ("You left one of your fields blank")
end if
%>
|
