Re: Access-- Connection String - Visual Basic Discussion Boards

I want to write a VB.net code for a software that will capture fingerprints from a biometric scanner.It will serve as an access control system which gives access to a network resources such as files.The software will enroll users fingerprints and store them in a dbase(SQL).It will also gives access when a match is found in dbase when a user scan his/her fingerprint and it denies access if such users fingerprints are not found.It will also keep time and attendance record and should be able 2 generate such reports.This is my final year project @university.I need help in form of codes,advice,tutorials or whatever will achieve this task 4 me.Thx. Smile | :)

abeyphier wrote:
This is my final year project @university.

Well, hop to it then. Good luck in finding a solution that gives you the grade you deserve.

Christian

I have several lifelong friends that are New Yorkers but I have always gravitated toward the weirdo's. - Richard Stringer

Probably the most important skill you need to survive in this job is being able to do your own research and learn what you need on-the-fly.

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

Yep - you got that right !!!

Christian

I have several lifelong friends that are New Yorkers but I have always gravitated toward the weirdo's. - Richard Stringer

At least it's the one skill that's kept me alive in this field for 20 years.
Big Grin | :-D

Again, I raise my glass to you! Beer | [beer]

Cheers!

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

Hi All,

Am getting an error in getting connected to the Access Database.
But when i get connected to the access database thru database connection wizard (from design page itself),its working fine.
I tried copying the connection string from the design properties to the code also but its not working

Code:
con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\test.mdb;UID=admin"

Error:
An unhandled exception of type 'System.NullReferenceException' occurred in WindowsApplication2.exe

Additional information: Object reference not set to an instance of an object.

Any one can help me?

Thanks in advance

can you post the code that you're using to create the connection object etc.?

thanks.

-jim

Hi Jim,
Thank You for your response.Here is my code.Am not knowing where's the change needed.

Once again, Thanks in advance.

Code:

Imports System.Data.OleDb
Public Class Form2
Inherits System.Windows.Forms.Form

#Region " Windows Form Designer generated code "

Public Sub New()
MyBase.New()

'This call is required by the Windows Form Designer.
InitializeComponent()

'Add any initialization after the InitializeComponent() call

End Sub

'Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub

'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer

'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
Friend WithEvents DataGrid1 As System.Windows.Forms.DataGrid
Friend WithEvents Button1 As System.Windows.Forms.Button
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.DataGrid1 = New System.Windows.Forms.DataGrid
Me.Button1 = New System.Windows.Forms.Button
CType(Me.DataGrid1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'DataGrid1
'
Me.DataGrid1.DataMember = ""
Me.DataGrid1.HeaderForeColor = System.Drawing.SystemColors.ControlText
Me.DataGrid1.Location = New System.Drawing.Point(56, 24)
Me.DataGrid1.Name = "DataGrid1"
Me.DataGrid1.TabIndex = 0
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(88, 144)
Me.Button1.Name = "Button1"
Me.Button1.TabIndex = 1
Me.Button1.Text = "Button1"
'
'Form2
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(292, 266)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.DataGrid1)
Me.Name = "Form2"
Me.Text = "Form2"
CType(Me.DataGrid1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)

End Sub

#End Region
Dim con As OleDbConnection
Dim da As OleDbDataAdapter

Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\work\Student.mdb;User Id=Admin;Password=;"
con.Open()
da.SelectCommand = New OleDbCommand("Select * from Users", con)
Dim ds As DataSet
ds = New DataSet("Users")
da.Fill(ds)
DataGrid1.DataMember = "Users"
DataGrid1.DataSource = ds
End Sub
End Class

no problem. you haven't instantiated your connection, or your dataadapter objects. try something like this...

Private con As OleDbConnection
Private  da As OleDbDataAdapter ' switch declaration for these two variables to be private. they're private by default, but it's good practice...

Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

con = New OleDBConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\work\Student.mdb;User Id=Admin;Password=;")
da = New OleDBDataadapter("Select * from Users", con)

try
con.Open() 

Dim ds As DataSet
ds = New DataSet("Users")

da.Fill(ds)
DataGrid1.DataSource = ds
DataGrid1.DataMember = "Users"

catch ex as exception

messagebox.show(ex.message & environment.newline & environment.newline & ex.stacktrace, "Error")

