|
xxx
ExecuteNonQuery by Charles
Carroll
The utility belt library is one way to write less code for this task as example below demonstrates:
filename=/experiments/executenonquery/executenonqueryub.aspx
<%@ Assembly src="\experiments\utilitybelt\vercurrent\utilitybelt.vb" %>
<script language="VB" runat="server">
dim ub1 as new learnasp.utilitybelt()
dim strConn as string
Sub Page_Load(S As Object, E As EventArgs)
trace.tracemode=TraceMode.SortByTime
ub1.plcException=plcErr
dim strSQL as string
'ub1.ErrOptions("SensitiveOn")
strConn=ub1.DBAccess2Oledb("\experiments\data\biblio.mdb")
strSQL="insert into junk (city,state,zip) values('Rockville','MD','20849')"
ub1.DBExec(strConn,strSQL)
End Sub
</script>
<html><head>
<title>ExecuteNonQuery</title>
</head>
<body bgcolor="#FFFFFF">
<asp:placeholder id="plcErr" runat="server"/>
</body></html>
This page demonstrates how to use excecutenonquery to issue SQL statements that are action by nature and do not return records. Heres the OLEB/Access sample:
filename=/experiments/executenonquery/executenonqueryoledb.aspx
<%@ Import Namespace="System.Data.Oledb" %>
<script language="VB" runat="server">
Sub Page_Load(Src As Object, E As EventArgs)
Dim Conn1 As OLEDBConnection
Dim cmd1 as new OLEDBCommand
dim strconn as string
dim strSQL as string
dim accessdb as string
TRY
accessdb=server.mappath("/experiments/data/biblio.mdb")
strconn="PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE="
strconn &= accessDB & ";"
strSQL="insert into junk (city,state,zip) values('Rockville','MD','20849')"
Conn1 = New OLEDBConnection(strconn)
Conn1.Open()
cmd1=new OLEDBcommand(strSQL,Conn1)
cmd1.commandtext=strSQL
cmd1.ExecuteNonQuery()
CATCH ex1 as exception
Dim strMsg as string
strMsg = "strSQL=" & strSQL & system.environment.newline
strMsg &= "strConn=" & strConn & system.environment.newline
trace.warn("sub page_load",strMsg,ex1)
litMsg.text=strMsg.replace(system.environment.newline,"<br>") & ex1.tostring()
FINALLY
Conn1.Close()
END TRY
End Sub
</script>
<html><head>
<title>ExecuteNonQuery</title>
</head>
<body bgcolor="#FFFFFF">
<asp:literal id="litMsg" runat="server"/>
</body></html>
Here is the SQLserver sample:
filename=/experiments/executenonquery/executenonquerysqlclient.aspx
<%@ Import Namespace="System.Data.SQLClient" %>
<%@ Import Namespace="System.Configuration.ConfigurationSettings" %>
<script language="VB" runat="server">
Sub Page_Load(Src As Object, E As EventArgs)
Dim Conn1 As SQLConnection
Dim cmd1 as new SQLCommand
dim strconn as string
dim strSQL as string
TRY
strConn=AppSettings("LearnaspSamples")
strSQL="insert into junk (city,state,zip) values('Rockville','MD','20849')"
Conn1 = New SQLConnection(strConn)
Conn1.Open()
cmd1=new SQLcommand(strSQL,Conn1)
cmd1.commandtext=strSQL
cmd1.ExecuteNonQuery()
CATCH ex1 as exception
Dim strMsg as string
strMsg = "strSQL=" & strSQL & system.environment.newline
strMsg &= "strConn=" & strConn & system.environment.newline
trace.warn("sub page_load",strMsg,ex1)
litMsg.text=strMsg.replace(system.environment.newline,"<br>") & ex1.tostring()
FINALLY
Conn1.Close()
END TRY
End Sub
</script>
<html><head>
<title>ExecuteNonQuery</title>
</head>
<body bgcolor="#FFFFFF">
<asp:literal id="litMsg" runat="server"/>
</body></html>
|