Click here to Skip to main content
15,889,418 members
Home / Discussions / Database
   

Database

 
Questionuse a string by reference? Pin
BlackDice16-Dec-05 4:58
BlackDice16-Dec-05 4:58 
AnswerRe: use a string by reference? Pin
BlackDice16-Dec-05 5:15
BlackDice16-Dec-05 5:15 
AnswerRe: use a string by reference? Pin
Shawn_H7-Feb-06 20:40
Shawn_H7-Feb-06 20:40 
QuestionData access through a windows service Pin
User 231751415-Dec-05 21:32
User 231751415-Dec-05 21:32 
AnswerRe: Data access through a windows service Pin
abhinish17-Dec-05 0:37
abhinish17-Dec-05 0:37 
QuestionError with Jet 4.0 Pin
vilmer15-Dec-05 5:36
vilmer15-Dec-05 5:36 
AnswerRe: Error with Jet 4.0 Pin
albCode15-Dec-05 5:45
albCode15-Dec-05 5:45 
GeneralRe: Error with Jet 4.0 Pin
vilmer15-Dec-05 22:05
vilmer15-Dec-05 22:05 
I found nothing about my problem in that page.
I'll try to be more explicit.

Here's a sample of my test code:



Private Shared WithEvents mtmr_Timer As Timers.Timer
Private Shared mstrPath As String
Private Shared mstrFile As String

Private Sub btnStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStart.Click
If mtmr_Timer Is Nothing Then
mtmr_Timer = New Timers.Timer
End If
AddHandler mtmr_Timer.Elapsed, AddressOf CheckVariable
mtmr_Timer.Interval = 500
mtmr_Timer.Start()
End Sub

Private Shared Sub CheckVariable(ByVal source As Object, ByVal e As ElapsedEventArgs)
Dim objConn As Connection
Dim objRS As Recordset

Try
objConn = New Connection
objConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & mstrPath & ";" & _
"Extended Properties=""DBASE IV;"";"
objConn.Open()
objRS = New Recordset
objRS = objConn.Execute("SELECT top 20 * FROM " & mstrFile & " ORDER BY 1")
If Not (objRS.EOF And objRS.BOF) Then
objRS.MoveFirst()
While Not objRS.EOF
objRS.MoveNext()
End While
End If
Catch ex As Exception
mtmr_Timer.Stop()
MsgBox(ex.Message, MsgBoxStyle.Critical + MsgBoxStyle.OKOnly)
Finally
If Not (objRS Is Nothing) Then
objRS.Close()
objRS = Nothing
End If
If Not (objConn Is Nothing) Then
If objConn.State = ConnectionState.Open Then
objConn.Close()
End If
objConn.Dispose()
End If
GC.Collect()
End Try

End Sub



GeneralRe: Error with Jet 4.0 Pin
Rob Graham16-Dec-05 13:26
Rob Graham16-Dec-05 13:26 
GeneralRe: Error with Jet 4.0 Pin
vilmer17-Dec-05 1:19
vilmer17-Dec-05 1:19 
QuestionDatabase migration tool Pin
AnonymousTwo15-Dec-05 4:40
AnonymousTwo15-Dec-05 4:40 
AnswerRe: Database migration tool Pin
-Dr_X-19-Dec-05 11:58
-Dr_X-19-Dec-05 11:58 
QuestionColumnOrder Pin
silverear15-Dec-05 2:36
silverear15-Dec-05 2:36 
AnswerRe: ColumnOrder Pin
toxcct15-Dec-05 3:07
toxcct15-Dec-05 3:07 
QuestionJOIN two objects from different sources Pin
serious-sam14-Dec-05 12:48
serious-sam14-Dec-05 12:48 
AnswerRe: JOIN two objects from different sources Pin
-Dr_X-19-Dec-05 12:00
-Dr_X-19-Dec-05 12:00 
QuestionMigrating from SQL Server 2000 to 2005 Pin
PrashantJ14-Dec-05 10:15
PrashantJ14-Dec-05 10:15 
AnswerRe: Migrating from SQL Server 2000 to 2005 Pin
albCode14-Dec-05 21:18
albCode14-Dec-05 21:18 
GeneralRe: Migrating from SQL Server 2000 to 2005 Pin
PrashantJ15-Dec-05 6:31
PrashantJ15-Dec-05 6:31 
QuestionDelete duplicate records Pin
munklefish14-Dec-05 6:34
munklefish14-Dec-05 6:34 
AnswerRe: Delete duplicate records Pin
enjoycrack14-Dec-05 7:13
enjoycrack14-Dec-05 7:13 
GeneralRe: Delete duplicate records Pin
munklefish14-Dec-05 11:46
munklefish14-Dec-05 11:46 
GeneralRe: Delete duplicate records Pin
enjoycrack14-Dec-05 11:49
enjoycrack14-Dec-05 11:49 
GeneralRe: Delete duplicate records Pin
munklefish14-Dec-05 11:54
munklefish14-Dec-05 11:54 
GeneralRe: Delete duplicate records Pin
enjoycrack14-Dec-05 14:53
enjoycrack14-Dec-05 14:53 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Praise Praise    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.