Stored Procedure Interface Generator - SQL Source Code in ASP

Special : Web Developer's Collection CD-ROM
50,000+ Web Templates, Logos, Cliparts, Scripts. Order Now!

Add to Favorites Make Home Page

2893 Online

Language Categories

Source Codes Home
Project Ideas New!
Interview Questions
FAQs Home
ASP Home: ASP Source Codes; ASP Script Directory New!; ASP .Net Script Directory New!; ASP Interview Questions; ASP FAQs; ASP How Tos
C Home: C Source Codes; C Script Directory New!; C Interview Questions; C FAQs; C How Tos
C++ Home: C++ Source Codes; C++ Script Directory New!; C++ Interview Questions; C++ FAQs; C++ How Tos
Java Home: Java Source Codes; Java Directory New!; Java Interview Questions; Java FAQs; Java How Tos
JavaScript Home: JavaScript Directory New!; JavaScript Source Codes; JavaScript FAQs; JavaScript How Tos
COBOL Home: COBOL Source Codes; COBOL FAQs; COBOL How Tos
Pascal Home: Pascal Source Codes; Pascal FAQs; Pascal How Tos
PHP Script Directory New!
Python Script Directory New!
Perl & CGI Script Directory New!
Flash Script Directory New!
CFML Script Directory New!
Remotely Hosted Scripts New!
Tools & Utilities Directory New!
XML Script Directory New!
Best Programmers: Amit Mathur; Vishal Bhardwaj; Deepesh Jain
Vyom NetWork

Our Services

Get 9,000 Interview Questions & Answers in an eBook.

9500+ Pages
9000 Question & Answers
All Tech. Categories

14 MB Content

Get it now !!

Home » ASP Home » SQL Home » Stored Procedure Interface Generator

A D V E R T I S E M E N T

