Database

<br />
    Public Function StoreFile(ByVal FileData As Byte(), ByVal ServerName As String, ByVal SqlPassword As String, ByVal SqlUser As String)<br />
        'Make the Connection to the SQL server<br />
        Dim ConnectionString As String = ""<br />
        ConnectionString = ConnectionString & "data source=" & ServerName & ";"<br />
        ConnectionString = ConnectionString & "password=" & SqlPassword & ";"<br />
        ConnectionString = ConnectionString & "persist security info=False;"<br />
        ConnectionString = ConnectionString & "user id=" & SqlUser & ";"<br />
        'ConnectionString = ConnectionString & "packet(Size = 4096)"<br />
<br />
        Try<br />
            'Declare the Connection Object.<br />
            Dim Conn As SqlConnection = New SqlConnection(ConnectionString)<br />
            'Open the Connection.<br />
            Conn.Open()<br />
<br />
<br />
            'Declare a DataAdapter.<br />
            Dim DA As SqlDataAdapter = New SqlDataAdapter()<br />
<br />
            'Set the Select,Delete,Insert, and Update Command for this DataAdapter<br />
            DA.SelectCommand = New SqlCommand("SELECT DOC_Type, DOC_Data, DOC_ID FROM EDIAPPS.dbo.Documents_All", Conn)<br />
            DA.InsertCommand = New SqlCommand("INSERT INTO EDIAPPS.dbo.Documents_All(DOC_Type, DOC_Data) VALUES (@DOC_Type, @DOC_Data); SELECT DOC_Type, DOC_Data, DOC_ID FROM EDIAPPS.dbo.Documents_All WHERE (DOC_ID = @@IDENTITY)", Conn)<br />
            DA.UpdateCommand = New SqlCommand("UPDATE EDIAPPS.dbo.Documents_All SET DOC_Type = @DOC_Type, DOC_Data = @DOC_Data WHERE (DOC_ID = @Original_DOC_ID) AND (DOC_Type = @Original_DOC_Type); SELECT DOC_Type, DOC_Data, DOC_ID FROM EDIAPPS.dbo.Documents_All WHERE (DOC_ID = @DOC_ID)", Conn)<br />
            DA.DeleteCommand = New SqlCommand("DELETE FROM EDIAPPS.dbo.Documents_All WHERE (DOC_ID = @Original_DOC_ID) AND (DOC_Type = @Original_DOC_Type)", Conn)<br />
<br />
            'Delclare a dataSet Object.<br />
            Dim DS As New DataSet()<br />
<br />
            'Fill the Dataset with the Table data from the Database.<br />
            DA.Fill(DS)<br />
<br />
            'Delclare a New DataRow Object.<br />
            Dim DR As DataRow = DS.Tables(0).NewRow<br />
<br />
            'Populate the new row with our information.<br />
            DR("DOC_Type") = 1<br />
            DR("DOC_Data") = FileData<br />
<br />
            'Add New Row to out DataSet.<br />
            DS.Tables(0).Rows.Add(dr)<br />
            DS.AcceptChanges()<br />
<br />
            'Update the Database with our changes.<br />
            DA.Update(DS)<br />
            Conn.Close()<br />
        Catch Ex As Exception<br />
            MessageBox.Show(Ex.Message, "Application Error", MessageBoxButtons.OK)<br />
            Return False<br />
        Catch DBE As SqlClient.SqlException<br />
            MessageBox.Show(DBE.Message, "SQL Error", MessageBoxButtons.OK)<br />
            Return False<br />
        Finally<br />
        End Try<br />
<br />
    End Function<br />