VBNet - Форум - Помогите новичку разобраться с кодом в VB 8

Вопрос: Помогите новичку разобраться с кодом в VB 8 Добавлено: 28.03.10 23:10

Автор вопроса: Natalika | ICQ: 466861897

Надо сделать экспорт табл. из базы данных в Excel из Sql-сервер 2005, в результате получается в Excel переносится 1 строчка из базы данных, вместо таблицы целиком и зависает вместе с формой, где-то ошибка, а где не пойму.

        Dim STr As String
        Dim con As New ADODB.Connection
        Dim rs As ADODB.Recordset
        STr = "Data Source=2-PC\SQLEXPRESS;Initial Catalog=mainBD;Integrated Security=SSPI"
        con.Open("provider=SQLOLEDB;server=(local);user id=;pwd=;" & STr & ";")

'Не уверенна, что это верно, но как не знаю?
        rs = con.Execute("TableMain1", , -1)

        Dim objXL As Object
        Dim objWb As Object
        Dim objWs As Object

        objXL = CreateObject("Excel.Application")
        If objXL Is Nothing Then Exit Sub
        objXL.SheetsInNewWorkbook = 1
        objWb = objXL.Workbooks.Add
        objWb.SaveAs("c:\Book1.xls")
        objWs = objWb.Worksheets(1)
        objXL.Visible = True

        'Передать данные в Excel
        objWs.Range("A1").CopyFromRecordset(rs)

        objXL.Quit()

        'Разорвать соединение
        rs.Close()
        con.Close()

Помогите, кто разбирается, а то уже 3 недели парюсь и еще только больше запуталась. Работаю на VB8, примеров по этой теме нет почти, да и те, что нашла, не запускаются.
Ответить

Ответы Всего ответов: 1

Номер ответа: 1 Автор ответа: Natalika ICQ: 466861897 Вопросов: 1 Ответов: 1	Профиль \| \| #1	Добавлено: 28.03.10 23:43
	Только отправила вопрос и все заработало, пишу правильный код, может кому пригодится)))) 'Создать новую книгу Excel im oExcel As Object im oBook As Object im oSheet As Object oExcel = CreateObject("Excel.Application" oBook = oExcel.Workbooks.Add oSheet = oBook.Worksheets(1) 'Создать объект QueryTable im sNWind As String sNWind = "ata Source=2-PC\SQLEXPRESS;Initial Catalog=mainBD;Integrated Security=SSPI" im oQryTable As Object oQryTable = oSheet.QueryTables.Add("OLEDB;provider=SQLOLEDB;server=(local);user id=;pwd=;" & _ sNWind & ";", oSheet.Range("A1", "Select * from TableMain1" 'oQryTable.RefreshStyle = xlInsertEntireRows oQryTable.Refresh(False) 'Сохранить книгу и закрыть Excel oBook.SaveAs("C:\RNN\Main1.xlsx" oExcel.Quit() Ответить

Страница: 1 |