finally

if (not con is nothing)
  con.dispose
end if

if (not ds is nothing) then
  da.dispose
end if

end try

End Sub
End Class

I haven't tested this out, so there may be some syntax errors etc. let me know how it works.

-jim

Hi Jim,
It Worked Out.Thank you sooooo much. Iam really getting annoyed at my problem... Any Way THANK YOU VERY MUCH for your intime help.

Lots Of thanks from my side,
Vedagni

Smile | :)

no problem. Smile | :)

-jim

For some reason, the CurrencyManager will not let me remove the last item in the collection. For example, if I have a CurrencyManager bound to a collection with a Form and Control bound to the CurrencyManager. I can remove any item from the CurrencyManager just fine with RemoveAt. However, if it is the last item , it simply ignores the call. It doesn't throw and error, it simply doesn't do anything. Count remains Same, Position remains 0. Even if I try calling CurrencyManagerVar.List.Clear(),
it ignores the call. Again, no error, just doesn't do anything.

But in my Another form it has worked fine with CurrencyManager.RemoveAt(CurrencyManger.Position)
Any Problem in my code?

My code is :

CurrencyManager.RemoveAt(CurrencyManager.Position)

I have also tried with
Dataview.Delete(CurrencyManager.Position)

And
Dataview.Delete(CurrencyManager.Count-1)
And also with

DatarowView = CurrencyManager.Current
DataTable.Remove(DatarowView.row)

from the msdn CurrencyManager Remove At Method documentation...

Note: This method was designed to allow complex controls, such as the DataGrid control, to remove items from the list. It is not recommended that you use this method to actually remove items. Instead, use the Delete method of the DataView class to delete items.

-jim

Thankz for ur reply,ok but in my case that is also not work i have tried with
dataview.delete(index)
but it does't work,lastly i satisfied with SQL satement,

I am trying to write xml from a dataset. I am sucessfully able to write xml but i want to change the format from

<f>
<in>80004
<out>F

to

<d>
<f in="80004" out="F">

Also i want to tell the parser to parse the xml using different(ISo-8859-1) charset. can any one tell me how i can do it. Thanx in adv

Your XML did not post. Please click the "Do not treat <'s as HTML tags" check box and repost your message.

My: Blog | Photos | Next SQL Presentation
WDevs.com - Open Source Code Hosting, Blogs, FTP, Mail and More

I am trying to write xml from a dataset. I am sucessfully able to write xml but i want to change the format from

<D>
<F>
<IN>80004</IN>
<OUT>F</OUT>
</F>
</D>

to

<D>
<F IN="80004" OUT="F"/>
</D>

and also to transform the utf-8 to iso-8859-1. can anyone tell me how to do it.

Hello.
Please, help. How to get CPU ID and Mac address?
Thanks.

==================================
Something like this:
==================================

Imports System
Imports System.Globalization
Imports System.Threading
Imports System.Resources
Imports System.Drawing
Imports System.Collections
Imports System.ComponentModel
Imports System.Windows.Forms
Imports System.Data
Imports System.Reflection
Imports System.Text

Public Class Fingerprint

Public Function Value() As String
Return pack(cpuId() + biosId() + diskId() + baseId() + videoId() + macId())
End Function

Private Function identifier(ByVal wmiClass As String, ByVal wmiProperty As String, ByVal wmiMustBeTrue As String) As String
Dim result As String = ""
Dim mc As System.Management.ManagementClass = New System.Management.ManagementClass(wmiClass)
Dim moc As System.Management.ManagementObjectCollection = mc.GetInstances()
Dim mo As System.Management.ManagementObject
For Each mo In moc
If mo(wmiMustBeTrue).ToString() = "True" Then
If result = "" Then
Try
result = mo(wmiProperty).ToString()
Exit For
Catch

End Try
End If

End If
Next
Return result
End Function

Private Function identifier(ByVal wmiClass As String, ByVal wmiProperty As String) As String
Dim result As String = ""
Dim mc As System.Management.ManagementClass = New System.Management.ManagementClass(wmiClass)
Dim moc As System.Management.ManagementObjectCollection = mc.GetInstances()

For Each mo As System.Management.ManagementObject In moc

If (result = "") Then
Try
result = mo(wmiProperty).ToString()
Catch
End Try
End If
Next
Return result
End Function

