home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 4_2005-2006.ISO / data / Zips / MS_Access_2006297132006.psc / frmAccessDB.frm < prev    next >
Text File  |  2006-07-14  |  9KB  |  282 lines
  1. VERSION 5.00
  2. Object = "{CDE57A40-8B86-11D0-B3C6-00A0C90AEA82}#1.0#0"; "MSDATGRD.OCX"
  3. Begin VB.Form frmAccessDB 
  4.    Caption         =   "Encrypt/Decrypt Access Database"
  5.    ClientHeight    =   4950
  6.    ClientLeft      =   60
  7.    ClientTop       =   450
  8.    ClientWidth     =   8490
  9.    LinkTopic       =   "Form1"
  10.    ScaleHeight     =   4950
  11.    ScaleWidth      =   8490
  12.    StartUpPosition =   2  '╞┴─╗╓╨╨─
  13.    Begin VB.CommandButton cmdDecrypt 
  14.       Caption         =   "&Decrypt and Open DB"
  15.       BeginProperty Font 
  16.          Name            =   "MS Sans Serif"
  17.          Size            =   8.25
  18.          Charset         =   0
  19.          Weight          =   700
  20.          Underline       =   0   'False
  21.          Italic          =   0   'False
  22.          Strikethrough   =   0   'False
  23.       EndProperty
  24.       Height          =   615
  25.       Left            =   3360
  26.       TabIndex        =   4
  27.       ToolTipText     =   "Decrypts DB and DB remains  Decrypted"
  28.       Top             =   4080
  29.       Width           =   1695
  30.    End
  31.    Begin VB.CommandButton cmdEncrypt 
  32.       Caption         =   "&Encrypt "
  33.       BeginProperty Font 
  34.          Name            =   "MS Sans Serif"
  35.          Size            =   8.25
  36.          Charset         =   0
  37.          Weight          =   700
  38.          Underline       =   0   'False
  39.          Italic          =   0   'False
  40.          Strikethrough   =   0   'False
  41.       EndProperty
  42.       Height          =   615
  43.       Left            =   120
  44.       Style           =   1  'Graphical
  45.       TabIndex        =   3
  46.       ToolTipText     =   "Encrypts DB"
  47.       Top             =   4080
  48.       Width           =   1695
  49.    End
  50.    Begin VB.CommandButton cmdEnd 
  51.       Caption         =   "E&nd"
  52.       BeginProperty Font 
  53.          Name            =   "MS Sans Serif"
  54.          Size            =   8.25
  55.          Charset         =   0
  56.          Weight          =   700
  57.          Underline       =   0   'False
  58.          Italic          =   0   'False
  59.          Strikethrough   =   0   'False
  60.       EndProperty
  61.       Height          =   615
  62.       Left            =   6720
  63.       TabIndex        =   1
  64.       ToolTipText     =   "Ends Program and Encrypts DB"
  65.       Top             =   4080
  66.       Width           =   1575
  67.    End
  68.    Begin MSDataGridLib.DataGrid DataGrid1 
  69.       Height          =   3015
  70.       Left            =   120
  71.       TabIndex        =   0
  72.       Top             =   840
  73.       Width           =   8175
  74.       _ExtentX        =   14420
  75.       _ExtentY        =   5318
  76.       _Version        =   393216
  77.       HeadLines       =   1
  78.       RowHeight       =   15
  79.       BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  80.          Name            =   "MS Sans Serif"
  81.          Size            =   8.25
  82.          Charset         =   0
  83.          Weight          =   700
  84.          Underline       =   0   'False
  85.          Italic          =   0   'False
  86.          Strikethrough   =   0   'False
  87.       EndProperty
  88.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  89.          Name            =   "MS Sans Serif"
  90.          Size            =   8.25
  91.          Charset         =   0
  92.          Weight          =   700
  93.          Underline       =   0   'False
  94.          Italic          =   0   'False
  95.          Strikethrough   =   0   'False
  96.       EndProperty
  97.       ColumnCount     =   2
  98.       BeginProperty Column00 
  99.          DataField       =   ""
  100.          Caption         =   ""
  101.          BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  102.             Type            =   0
  103.             Format          =   ""
  104.             HaveTrueFalseNull=   0
  105.             FirstDayOfWeek  =   0
  106.             FirstWeekOfYear =   0
  107.             LCID            =   1033
  108.             SubFormatType   =   0
  109.          EndProperty
  110.       EndProperty
  111.       BeginProperty Column01 
  112.          DataField       =   ""
  113.          Caption         =   ""
  114.          BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  115.             Type            =   0
  116.             Format          =   ""
  117.             HaveTrueFalseNull=   0
  118.             FirstDayOfWeek  =   0
  119.             FirstWeekOfYear =   0
  120.             LCID            =   1033
  121.             SubFormatType   =   0
  122.          EndProperty
  123.       EndProperty
  124.       SplitCount      =   1
  125.       BeginProperty Split0 
  126.          BeginProperty Column00 
  127.          EndProperty
  128.          BeginProperty Column01 
  129.          EndProperty
  130.       EndProperty
  131.    End
  132.    Begin VB.Label Label1 
  133.       Alignment       =   2  'Center
  134.       AutoSize        =   -1  'True
  135.       BackColor       =   &H00FFFFFF&
  136.       BorderStyle     =   1  'Fixed Single
  137.       Caption         =   "Label1"
  138.       BeginProperty Font 
  139.          Name            =   "MS Sans Serif"
  140.          Size            =   8.25
  141.          Charset         =   0
  142.          Weight          =   700
  143.          Underline       =   0   'False
  144.          Italic          =   0   'False
  145.          Strikethrough   =   0   'False
  146.       EndProperty
  147.       ForeColor       =   &H00FF0000&
  148.       Height          =   255
  149.       Left            =   120
  150.       TabIndex        =   2
  151.       Top             =   240
  152.       Width           =   7515
  153.    End
  154. End
  155. Attribute VB_Name = "frmAccessDB"
  156. Attribute VB_GlobalNameSpace = False
  157. Attribute VB_Creatable = False
  158. Attribute VB_PredeclaredId = True
  159. Attribute VB_Exposed = False
  160. '**************************************************************************************************
  161. ' Original Program Developed by Habin and can be downloaded from:
  162. 'http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=65874&lngWId=1
  163. '
  164. 'Habin's email address:  yellow_river_boy@hotmail.com
  165. '
  166. 'Thanks:
  167. 'John Cunningham
  168. 'Heriberto Mantilla Santamaria
  169.  
  170. '*************************************************************************************************
  171.                            '**** Form Level Declarations ****
  172.  
  173. '*************************************************************************************************
  174. '  Be sure to add a Reference to Ms ActiveX Data Objects 2.x Library to Project
  175. '*************************************************************************************************
  176. '
  177. '     ********** Data Grid Option has been selected *********
  178. '     Add a Microsoft DataGrid Control to Project.
  179. '
  180. '********************************************************************************************
  181.  
  182. Dim DbFile As String                              'Name of DataBase
  183. Dim cn As ADODB.Connection                        'Connect to the ADO Data Type
  184. Dim rs As ADODB.Recordset                         'Record Source Name
  185. Dim SQLstmt As String                             'SQL Statement String(s)
  186. Dim RetVal As Variant                             'MsgBox Return Value
  187.  
  188. Private Sub cmdDecrypt_Click()
  189.  
  190. DecryptMDB App.Path & "\MTest1.mdb"
  191.  
  192. 'The following demonstrates the ShellExecute API method.
  193.     ShellExecute Me.hwnd, "Open", App.Path & _
  194.         "\MTest1.mdb", "", "C:\", vbNormalFocus
  195.         
  196.  RetVal = MsgBox("Do you want to exit - DB remains Decrypted?", 36, "MS Access Encrypt/Decrypt Database")
  197.  Select Case RetVal
  198.      Case 6     'Yes
  199.           CloseAll
  200.      Case 7     'No
  201.           'Your Code Goes Here
  202. End Select
  203.  
  204. End Sub
  205.  
  206. Private Sub cmdEncrypt_Click()
  207.  
  208. EncryptMDB App.Path & "\MTest1.mdb"
  209.  
  210. RetVal = MsgBox("Do you want to exit - DB remains Encrypted?", 36, "MS Access Encrypt/Decrypt Database")
  211. Select Case RetVal
  212.      Case 6     'Yes
  213.           CloseAll
  214.      Case 7     'No
  215.           'Your Code Goes Here
  216. End Select
  217.  
  218. End Sub
  219.  
  220. Private Sub cmdEnd_Click()
  221.  
  222. Set rs = Nothing
  223. Close_cn
  224. Set cn = Nothing
  225.  
  226.  EncryptMDB App.Path & "\MTest1.mdb"
  227.  
  228.  CloseAll
  229.    
  230. End Sub
  231.  
  232. Private Sub Form_Load()
  233.  
  234. StartEncDec
  235.  
  236. DecryptMDB App.Path & "\MTest1.mdb"
  237.  
  238. Label1.Caption = "Database Name - " & App.Path & "\MTest1.mdb"
  239.  
  240.      Open_cn
  241.      Set DataGrid1.DataSource = rs
  242.      
  243. End Sub
  244.  
  245. Private Sub Open_cn()
  246.  
  247. '     Set the Database Applicable Path
  248.       DbFile = App.Path & "\MTest1.mdb"
  249.  
  250. '      Establish the Connection
  251.        Set cn = New ADODB.Connection
  252.        cn.CursorLocation = adUseClient
  253.        cn.ConnectionString = _
  254.              "Provider=Microsoft.Jet.OLEDB.4.0;" & _
  255.              "Data Source=" & DbFile & ";" & _
  256.              "Persist Security Info=False"
  257.  
  258. '      Open the Connection
  259.       cn.Open
  260.  
  261. '      Once this Connection is opened, it can
  262. '      be used throughout the application
  263.  
  264.       SQLstmt = "SELECT * FROM [tblCvKVTW/KVXW]"
  265.  
  266. '      Get the Records
  267.       Set rs = New ADODB.Recordset
  268.       rs.Open SQLstmt, cn, adOpenStatic, adLockOptimistic, _
  269.            adCmdText
  270.  
  271. End Sub
  272.  
  273. Private Sub Close_cn()
  274.  
  275.      cn.Close
  276.      Set cn = Nothing
  277.      
  278. End Sub
  279.  
  280.  
  281.  
  282.