Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Что такое опция "adExecuteNoRecords" в connection?
 
#1
11.03.2012 11:58:31
Добрый день.  
 
Подскажите пож. что такое "adExecuteNoRecords" ?  
ниже пример кода...  
 
   Dim cn As ADODB.Connection  
   Dim strSQL As String  
   Dim lngRecsAff As Long  
   Set cn = New ADODB.Connection  
 
...  
 
   cn.Execute strSQL, lngRecsAff, adExecuteNoRecords ----???
 
 
 
#2
11.03.2012 12:35:01
adExecuteNoRecords    
Если указан этот параметр, то если результатом запроса будет пустой рекордсет(отсутствуют записи), тогда рекордсет не создается.  
как то так
Спасибо
 
 
 
#3
11.03.2012 13:05:48
а где можно почитать про все параметры конекшн? наподобие lngRecsAff и adExecuteNoRecords,в справке не нашел
 
 
 
#4
11.03.2012 13:19:35
{quote}{login=Суперчайник}{date=11.03.2012 01:05}{thema=}{post}а где можно почитать про все параметры конекшн? {/post}{/quote}  
Основное тут есть.  
http://www.script-coding.com/ADO.html  
здесь для ASP но Ваш вопрос тоже присутствует  
http://www.codenet.ru/webmast/iis/htm/asp/iiwadata.php
Спасибо
 
 
 
#5
11.03.2012 13:49:31
а вот спасибо вам за всё!  
 
вот только научился из иксель на сервер sql данные загружать, теперь будем изучать параметры, а то без понятия как всегда о них.
 
 
 
#6
11.03.2012 13:54:08
Я обычно с параметрами не связываюсь, просто формирую правильный SQL,  
хотя пишут что быстрее чего то будет, но я думаю врядли, если  соединение не разрывать, а только менять строку запроса.
Спасибо
 
 
 
#7
11.03.2012 13:55:57
И быстрее, я думаю, будет открыть рекордсет и грузить в него данные
Спасибо
 
 
 
#8
11.03.2012 14:01:45
с помощью рекордсета я понятия не имею как, я вот так заливаю  
...  
   cn.Open "DRIVER={Microsoft Excel Driver (*.xls)};DBQ=" & Dir1  
   strSQL = "SELECT * INTO [odbc;DRIVER=SQL Server;SERVER=ююю;DATABASE=ббб].XLImport " & _
       "FROM [Лист2$]"
...  
вроде шустро качает, и то я по одному листу качаю, так и не нашел способа вытаскивать из кэша одним махом 1 млн строк!
 
 
 
#9
11.03.2012 14:10:15
Ну если таблицу заливать то все правильно, рекордсет не нужен
Спасибо
 
 
 
#10
11.03.2012 15:37:52
а не подскажете как при showdetail присвоить определенное имя создаваемому листу?  
а то после conection.open ругается на имя создаваемого листа от сводной, либо обновлять связь (или открывать заново) или имя задать существующего!
 
 
 
#11
11.03.2012 15:56:46
Set sh = Sheets.Add  
  sh.Name = "AddSheets"
Спасибо
 
 
 
#12
11.03.2012 16:00:58
я имел ввиду в процессе команды  
Worksheets(wshname).PivotTables(1).TableRange1.Cells(2).ShowDetail = True  
что и куда прописать чтобы создаваемый лист из сводных данных был с именем "лист1"
 
 
 
#13
11.03.2012 16:08:27
Вам ведь надо после метода Showdetail  
По идее этот лист должен быть sheets(sheets.count).name  
 
но на всякий я бы сделал  
set dict = CreateObject("Scripting.Dictionary")  
for i=1 to sheets.count  
dict.add sheets(i).name,i  
next  
Showdetail////////////////  
 
for i=1 to sheets.count  
if not dict.exists(sheets(i).name) then msgbox sheets(i).name : exit for  
next
Спасибо
 
 
 
#14
11.03.2012 16:11:09
Вместо msgbox sheets(i).name : exit for  
сделайте так    
sheets(i).name ="NewName" : exit for
Спасибо
 
 
 
#15
11.03.2012 16:20:20
всегда ли при создании нового листа необходимо открывать Connection.Open  
чтобы он в sql коде видел лист? или можно обмануть путем созданеия листа с уже существовавшим именем на момент открытия связи?  
и вообще есть ли параметр обновления Connection... или прийдется каждый раз закрывать открывать?
 
 
 
#16
11.03.2012 16:28:19
блин, с переименованием листа не получается, системная какая то фигня, пока только по сто раз открывать связь, в принципе секундное дело.
 
 
 
#17
11.03.2012 16:47:28
Ан нет, с переименованием схавал.
 
 
 
#18
11.03.2012 16:50:40
Может что то типа этого поможет    
Sub ntcn()  
Dim dict As Object, cn As Object,i&,strSql$  
Set cn = CreateObject("ADODB.Connection")  
Set cn = New ADODB.Connection  
cn.Open "DRIVER={Microsoft Excel Driver (*.xls)};DBQ=" & Dir1  
Dim dict As Object  
For i = Sheets.Count To 1 Step -1  
 If Sheets(i).Name = "nnnn" Then Sheets(i).Delete Else dict.Add Sheets(i).Name, i  
Next  
         
 For i = 1 To Ляляля  
         
       Worksheets(wshname).PivotTables(1).TableRange1.Cells(2).ShowDetail = True  
       For i = 1 To Sheets.Count  
           If Not dict.exists(Sheets(i).Name) Then Sheets(i).Name = "nnnn": Exit For  
       Next  
         
strSql = "SELECT * INTO [odbc;DRIVER=SQL Server;SERVER=ююю;DATABASE=ббб].XLImport " & _
"FROM [nnnn$]"
cn.Execute (strSql)  
Sheets("nnnn").Delete  
Next  
cn.Close: Set cn = Nothing  
End Sub
Спасибо
 
 
 
#19
11.03.2012 16:53:20
только cn.Execute (strSql)  
там cn должно быть к MSSQL :-))
Спасибо
 
 
 
#20
11.03.2012 17:21:36
почему же как раз таки strSql = "SELECT * INTO [odbc;DRIVER=SQL Server
про MSSQL ничево не знаю  
спасибо.
 
 
 
Страницы: 1
Читают тему
Наверх