Private Function cpuId() As String
'Uses first CPU identifier available in order of preference
'Don't get all identifiers, as very time consuming
Dim retVal As String = identifier("Win32_Processor", "UniqueId")
If retVal = "" Then
retVal = identifier("Win32_Processor", "ProcessorId")

If retVal = "" Then
retVal = identifier("Win32_Processor", "Name")

If retVal = "" Then
retVal = identifier("Win32_Processor", "Manufacturer")
End If

'Add clock speed for extra security
retVal += identifier("Win32_Processor", "MaxClockSpeed")
End If
End If

Return retVal

End Function

Private Function biosId() As String
Return identifier("Win32_BIOS", "Manufacturer") + identifier("Win32_BIOS", "SMBIOSBIOSVersion") + identifier("Win32_BIOS", "IdentificationCode") + identifier("Win32_BIOS", "SerialNumber") + identifier("Win32_BIOS", "ReleaseDate") + identifier("Win32_BIOS", "Version")
End Function

Private Function diskId() As String
Return identifier("Win32_DiskDrive", "Model") + identifier("Win32_DiskDrive", "Manufacturer") + identifier("Win32_DiskDrive", "Signature") + identifier("Win32_DiskDrive", "TotalHeads")
End Function

Private Function baseId() As String
Return identifier("Win32_BaseBoard", "Model") + identifier("Win32_BaseBoard", "Manufacturer") + identifier("Win32_BaseBoard", "Name") + identifier("Win32_BaseBoard", "SerialNumber")
End Function

Private Function videoId() As String
Return identifier("Win32_VideoController", "DriverVersion") + identifier("Win32_VideoController", "Name")
End Function

Private Function macId() As String
Return identifier("Win32_NetworkAdapterConfiguration", "MACAddress", "IPEnabled")
End Function

Private Function pack(ByVal text As String) As String
Dim retVal As String
Dim x As Integer = 0
Dim y As Integer = 0
Dim n As Char
For Each n In text
y += 1
x += (AscW(n) * y)
Next

retVal = x.ToString() + "00000000"

Return retVal.Substring(0, 8)
End Function
End Class

How can i create a 'round' costum button in vb.net

Hello,
You will have to look into making Owner-Drawn controls. There are many examples on the internet on how to do it. Searches such as "VB .Net Owner Drawn Control" in Google, ect, will help you in accomplishing your task. Smile | :)

I hope this helps,

Programmer2k4

My sig:

"And it is a professional faux pas to pay someone else to destroy your computer when you are perfectly capable of destroying it yourself." - Roger Wright

I now use my CodeProject Blog!
Most recent blog post: April 3

Hello!

My application is a text editor which uses plugins for each type of document.

I have written a COM server in C++ and I can write coclasses in C++ for each document type. I use COM component categorisation so my application can "find" at run-time, what document types are supported. Now I want to let a VB programmer write a COM object to represent a new document class but I cannot find if it is possible to write a VB COM object which can use COM categorisation.

Can I write a COM component in VB which can have a COM category or can I only do this in C++?

Is there a definitive list of limitations in VB vs C++ for COM development?

Can anyone help with this?

Thank you Smile | :)

I've got a slight problem regarding outlook 2003 coding, basically i've designed a form in outlook 2003 form designer for use in an exchange public folder. Within this form i have placed two tick boxes within a frame, for arguments sake lets call the tick box's - Chk1 & Chk2 / Frame -Frame1.

All i want to do is set the code so if one box is ticked the other is automatically unticked, i've got no problem doing this in VB6 but i cant seem to achive the same results in outlook 2003, can anyone help?

Thanks Smile | :)

Mark

For my final year project in xcool i was asked to write a programme in VB.net for an access control system using biometrics(fingerprints) as an authentication mode.The sware will capture the fingerprints and put them in dbase(enrollment process).The sware will allow access to a network resource e.g a file after matching user fingerprints with the one in dbase(SQL)and deny if no match is found.It also record time and attendance of user on a computer system.There will b a server which will have the dbase while the clients(standalone computers) will be used by the users.There will b a biometric unit 2 each computer(clients).help me pls.Thx 4 listening ears and reading eyes. Smile | :)

Is there an easy way to set a datagrid for Windows forms to select by row ?