| Вопрос: SQL запрос в Excel | Добавлено: 15.10.06 07:30 |
Автор вопроса:  igrek | ICQ: 412847431 |
|
Короче такая фигня:
1. Программа работы с БД 2. Ячейки заполняются в DataGrid Проблема в том что мне нужно определенные данные экспортировать в Excel при запросе sSQL = "SELECT * FROM Base WHERE Ðàçäåë ='" & TreeView1.SelectedItem.Text & "' ;" экспорт проводится успешно но при запросе sSQL = "SELECT * FROM Base WHERE " & h & " like '%" & Text1.Text & "%'" & ";" выбигает ошибка. ВОТ КОД ЭКСПОРТА Set db = DAO.OpenDatabase("C:\dvp1.mdb")
Set rs = db.OpenRecordset(sSQL) objExcel.Visible = True objExcel.Workbooks.Add s = 1 With rs .MoveFirst Do While Not .EOF s = s + 1 objExcel.ActiveCell(s, 1) = rs.Fields(0) objExcel.ActiveCell(s, 2) = rs.Fields(1) objExcel.ActiveCell(s, 3) = rs.Fields(2) objExcel.ActiveCell(s, 4) = rs.Fields(3) objExcel.ActiveCell(s, 5) = rs.Fields(4) .MoveNext Loop End With rs.Close db.Close ВОПРОС где ошибка или как можно сделать по другому |
| Ответы | Всего ответов: 0 |
Страница: