Split database file into multi files on different drives.

Question

Hi,
I Have a large database file .mdf that eating my drive disk space. So i have installed another disk. Now I have 2 drives (other than OS drive) one has the .mdf file and almost full and the new drive which is empty.
I need to know How to split the .mdf into another file located on the new drive and keeping the original .mdf file not growing anymore ?

Answer 1

I know how to split an access file, but never done this with MDF, so if you know what connection string, then you should be able to change this code. However this will ask the user for location of file to be split, it will split in same folder then you can
move the splits to another folder.
This will allow you to choose how many records you want to split by, You can ignore the watchfolder part, or you can use that to automatically copy the split files, then add a delete from orginal source.
Anyway here is the code and I hope it can help with MDF files.
Imports Microsoft.VisualBasic, System, System.Diagnostics, System.IO, System.Windows.Forms
Imports System.Data.OleDb, System.Data, System.Data.SqlClient, System.Data.Odbc, System.Threading
Imports Microsoft.Office.Interop, System.Runtime.InteropServices, Microsoft.Office.Interop.Outlook
Public Class Form1
Dim sConStr As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source="
Dim aConStr, CurPr, WFolder, VFolder, SFolder, ZFolder, eFile, tFile, FileName As String
Dim TableName, aConStr2, II, IV As String
Dim Recs, Maxd, i, StartRec, EndRec, TRec, iii As Integer
Dim Parts As Decimal
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Split_Recs.Click
WFolder = txtBxPath.Text + "\"
FileName = txtBxAccess.Text
TableName = txtBxTable.Text
aConStr = WFolder + FileName
Recs = txtBxTotRecs.Text
Maxd = txtBxMax.Text
Parts = Recs / Maxd
i = 0
StartRec = i
EndRec = Maxd
Do While i < Parts
Dim FirstRec As String = StartRec + 1
Dim LastRec As String = EndRec
Dim TotRec As String = EndRec
TRec = EndRec - StartRec
TotRec = TRec
II = i + 1
IO.File.Copy("\\pw_prod\Watch_Input\Glenn-PTZ\db1.mdb", WFolder + txtBxJobNum.Text + "Pt_" + II + ".mdb")
TextBox3.AppendText(" Between " + FirstRec + " and " + LastRec + vbCrLf)
txtBxProgress.AppendText("Part: " + II + " Start " + FirstRec + " End " + LastRec + " Total: " + TotRec + vbCrLf)
TextBox5.Text = " Between " + FirstRec + " and " + LastRec
StartRec = StartRec + Maxd
EndRec = EndRec + Maxd
'Creates Queries in Main File
Dim con As OleDbConnection = New OleDbConnection(sConStr + aConStr)
Dim cmd As OleDbCommand = New OleDbCommand("CREATE PROC Variable" + II + " AS SELECT * FROM " + TableName + " where " + txtBxSort.Text + TextBox5.Text + " Order by " + txtBxSort.Text, con)
con.Open()
cmd.ExecuteNonQuery()
con.Close()
'Export each new query as new access file
Dim DevComm1Conn_1 As New System.Data.OleDb.OleDbConnection(sConStr + WFolder + txtBxJobNum.Text + "Pt_" + II + ".mdb")
DevComm1Conn_1.Open()
Dim DevComm1 As New System.Data.OleDb.OleDbCommand( _
"SELECT * INTO [Variable" + II + "] FROM [MS Access;DATABASE=" + WFolder + FileName + ";].Variable" + II, DevComm1Conn_1)
DevComm1.ExecuteNonQuery()
DevComm1Conn_1.Close()
i = i + 1
IV = i - 1
If IV = 0 Then
IV = 1
End If
If EndRec > Recs Then
EndRec = Recs
End If
TextBox5.Text = String.Empty
If txtBxWatchCopy.Text = "Yes" Then
IO.File.Copy(WFolder + txtBxJobNum.Text + "Pt_" + II + ".mdb", txtBxWatch.Text + "\" + txtBxJobNum.Text + "Pt_" + II + ".mdb")
End If
Do While IO.File.Exists(txtBxWatch.Text + "\" + txtBxJobNum.Text + "Pt_" + II + ".mdb")
Threading.Thread.Sleep(50)
Loop
Loop
txtBxProgress.AppendText("Total Parts: " + II + vbCrLf)
MsgBox("Match all counts to ticket. If not match talk to CSR")
End Sub
End Class