Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
SQL запрос из Excel VBA
 
#1
29.07.2010 21:17:43
Приветствую, знатоки.  
 
Есть проблемка небольшая - написать VBA код, который бы запрашивал у пользователя 3 параметра (переменные), приняв их делал бы SQL запрос к базе вида select * from ""Parameter1"" where ....    
 
Сам SQL запрос то я напишу, а вот как три переменные взять у пользователя в красивом виде, не подскажете?    
 
К сожалению, в VBA я полный ноль пока. :(
 
 
 
#2
29.07.2010 21:40:42
Нет! С треугольником ошибся! :)
 
 
 
#3
29.07.2010 21:57:54
Ага, то что надо. Спаисбо большое.
 
 
 
#4
29.07.2010 22:24:20
А не подскажете, как дальше вызвать значение переменной sFirstString? Текущий код выдает Subscript out of range..  
 
Код такой:  
 
Sub macros1()  
 
Dim sFirstString As String  
sFirstString = InputBox("Первый параметр", "Первый параметр")  
If sFirstString = "" Then Exit Sub  
 
   With ActiveWorkbook.Connections("desktop AgregaSQL").OLEDBConnection  
       .BackgroundQuery = True  
       .CommandText = Array("select * from ""sFirstString""")  
       .CommandType = xlCmdSql  
       .Connection = Array( _  
       "OLEDB;Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=True;Initial Catalog=AgregaSQL;Data Source=desktop;Use Proced" _  
       , _  
       "ure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=DESKTOP;Use Encryption for Data=False;Tag with column coll" _  
       , "ation when possible=False")  
       .RefreshOnFileOpen = False  
       .SavePassword = False  
       .SourceConnectionFile = ""  
       .SourceDataFile = ""  
       .ServerCredentialsMethod = xlCredentialsMethodIntegrated  
       .AlwaysUseConnectionFile = False  
       .ServerFillColor = False  
       .ServerFontStyle = False  
       .ServerNumberFormat = False  
       .ServerTextColor = False  
   End With
 
 
 
#5
29.07.2010 22:32:03
Т.е. вот тут как указывать переменную, в каком формате?  
 
       .CommandText = Array("select * from ""sFirstString""")
 
 
 
#6
29.07.2010 22:36:52
Попробуйте убрать кавычки, ВБА сам рисует их при явном объявлении текстовой переменной. И если в коде где-то пишется текст, то он берется в кавычки, а переменная - нет
 
 
 
#7
29.07.2010 22:42:15
{quote}{login=Igor67}{date=29.07.2010 10:36}{thema=}{post}Попробуйте убрать кавычки, ВБА сам рисует их при явном объявлении текстовой переменной. И если в коде где-то пишется текст, то он берется в кавычки, а переменная - нет{/post}{/quote}  
 
Не помогает.. Все равно subscript out of range.
 
 
 
#8
30.07.2010 08:40:37
Под себя перепишете как надо. Это просто пример  
 
   Dim conn As New ADODB.Connection  
   Dim comm As New ADODB.Command  
   Dim rs As New ADODB.Recordset  
 
   conn.ConnectionString = "....."  
   conn.Open  
   comm.ActiveConnection = conn  
   comm.CommandType = adCmdStoredProc  
 
   comm.Parameters.Append comm.CreateParameter("@value1", adVarChar, adParamInput, 50, "aaa")  
   comm.Parameters.Append comm.CreateParameter("@value2", adVarChar, adParamInput, 50, "bbb")  
 
   comm.CommandText = "test"  
   Set rs = comm.Execute
 
 
 
#9
30.07.2010 08:50:57
Настоятельно рекомендую не использовать  CommandText полученный с помощь слияния нескольких кусочков строк. Ошибки могут быть там где даже и не предполагаете.  
От неправильного преобразования типов данных до ошибок в правильном составлении sql запроса(например апостроф в sql запросе распознается к кавычки в VBA и его надо дублировать тексте запроса если он передается как параметр)
 
 
 
#10
25.03.2012 09:04:37
Здравствуйте!  
 
Нужна помощь в написании sql-запроса в VBA.  
Можете подробнее описать код. Что должно быть в ConnectionString, как создать подключение к другому файлу Excel или другому листу этой же книги.  
 
Спасибо
 
 
 
#11
25.03.2012 11:35:24
читаем тут  
http://support.microsoft.com/kb/257819
Спасибо
 
 
 
Страницы: 1
Наверх