BP Forums
Help Online Public Access Catalog - Printable Version

+- BP Forums (https://bpforums.info)
+-- Forum: Archived Forums (https://bpforums.info/forumdisplay.php?fid=55)
+--- Forum: Archived Forums (https://bpforums.info/forumdisplay.php?fid=56)
+---- Forum: VB.NET (Visual Basic 2010/2008) (https://bpforums.info/forumdisplay.php?fid=8)
+---- Thread: Help Online Public Access Catalog (/showthread.php?tid=611)



Help Online Public Access Catalog - ryunaga63 - 08-20-2012

Hi Brandonio I have seen your videos in youtube I am amazed with your programming skill and also I want to say hi to the rest of the master coders here...

I have problem here if you guys would like to help me how to create a source code on how to add , edit, update , and search in OPAC it is used in Library

I already have my simple log in here and its working but I don't know how to make it Case sensitive on username and password I have the download link here more information about this program

donwload link :
<!-- m --><a class="postlink" href="http://rapidgator.net/file/34577580/LabExer2.pdf.html">http://rapidgator.net/file/34577580/LabExer2.pdf.html</a><!-- m -->

Thanks

Quote:Imports System.Data.OleDb
Public Class LogIn

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim form1 As New Form1
Me.Hide()
form1.Show()
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Mycon As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\Ace\Documents\Admin.mdb")
Dim cmd As OleDbCommand = New OleDbCommand( _
"SELECT * FROM Admin WHERE Username = '" & _
TextBox1.Text & "' AND [Password] = '" & TextBox2.Text & "' ", Mycon)
Mycon.Open()
Dim sdr As OleDbDataReader = cmd.ExecuteReader()

If (sdr.Read() = True) Then
MsgBox("Successfully Login", MsgBoxStyle.Information, "Log In Passed")
Dim mainForm As New Book_Info
mainForm.Show()
Me.Hide()
Else
MsgBox("Invalid username or password!", MsgBoxStyle.RetryCancel, "Log In Failed")
TextBox1.Clear()
TextBox2.Clear()
End If

End Sub
End Class