Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Отчет из MS SQL о выполнении процедуры.
 
Добрый день.
По кнопке запускаю в MS SQL процедуру. необходимо получить обратную реакцию от сервера об окончании выполнения или ошибке.
Подскажите каким образом это можно реализовать?
Соединение с SQL организовано следующим образом:
Код
Private Sub avt_insert_Monthdata_1_Click()
    Dim cn As ADODB.Connection
    Dim str As String 'данные для передачи в sql
    Dim Datetime As String ' переменная даты
  
    Datetime = "01." & TextBox4m.Text & "." & TextBox4y.Text & " 00:00"
    
    Set cn = CreateObject("ADODB.Connection")
    cn.Provider = "SQLOLEDB"
    cn.ConnectionString = "user id = sa; Password=;Data source = 192.168.1.1; initial catalog = se"
    cn.Open
    
    str = "exec sp_avt_insert_Monthdata " & "'" & Datetime & "'"
    cn.Execute (str)
End Sub
Изменено: ncux199rus - 29.10.2015 14:26:37
Ограничение количества символов в TextBox.
 
Подскажите как сделать ограничение количества символов в TextBox. Нужно чтоб вводилось только 2 цифры.
Нашел ограничение по вводу символов. По количеству ни чего не смог найти.
Группировку данных в RecordSet Excel., Запрос на получение внешних данных Excel из MS SQL с помощью хранимых процедур.
 
Доброе время суток.
Есть Excel файл. При внесении в него данных они успешно добавляются в БД SQL. Не получается выбрать обратно эти данные из SQL.
Данные успешно выбираю в Recordset. Получаю таблицу.
Как из этой таблицы теперь отсортировать данные?
Изменено: ncux199rus - 24.09.2015 17:09:37
Действия с ячейками внутри диапазона (Range)
 
Добрый день.
Нужно чтобы при изменении ячеек на листе внутри диапазона передавались данные в sql. Не получается ограничить действия диапазоном.
При перечислении ячеек все работает.
На даный момент реализовано ректально. Минус нынешней реализации, при изменении ячеек вне диапазона vba выдает ошибку.
Подскажите, пожалуйста, как правильно ограничить действия диапазоном.

Код
Private Sub Worksheet_Change(ByVal Target As Range)
...
 Select Case Target.Address
        Case [A1].Address: [A9] = Target.Value
        'Case Range("B7:G65").Address: Sql_insert paramId, Datetime, Target.Value 
         Case Else: Sql_insert paramId, Datetime, Target.Value
   End Select 
...
END SUB
Изменено: ncux199rus - 08.09.2015 12:26:15
Страницы: 1
Наверх