Deepak Shitole

System Requirements : Visual Basic 6.0 URU Digital Persona SDK Device Requirements : URU Digital Personal Finger Print Scanner Dear Friend, I have a running application of the Fingerprint Reading. I have implemented this utility for attendance system in my various projects. Uplocding the code of each and every form …

Try below steps. 1. Create Login Form using Visual Basic IDE. 2. Add Microsoft Scripting Runtime reference. (Reference to read text file) 3. Open your text file using File System Object. 4. Read file contents (username/password). 5. According to file input login to next form. These are the steps. Try …

As per my understanding, it is better to user DSN instead of hardcoded database file path to particular crystal report.

Hi all here is a code that will open the excel file and will read all sheets [CODE]'Started By Deepak Shitole 27/07/2011 Option Explicit Dim objExcel As Excel.Application Dim objXlSht As Excel.Worksheet Dim i As Double Dim blnOpenExcelObj As Boolean Private Sub cmdBrowse_Click() CommonDialog1.ShowOpen txtpath.Text = CommonDialog1.FileName End Sub Private …

Dear Friend First install the setup file of the scanner if required. In most of the barcode scanners there is no setup or installation for the devices. When you connect it to the Computer, the machine will automatically detect the device. The Barcode Scanner is nothing nut a small device …

If Val(Text1.Text) <> "0" Or Val(Text1.Text) <> vbNullString Then c = Val(Text1.Text) * 1 + c End If

Here gridCSVToExcel is MSFlexGrid Component used to Show the records of the CSV File. Dim file_name As String Dim fnum As Integer Dim whole_file As String Dim lines As Variant Dim one_line As Variant Dim num_rows As Long Dim num_cols As Long Dim the_array() As String Dim R As Long …

'Put a label on your form named label1 and change the label caption to : Compose Mail --- or what ever you wish. '[CODE] Option Explicit Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, …

[CODE]Dim TS As TextStream Dim strLine As String Dim FSO As New FileSystemObject Set FSO = Nothing Set FSO = New FileSystemObject FSO.OpenTextFile ("C:\Mytextfile.txt") Set TS = FSO.OpenTextFile("C:\Mytextfile.txt") While Not TS.AtEndOfStream = True strLine = Trim(TS.ReadLine) Debug.Print Trim(strLine) Wend[/CODE]

Dear Friend, In my example origional left position of text is 0 and i am maintaining the width of text box as per the form's size. using the following line of code. [CODE]Private Sub Form_Resize() Text1.Width = Me.Width - 200 End Sub Private Sub Form_Load() Text1.Width = Me.Width - 200 …

[CODE]Dim rs As new ADODB.Recordset 'ConnectionObject is a Connection Object Set rs = Nothing Set rs = New ADODB.Recordset rs.Open "tblMyTable", ConnectionObject, adOpenStatic, adLockOptimistic rs.Addnew rs!dtmTransactionDate = Format(DTPicker1.Value,"DD/MM/YYYY") rs.Update[/CODE] In case of any issue please feel free to contact me

[CODE]'Here Printer.CurrentX is a Left Position of the Printing Matter 'Here Printer.CurrentY is a Top Position of the Printing Matter Printer.CurrentX = 1000 Printer.CurrentY = 1000 'Write the text what you want to print Printer.Print "Visual Basic is a very interesting Programming Language" 'Next Line Printer.CurrentX = 1000 Printer.CurrentY = …