Hi grp,
Anyone have an idea why this is so extremely slow? The table has some 30
fields and some 3000 records.
Using VB6, ADO, MySQL 5.0.27, MyODBC 3.51.14
In a .bas module
Public conn As New ADODB.Connection
Sub DBConnect()
conn.Open "DSN=MyODBC3"
End Sub
Sub GetOrder(nr As String, scn As Integer)
Dim strSQL As String
Dim tmp As Integer
Dim i As Integer
Dim MyRetValue As Integer
Dim rs2 As New ADODB.Recordset
Set rs2.ActiveConnection = conn
' rs2.CursorLocation = adUseServer
' rs2.CursorType = adOpenDynamic
tmp = Val(nr)
strSQL = "SELECT * FROM orders WHERE ordernr = " & tmp & ...
Bookmarks