este ejemplo comprime una base de datos access
1) crea una bd
2) copia la tabla de una bd ya existente en la bd nueva
comprime el archivo creado
Private Sub Crear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim conectar As New OleDbConnection(conexion)
conectar.Open()
Dim var1 As String = Me.ComboBox1.Text
Try
'crea la base de datos con el nombre q se ingresa por el textbox
Dim dbCatalog As New ADOX.Catalog()
dbCatalog.Create("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & var1 + ".mdb" & "")
'copia el contenido de una tabla de la base de datos señalada en el combobox, en la base de datos creada anteriormente
Dim vv As New OleDb.OleDbCommand("SELECT * INTO " & var1 & " IN " & var1 + ".mdb" & " FROM " & var1 & "", conectar)
vv.ExecuteScalar()
Catch es As Exception
End Try
conectar.Close()
End Sub
Private Sub Comprimir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim var1 As String = Me.ComboBox1.Text
Dim var2 As String = Me.TextBox1.Text
Dim dRet As Double
dRet = Shell("C:\Program Files\WinRAR\WinRAR.exe a -rar C:\Users\Leonidas\Desktop\" & var2 & " " & var1 + ".mdb" & "", AppWinStyle.NormalFocus)
End Sub
