C
cj
I'm getting terrible response times trying to pull data from VFP tables
using .net--like 2 minutes! Can someone help?
f:\arcust01 currently contains 187,728 records and is indexed on CUSTNO
i:\btn currently contains 5,999,657 records and is indexed on BTN
Imports System.Data.OleDb
Public Class Form1
Dim myOleDbConnection As OleDbConnection
Dim myOleDbCommand As OleDbCommand
Dim myOleDbDataAdapter As OleDbDataAdapter
Dim dt As New DataTable
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
Dim starttime As DateTime
myOleDbConnection = New
OleDbConnection("Provider=vfpoledb.1;Data Source=i:\;Collating
Sequence=general")
myOleDbCommand = New OleDbCommand
myOleDbDataAdapter = New OleDbDataAdapter
Dim fields, from As String
fields = "select btn.btn, arcust01.lastpay, arcust01.balance "
from = "from i:\btn, f:\arcust01 where btn.btn =
arcust01.custno and btn.btn = '9128675309'"
myOleDbCommand.CommandText = fields & from
myOleDbCommand.Connection = myOleDbConnection
myOleDbDataAdapter.SelectCommand = myOleDbCommand
starttime = Now()
myOleDbDataAdapter.Fill(dt)
MessageBox.Show("done! " &
Math.Round(Now.Subtract(starttime).TotalSeconds, 4).ToString)
DataGridView1.DataSource = dt
End Sub
End Class
using .net--like 2 minutes! Can someone help?
f:\arcust01 currently contains 187,728 records and is indexed on CUSTNO
i:\btn currently contains 5,999,657 records and is indexed on BTN
Imports System.Data.OleDb
Public Class Form1
Dim myOleDbConnection As OleDbConnection
Dim myOleDbCommand As OleDbCommand
Dim myOleDbDataAdapter As OleDbDataAdapter
Dim dt As New DataTable
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
Dim starttime As DateTime
myOleDbConnection = New
OleDbConnection("Provider=vfpoledb.1;Data Source=i:\;Collating
Sequence=general")
myOleDbCommand = New OleDbCommand
myOleDbDataAdapter = New OleDbDataAdapter
Dim fields, from As String
fields = "select btn.btn, arcust01.lastpay, arcust01.balance "
from = "from i:\btn, f:\arcust01 where btn.btn =
arcust01.custno and btn.btn = '9128675309'"
myOleDbCommand.CommandText = fields & from
myOleDbCommand.Connection = myOleDbConnection
myOleDbDataAdapter.SelectCommand = myOleDbCommand
starttime = Now()
myOleDbDataAdapter.Fill(dt)
MessageBox.Show("done! " &
Math.Round(Now.Subtract(starttime).TotalSeconds, 4).ToString)
DataGridView1.DataSource = dt
End Sub
End Class