- Код: Выделить всё
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)





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