- Код: Выделить всё
- Set rs = conn.Execute("Запрос")
 While Not rs.EOF
 бла-бла-бла
 rs.MoveNext
 Wend
Выполняется сильно дольше, чем тот же запрос в SQLyog'е.
Напрягает.
Почему так? И как бороцца с этим?


    Set rs = conn.Execute("Запрос")
    While Not rs.EOF
        бла-бла-бла
        rs.MoveNext
    Wend






lord0n писал(а):а патапучта прямым передором, покажи запрос
и напиши что надо сделать




Q2W писал(а):Такая штука с абсолютно любым запросом.


    conn.Open "DRIVER={MySQL ODBC 3.51 Driver};Server=server;Port=3306;Option=3;Stmt=;Database=global;Uid=globalsoft;Pwd=mypass;"

Q2W писал(а):Этот абсолютно любой запрос в vb выполняется долго
 
 


Q2W писал(а):
- Код: Выделить всё
conn.Open "DRIVER={MySQL ODBC 3.51 Driver};Server=server;Port=3306;Option=3;Stmt=;Database=global;Uid=globalsoft;Pwd=mypass;"
Set Conn = New ADODB.Connection
With Conn
  .CommandTimeout = 60
  .ConnectionString = "все что там у тебя"
  .ConnectionTimeout = 10
  .CursorLocation = adUseClient
  .IsolationLevel = adXactReadCommitted
  .Mode = adModeReadWrite Or adModeShareDenyNone
  .Open
End With
Set Rec = New ADODB.Recordset
With Rec
  Set .ActiveConnection = Conn
  .CursorLocation = adUseClient
  .CursorType = adOpenForwardOnly
  .LockType = adLockReadOnly
  .Source = "запрос"
  .Open
End With



LockType property (ADO Recordset)









Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 4