Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/9: Рейтинг темы: голосов - 9, средняя оценка - 5.00
ahabros2
1

SQL-представление

30.04.2013, 00:24. Просмотров 1855. Ответов 7
Метки нет (Все метки)

Пытаюсь создать SQL-представление следующим образом:
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub trade_balances2()  
  
Set cn = CreateObject("ADODB.Connection")  
  
With cn  
  
    .Provider = "Microsoft.Jet.OLEDB.4.0"  
    .ConnectionString = "Data Source=" & ThisWorkbook.Sheets("База").Cells(2, 2) & ";Extended Properties=dBase IV"  
    .Open  
      
    Set rs = .Execute("CREATE VIEW terp AS " & _  
    "SELECT D_VAGON.NP_VAGD as hred FROM D_VAGON")  
  
    ThisWorkbook.Sheets("Процесс2").Cells.ClearContents  
      
    ThisWorkbook.Sheets("Процесс2").Cells(1, 1).CopyFromRecordset rs  
      
    .Close  
      
End With  
  
End Sub
При запуске выдаётся ошибка «Операция не поддерживается для объектов этого типа». Как же создавать SQL-представления на VBA в Excel?
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
30.04.2013, 00:24
Ответы с готовыми решениями:

Представление двоичного числа в sql
привет всем, подскажите как задать двоичное число в sql declare @ids binary = ? Добавлено...

Представление типов данных SQL Server
Доброго времени суток. Существует такая проблема: Есть база данных. Ключи ID_Сотрудник,...

Если известно десятичное представление числа 255, 7, то его двоичное представление
1. 11111111, 0111 2. 111111111,1110 3. 11111111, 111 4. FF, 3 5. 255, 111

Программа переводит строковое представление числа в числовое представление
Программа получает запись действительного числа в виде строки. Входная переменная, то есть, имеет...

7
Заблокирован
30.04.2013, 07:49 2
На вот тебе пример от нашего отдела разработчиков. Писали для работы. Пользуйся, учись!

И вообще для MS Excel другая строка подключения. Вот тут читай: http://www.connectionstrings.com/excel-2007
1
Вложения
Тип файла: rar Работа с БД через MS Excel.rar (46.1 Кб, 69 просмотров)
26 / 26 / 12
Регистрация: 04.02.2013
Сообщений: 250
02.05.2013, 09:28 3
Огромное спасибо за ответ!!!

Добавлено через 1 час 18 минут
Почему-то пишет "Источник не найден и не указан драйвер, используемый по умолчанию"
В чем может быть ошибки?


Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Public conn As New ADODB.Connection
Public rs As New ADODB.Recordset
Dim sFile As String
 
Private Sub cmdShell_Click()
 
'On Error GoTo ER
frmMyForm.TextBox2.Text = "C:\Users\Пользователь\Downloads\Работа БД через MS Excel\1DBF"
    Set conn = New ADODB.Connection
    conn = "Driver={Microsoft dBASE Driver (*.dbf)};driveId = 277 ; Dbq=" & Trim(frmMyForm.TextBox2.Text) & ";"
    Debug.Print conn
    conn.Open
    
   If conn.State = 1 Then Debug.Print "Ok"
    
If TextBox1.Text = "" Then Exit Sub
 
    Set rs = New ADODB.Recordset
    Sql = Trim(Me.TextBox1.Text)
    rs.Open Sql, conn, 3, 3
    Range(Cells(3, 3), Cells(2 + rs.RecordCount, 2 + rs.Fields.Count)).CopyFromRecordset rs.DataSource
    Columns("E:E").ColumnWidth = 54.14
    Me.Hide
    Set rs = Nothing
 
Exit Sub
'ER: MsgBox Err.Description, vbCritical, "Îøèáêà"
End Sub
0
Заблокирован
02.05.2013, 10:50 4
Roman_rc, А можно вообще все что ты сделал сюда выложить я бы посмотрел. КУСКАМИ ИНФОРМАЦИЮ Я ПЛОХО ВОСПРИНИМАЮ.
0
26 / 26 / 12
Регистрация: 04.02.2013
Сообщений: 250
03.05.2013, 09:28 5
Может проблема в библиотеках. Вот например Ваш файл с ссылкой на мой рабочий стол где лежит "TEL.DBF" + скриншот активных библиотек. Было бы здорово поучиться используя BDF))
0
Вложения
Тип файла: rar Работа с БД через MS Excel.rar (59.4 Кб, 26 просмотров)
Заблокирован
03.05.2013, 15:19 6
Все работает замечательно! Скрин прилагаю. Для лучшего результата предлагаю вам связаться со мной по скайпу dan-taraz там и обсудим все вопросы и проблемы.
0
Миниатюры
SQL-представление  
Заблокирован
03.05.2013, 15:20 7
Цитата Сообщение от Roman_rc Посмотреть сообщение
бы здорово поучиться используя BDF))
Данный момент тоже можно обсудить! и о цене договоримся за обучение.
0
26 / 26 / 12
Регистрация: 04.02.2013
Сообщений: 250
03.05.2013, 18:53 8
Спасибо! На другом компьютере всё получилось) интересно в чем проблема ну буду разбираться)
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
03.05.2013, 18:53

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Перевести строковое представление числа в числовое представление
Программа получает запись действительного числа в виде строки. Входная переменная, то есть, имеет...

Заменить представление во всем коде БД на представление из другой БД
В базе было представление v_names. Во всех элементах базы в коде использовалось это название. Но...

[Microsoft][ODBC SQL Server Driver][SQL Server]Login failed- User: Reason: Not defined as a valid user of a trusted SQL Server connection
Login failed- User: Reason: Not defined as a valid user of a trusted SQL Server connection Вот...

Обязательно ли нужны знания SQL для начала работы с LINQ to SQL
Привет всем! Такой вопрос: обязательно ли нужны знания SQL для начала работы с LINQ to SQL?...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
8
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.