Этот баннер — требование Роскомнадзора для исполнения 152 ФЗ.
«На сайте осуществляется обработка файлов cookie, необходимых для работы сайта, а также для анализа использования сайта и улучшения предоставляемых сервисов с использованием метрической программы Яндекс.Метрика. Продолжая использовать сайт, вы даёте согласие с использованием данных технологий».
Политика конфиденциальности
|
|
|
Скинуть данные из DataSet в Excel в VB.NET
|
|||
|---|---|---|---|
|
#18+
Сделал вебсервис с двумя параметрами, которые ограничивают количесво записей, получаемых из MS SQL. Создал клиента с кнопкой и двумя комбобоксами. При нажатии кнопки: Dim serv = New FormForGetProfit.localhost.Service1() Dim t1 As String Dim t2 As Integer t1 = ComboBox1.Text t2 = Convert.ToInt32(ComboBox2.Text) DataSetForGetProfit1.Merge(serv.GetProfit(t1, t2)) Dim xlApp As Object Dim xlWb As Object Dim xlWs As Object ' Create an instance of Excel and add a workbook xlApp = CreateObject("Excel.Application") xlWb = xlApp.Workbooks.Add xlWs = xlWb.Worksheets("Лист1") xlApp.Range("A1").Value = t1 xlApp.Range("B1").Value = t2 xlApp.Range("A1:B1").Font.Bold = True 'Transfer the data to Excel xlApp.Range("A2"). ' Display Excel and give user control of Excel's lifetime xlApp.Visible = True xlApp.UserControl = True Во второй строчке Excel хотел бы начать вывод содержимого DataSet, но не знаю как подступиться. Вот если бы было нечто CopyFromRecordset, но только для DataSet, то было бы, думаю, проще. Не поможите? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 30.03.2004, 17:01 |
|
||
|
|

start [/forum/topic.php?fid=18&gotonew=1&tid=1395847]: |
0ms |
get settings: |
10ms |
get forum list: |
16ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
28ms |
get topic data: |
10ms |
get first new msg: |
6ms |
get forum data: |
3ms |
get page messages: |
50ms |
get tp. blocked users: |
2ms |
| others: | 266ms |
| total: | 397ms |

| 0 / 0 |
