Database

CREATE PROCEDURE dbo.GetGuestbookData
	(	
		@SortOrder varchar(64)
	)
AS
	IF @SortOrder='ASC'
		BEGIN
			SELECT *
			FROM Guestbook INNER JOIN Users
			ON Guestbook.AuthorID = Users.RecordID
			ORDER BY Guestbook.RecordID ASC
		END
	ELSE
		BEGIN    
			SELECT *
			FROM Guestbook INNER JOIN Users
			ON Guestbook.AuthorID = Users.RecordID
			ORDER BY Guestbook.RecordID DESC
		END
RETURN

<br />
<br />
FUNCTION Get_DATA1 (p_val IN VARCHAR2)<br />
RETURN VARCHAR2 IS<br />
<br />
v_val VARCHAR2(10);<br />
BEGIN<br />
   v_val:=p_val;<br />
   RETURN v_val;<br />
END Get_DATA1;<br />

<br />
Public Function GetData1(ByVal strValue As String) As String<br />
   <br />
   Dim strConnection As String<br />
   Dim objConnection As OracleConnection<br />
   Dim objCommand As OracleCommand<br />
   Dim objParameterReturn As New OracleParameter<br />
<br />
   Dim strReturnValue As String = ""<br />
<br />
   Try<br />
       strConnection = "My Oracle connection String"<br />
       objConnection = New OracleConnection(strConnection)<br />
       objCommand = New OracleCommand("Get_DATA1", objConnection)<br />
       objCommand.CommandType = CommandType.StoredProcedure<br />
       objCommand.Parameters.Add("p_val", OracleDbType.Varchar2, 10, strValue, ParameterDirection.Input)<br />
       'setting parameter for return value<br />
       objParameterReturn = objCommand.Parameters.Add("retval", OracleDbType.Varchar2, 10, Nothing, ParameterDirection.ReturnValue)<br />
       objCommand.Connection.Open()<br />
       'Upto connection open is working fine<br />
       'but ExecuteNonQuery casues the OracleException<br />
       objCommand.ExecuteNonQuery()<br />
       strReturnValue = CType(objParameterReturn.Value(), String)<br />
<br />
   Catch ex As OracleException                <br />
       strReturnValue="Oracle Error"<br />
   Catch ex As Exception<br />
       strReturnValue="Other Error" <br />
   Finally<br />
       ''Release All DB objects<br />
       ReleaseDB(objCommand, objConnection)<br />
   End Try<br />
<br />
       Return strReturnValue<br />
End Function<br />

INSERT <br />
INTO tblUser <br />
(LoginName, UserPassword, EmailAddress, City)<br />
 Values <br />
(@User, @UsrPassword, @EmailAddress, @City);<br />
SELECT @@IDENTITY As 'Identity'

<br />
Function NewestFile(Directory, FileSpec)<br />
' Returns the name of the most recent file in a Directory<br />
' That matches the FileSpec (e.g., "*.xls").<br />
' Returns an empty string if the directory does not exist or<br />
' it contains no matching files<br />
    Dim FileName As String<br />
    Dim MostRecentFile As String<br />
    Dim MostRecentDate As Date<br />
    If Right(Directory, 1) <> "\" Then Directory = Directory & "\"<br />
    FileName = Dir(Directory & FileSpec, 0)<br />
    If FileName <> "" Then<br />
        MostRecentFile = FileName<br />
        MostRecentDate = FileDateTime(Directory & FileName)<br />
        Do While FileName <> ""<br />
            If FileDateTime(Directory & FileName) > MostRecentDate Then<br />
                 MostRecentFile = FileName<br />
                 MostRecentDate = FileDateTime(Directory & FileName)<br />
             End If<br />
             FileName = Dir<br />
        Loop<br />
    End If<br />
    NewestFile = MostRecentFile<br />
    <br />
End Function<br />