Automatically writing to SQLdatabase from a text file

[Chathura]

What are you using for a front end?

We have a time attendance card reader which, outputs EmpCode, time, etc. to a text file. We want to write a DLL to send those information to a SQLServer database automatically after one input is made to that text file. I don't know whether I want to use an API or I can manage it with simple vb commands. pls! help



Chathura

[Hack]

No, I meant are you using VB6 or VB.NET or C# or what?

[Chathura]

No, I meant are you using VB6 or VB.NET or C# or what?

Sorry, I was not be able to understand what you were asked for . I hope to use VB6 but still I did not start coding because I don't know how to track the incoming people.

[sanjivani]

You can use WaitForSingleObject API to get change notifiation of a file. You use this API for your text file and receive events in any front end tool. According to change you receive you can write code/login for your program.
You need to search more about this API. You can easily get ready made code from the Internet for this.

Thanks
Sanjivani

[manavo11]

You can use WaitForSingleObject API to get change notifiation of a file. You use this API for your text file and receive events in any front end tool. According to change you receive you can write code/login for your program.
You need to search more about this API. You can easily get ready made code from the Internet for this.

Thanks
Sanjivani

Private Const FILE_NOTIFY_CHANGE_ATTRIBUTES = &H4
Private Const FILE_NOTIFY_CHANGE_DIR_NAME = &H2
Private Const FILE_NOTIFY_CHANGE_FILE_NAME = &H1
Private Const FILE_NOTIFY_CHANGE_SIZE = &H8
Private Const FILE_NOTIFY_CHANGE_LAST_WRITE = &H10
Private Const FILE_NOTIFY_CHANGE_SECURITY = &H100
Private Const FILE_NOTIFY_CHANGE_ALL = &H4 Or &H2 Or &H1 Or &H8 Or &H10 Or &H100
Private Declare Function FindFirstChangeNotification Lib "kernel32" Alias "FindFirstChangeNotificationA" (ByVal lpPathName As String, ByVal bWatchSubtree As Long, ByVal dwNotifyFilter As Long) As Long
Private Declare Function FindCloseChangeNotification Lib "kernel32" (ByVal hChangeHandle As Long) As Long
Private Declare Function FindNextChangeNotification Lib "kernel32" (ByVal hChangeHandle As Long) As Long
Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long
Private Declare Function ResetEvent Lib "kernel32" (ByVal hEvent As Long) As Long
Private Sub Form_Load()
    'KPD-Team 2000
    'URL: [url]http://www.allapi.net/[/url]
    'E-Mail: [email][email protected][/email]
    Dim Ret As Long
    'Set the notification hook
    Ret = FindFirstChangeNotification("C:\", &HFFFFFFFF, FILE_NOTIFY_CHANGE_ALL)
    'Wait until the event is triggered
    WaitForSingleObject Ret, &HFFFFFFFF
    MsgBox "Event Triggered for the first time"
    'Reactivate our hook
    FindNextChangeNotification Ret
    'Wait until the event is triggered
    WaitForSingleObject Ret, &HFFFFFFFF
    MsgBox "Event Triggered for the second time"
    'Remove our hook
    FindCloseChangeNotification Ret
End Sub