Title	Stored Procedure Interface Generator
Description	Generate the ASP code to interface with a stored procedure.
Category	ASP » SQL
Hits	380986
Code	Select and Copy the Code
<%@ Language=VBScript %> <% Option Explicit Response.Expires = 0 Dim m_strProcName Dim m_strConnectionString Dim m_blnRecordset m_strConnectionString = "Provider=SQLOLEDB; Data Source=phpor-beav09-sr; Initial Catalog=PHPWorldDev; User ID=sa; Password=" m_strProcName = "pr_webcfg_mid_get_DBConnStr" %> <HTML> <HEAD></HEAD> <BODY> <STYLE> TD{ FONT-SIZE: 8pt; } </STYLE> <% If Request.Form.Count > 0 Then m_strProcName = Trim(Request.Form("ProcName")) m_strConnectionString = Trim(Request.Form("ConnectionString")) If Not Trim(Request.Form("ReturnRecordset")) = "" Then m_blnRecordset = True Else m_blnRecordset = False End If Call ShowCriteriaForm Call ShowProcInfo Else Call ShowCriteriaForm End If Sub ShowCriteriaForm() %> <FORM METHOD="POST" name=frmGenerate> <TABLE> <TR> <TD>Connection String</TD> <TD><Input Type="Text" name="ConnectionString" value="<%=m_strConnectionString%>" size="60"></TD> </TR> <TR> <TD>Procedure Name</TD> <TD><Input Type="Text" name="ProcName" value="<%=m_strProcName%>" size="50" value="z_TestInterrogation"></TD> </TR> <TR> <TD>Return A Recordset</TD> <TD><Input Type="checkbox" name="ReturnRecordset" value="True"></TD> </TR> <TR> <TD align="center" colspan="2"><Input Type="submit" name="btnSubmit" value="Generate"></TD> </TR> </TABLE> </FORM> <% End Sub Sub ShowProcInfo() 'Declare and create the command object Dim cmd Set cmd = Server.CreateObject("ADODB.Command") 'Open the connection on the command by a ' ssigning the 'connection string to the ActiveConnecti ' on property cmd.ActiveConnection = m_strConnectionString cmd.CommandType = 4 'Stored Procedure Command Type 'Set the CommandText to the proc name cmd.CommandText = m_strProcName 'Call refresh to retrieve the values cmd.Parameters.Refresh %> <TABLE width="100%" border="1"> <TR style="background-color:lightblue;"> <TH colspan="6">Proc Name = <%=m_strProcName%></TH> </TR> <TR style="background-color:lightblue;"> <TH>Parameter Name</TH> <TH>Direction</TH> <TH>Type</TH> <TH>Precision</TH> <TH>Size</TH> <TH>Value</TH> </TR> <% Dim blnTR1 Dim param For Each param In cmd.Parameters If blnTR1 Then Response.Write "<TR style=""background-color:silver;"">" Else Response.Write "<TR>" End If blnTR1 = Not blnTR1 Response.Write "" & _ "<TD align=""left""> " & param.Name & " </TD>" & _ "<TD align=""center""> " & GetParameterDirectionEnum(param.Direction) & _ " (" & param.Direction & ") </TD>" & _ "<TD align=""center""> " & GetDataTypeEnum(param.Type) & _ " (" & param.Type & ") </TD>" & _ "<TD align=""center""> " & param.Precision & " </TD>" & _ "<TD align=""center""> " & param.Size & " </TD>" & _ "<TD align=""center""> " & param.Value & " </TD>" & _ "</TR>" Next %> <TR> <TD colspan="6"> <TEXTAREA style="width:100%;height:100%" id=textarea1 name=textarea1> <% Dim blnFirstParameter 'Is this is the first parameter Dim strDeclaration 'Function declaration Dim strCommandParameters 'Parameters For the command Dim strOutputParameters 'Retrieving of output parameters Dim strPrecisionParameters 'Setting of precision For Decimal and Numeric Dim strTempParamVarName 'The variable name For the parameter 'Default the function name To the proc name strDeclaration = "Function " & m_strProcName & "(" blnFirstParameter = True If m_blnRecordset = True Then strDeclaration = strDeclaration & "rst" blnFirstParameter = False End If For Each param In cmd.Parameters If Left(param.Name,1) = "@" Then strTempParamVarName = Mid(param.Name,2) Else strTempParamVarName = param.name End If If Not param.Direction = 4 Then If Not blnFirstParameter = True Then strDeclaration = strDeclaration & ", " Else blnFirstParameter = False End If strDeclaration = strDeclaration & strTempParamVarName If param.Direction = 3 Then strOutputParameters = strOutputParameters & vbTab & strTempParamVarName & _ " = cmd.Parameters(""" & param.name & """).Value" & vbCrLf End If End If strCommandParameters = strCommandParameters & _ vbTab & "cmd.Parameters.Append cmd.CreateParameter(""" & param.Name _ & """, " & GetDataTypeEnum(param.Type) & ", " & GetParameterDirectionEnum(param.Direction) & _ ", " & param.Size & ", " & strTempParamVarName & ")" & vbCrLf If param.type = 14 Or param.type = 131 Then strPrecisionParameters = strPrecisionParameters & "cmd.Parameters(""" & _ param.name & """).Precision = " & param.Precision & vbCrLf End If Next strDeclaration = strDeclaration & ")" Response.Write strDeclaration & vbCrLf & vbCrLf Response.Write vbTab & "Dim cmd '- Command Object" & vbCrLf Response.Write vbTab & "Dim RETURN_VALUE'- Return Value" & vbCrLf Response.Write vbCrLf Response.Write vbTab & "RETURN_VALUE = Null" & vbCrLf Response.Write vbTab & "Set cmd= Server.CreateObject(""ADODB.Command"")" & vbCrLf If m_blnRecordset = True Then Response.Write vbTab & "Set rst= Server.CreateObject(""ADODB.Recordset"")" & vbCrLf End If Response.Write vbTab & "cmd.ActiveConnection = """ & m_strConnectionString & """" & vbCrLf Response.Write vbTab & "cmd.CommandType= 4'- Stored Procedure" & vbCrLf Response.Write vbTab & "cmd.CommandText= """ & m_strProcName & """" & vbCrLf & vbCrLf Response.Write strCommandParameters Response.Write vbCrLf & strPrecisionParameters & vbCrLf & vbCrLf If m_blnRecordset = True Then Response.Write vbTab & "rst.CursorLocation = 3 'adUseClient" & vbCrLf Response.Write vbTab & "rst.Open cmd, , 3, 1 'adOpenStatic, adLockReadOnly" & vbCrLf & vbCrLf Response.Write vbTab & "Set rst.ActiveConnection = Nothing" & vbCrLf Else Response.Write vbTab & "cmd.Execute" & vbCrLf & vbCrLf End If Response.Write strOutputParameters Response.Write vbTab & m_strProcName & " = cmd.Parameters(""RETURN_VALUE"").Value" & _ vbCrLf & vbCrLf Response.Write vbTab & "Set cmd = Nothing" & vbCrLf & vbCrLf Response.Write "End Function" & vbCrLf %>

Related Source Codes

Script Name Author

�� VyomWorld

Resistor color code reader A.Chermarajan.

Telephone Directory dhivya

card swapping game (Mini Project) nityanand

simple hangman-pascalsource Seabert

college dirtectory (Mini Project) msridhar

Poll Application John van Meter

ASP Daily Hit Counter. Tejaskumar Gandhi

To avoid null in asp environment using sql Sami

Maklumbalas webmaster

poll John van Meter

EasyASP Template Engine. TjoekBezoer

Basic Calculator using HTML & Javascript. Patrick M. D Souza

What servers support ASP ? VyomWorld

What is ASP? VyomWorld

A D V E R T I S E M E N T

Google Groups Subscribe to SourceCodesWorld - Techies Talk

Email:

Free eBook - Interview Questions: Get over 1,000 Interview Questions in an eBook for free when you join JobsAssist. Just click on the button below to join JobsAssist and you will immediately receive the Free eBook with thousands of Interview Questions in an ebook when you join.

Free Tutorials - HTML, Java, SQL, PHP, ASP, Perl, SQL Tutorials
Discuss Programming Problems and Freshers Jobs related issues here.
Discuss Final Year Project Ideas here.