- Код: Выделить всё
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)
Сейчас этот форум просматривают: Yandex-бот и гости: 2