can anyone help me?
How to encryption/decryption algorithm for mdb table?

Private Sub cmdSearch_Click()


On Error Resume Next


HighlightText txtSearch, True


If txtSearch.Text = "" Then


Else
Dim con As Connection
Dim rs As Recordset


On Error Resume Next
Set con = CreateObject("adodb.connection")
con.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & App.Path & "/List.mdb;" & "Uid=myUsername;" & "Pwd=1234"


sql11 = "select * from List where PlateNo='" & txtSearch.Text & "' order by month"
Set rs = New Recordset
rs.Open sql11, con, adOpenStatic, adLockReadOnly


If rs.EOF Then



Exit Sub
Else
rs.MoveLast


Text2.Text = rs("bank")
Text3.Text = rs("date")
Text4.Text = rs("description")
Text5.Text = rs("month")



End If
For i = 1 To 5
MSHFlexGrid1.ColWidth(i) = MSHFlexGrid1.Width / 5
Next i
Set MSHFlexGrid1.DataSource = rs
MSHFlexGrid1.Visible = True
End If


' ----------------------------------------------------------------------------
Dim theList As Long
Dim textToSearch As String
Dim theListText As String
Dim salpet As String


If rs.EOF = False Then
textToSearch = LCase(txtSearch.Text & " = " & Text2.Text)
For theList = 0 To lbox.ListCount - 1
theListText = LCase(lbox.List(theList))
If theListText = textToSearch Then
salpet = "exist"
End If
Next


If salpet <> "exist" Then lbox.AddItem txtSearch.Text & " = " & Text2.Text


End If
'-> -----------------------------------------------------------------------------


End Sub



Private Sub Command1_Click()
lbox.Clear
'lbox.AddItem ""
'lbox.AddItem "Results :"
End Sub


Private Sub Command2_Click()
FollowUp.Show


End Sub


Private Sub Form_Load()
'lbox.AddItem ""
'lbox.AddItem "Results :"
End Sub



'"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""'


'Uppercase and Number only
Private Sub txtSearch_KeyPress(KeyAscii As Integer)


If IsNumeric(Chr(KeyAscii)) = False And (Not (KeyAscii > 64 And KeyAscii < 91) And Not (KeyAscii > 96 And KeyAscii < 123)) And KeyAscii <> 8 And KeyAscii <> 32 Then
KeyAscii = 0
Exit Sub
Else: KeyAscii = Asc(UCase(Chr(KeyAscii)))
End If
End Sub



' Highlight Text


Public Sub HighlightText(ctlControl As Control, Optional SetFocus As Boolean)
With ctlControl
.SelStart = 0
.SelLength = Len(.Text)


If SetFocus And .Enabled And .Visible Then
.SetFocus
End If
End With
End Sub
Private Sub txtSearch_GotFocus()
txtSearch.SelStart = 0
txtSearch.SelLength = Len(txtSearch.Text)
End Sub

Edited 3 Years Ago by pyTony: fixed formatting

can anyone help me?
How to encryption/decryption algorithm for mdb table?

Here is the Module

'Module


Global sql1 As String


Sub listbooks1()
Form1.MSHFlexGrid1.Clear
Form1.MSHFlexGrid1.Visible = False
Dim con As New Connection
Dim rs As New Recordset

Set con = CreateObject("ADODB.Connection")
con.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & App.Path & "/List.mdb;" & "Uid=myUsername;" & "Pwd=1234"
Set rs = New Recordset
rs.Open sql1, con, adOpenDynamic, adLockReadOnly
Set Form1.MSHFlexGrid1.DataSource = rs
Form1.Frame3.Visible = True
Form1.MSHFlexGrid1.Visible = True
Form1.MSHFlexGrid1.Refresh
End Sub

Edited 3 Years Ago by pritaeas: Fixed formatting

This article has been dead for over six months. Start a new discussion instead.