Доступ к данным из кода

Как вы уже знаете (из главы 7), при использовании Microsoft OLE DB Provider for ODBC с источником ODBC можно соединяться посредством предопределенного источника данных (DSN или FileDSN) или без него. Для этого необходимо использовать следующий синтаксис строки подключения:

СИНТАКСИС

синтаксис с DSN (или FileDSN):

“[Provider=MSDASQL;] {DSN= Name | FileDSN= FileName }; [DATABASE= DatabaseName;] UID= UserName; PWD= UserPassword ”

синтаксис без DSN:

“[Provider=MSDASQL;] DRIVER= DriverName; SERVER= ServerName DATABASE= DatabaseName; UID= UserName; PWD= UserPassword ”

Функция ADODB_ConnectedODBC листинга 22.1 предназначена для выполнения только одной задачи — подключение к ODBC-источнику. В отличие от кода листинга 7.1 здесь к строке подключения добавлены логическое имя и пароль пользователя, поскольку SQL Server более «строг» к пользователям, чем, например, Access.

Листинг 22.1 Открытие ADO-соединения с использованием Microsoft OLE DB Provider for ODBC (c DSN)

1: Dim cn As ADODB.Connection

2: Dim rs As ADODB.Recordset

3:

4: Function ADODB_ConnectedODBC() As Boolean

5: ' устанавливает соединение для ODBC

6:

7:

8: On Error GoTo err_not_connection

9:

10: Set cn = New ADODB.Connection

11: cn.Provider = "MSDASQL"

12: cn.ConnectionString = "DSN=Test_SQL_Server;UID=Dmitry;PWD=Dmitry"

13: cn.Open

14:

15: ADODB_ConnectedODBC = True

16: Exit Function

17:

18: err_not_connection:

19: MsgBox Err.Description

20: ADODB_ConnectedODBC = False

21:

22: End Function

23:

24: Sub Test_ADODB_Connected()

25: ' тестирует ADODB_Connected: устанавливает соединение и

26: ' использует данные из таблицы Товары

27:

28: If ADODB_ConnectedSQL() Then

29: MsgBox "Похоже, соединение установлено..."

30: ' код, использующий установленное соединение:

31:

32: Set rs = New ADODB.Recordset

33: rs.CursorType = adOpenDynamic

34: rs.Source = "SELECT * FROM Товары"

35: Set rs.ActiveConnection = cn

36: rs.Open

37:

38: MsgBox rs.Fields(1) & " " & _

39: rs.Fields(1).Name & " " & rs.Fields(1).Type

40:

41: cn.Close ' закрыть соединение

42: Else

43: MsgBox " Что-то не сложилось! "

44: End If

45:

46: End Sub

Синтаксис строки подключения без DSN позволяет посредством этого драйвера подключиться к базе данных, находящейся, например, на SQL Server (параметр DRIVER для этого — “ SQL Server”). Код листинга 22.2 является примером использования провайдера ODBC без применения DSN. Здесь вся информация об источнике данных находится в строке подключения.

Листинг 22.2 Открытие ADO-соединения с использованием Microsoft OLE DB Provider for ODBC (без DSN)

1: Dim cn As ADODB.Connection

2: Dim rs As ADODB.Recordset

3:

4: Function ADODB_ConnectedODBC2() As Boolean

5: ' устанавливает соединение для ODBC c базой данных на SQL Server

6:

7:

8: On Error GoTo err_not_connection

9:

10: Set cn = New ADODB.Connection

11: cn.Provider = "MSDASQL"

12: cn.ConnectionString = _

13: "DRIVER=SQL Server;SERVER=NATALI;DATABASE=Фирма;" & _

14: "UID=Dmitry;PWD=Dmitry"

15: cn.Open

16:

17: ADODB_ConnectedODBC2 = True

18: Exit Function

19:

20: err_not_connection:

21: ADODB_ConnectedODBC2 = False

22:

23: End Function

24:

25: Sub Test_ADODB_Connected()

26: ' тестирует ADODB_Connected: устанавливает соединение и

27: ' использует данные из таблицы Товары

28:

29: Dim i As Integer, j As Integer

30:

31:

32: If ADODB_ConnectedODBC2() Then

33: MsgBox "Похоже, соединение установлено..."

34: ' код, использующий установленное соединение:

35:

36: Set rs = New ADODB.Recordset

37: rs.CursorType = adOpenDynamic

38: rs.Source = "SELECT * FROM Товары"

39: Set rs.ActiveConnection = cn

40: rs.Open

41:

42: 'установить начальную строку таблицы:

43: j = 1

44:

45: 'записать заголовки полей в Excel-лист:

46: For i = 0 To rs.Fields.Count - 1

47: ActiveWorkbook.Sheets(1).Cells(j, i + 1).Value = _

48: rs.Fields(i).Name

49: Next

50:

51: 'записать содержимое полей в Excel-лист:

52: rs.MoveFirst

53: Do While Not rs.EOF

54: j = j + 1

55: For i = 0 To rs.Fields.Count - 1

56: ActiveWorkbook.Sheets(1).Cells(j, i + 1).Value = _

57: rs.Fields(i)

58: Next

59: rs.MoveNext

60: Loop

61:

62:

63: cn.Close ' закрыть соединение

64: Else

65: MsgBox " Что-то не сложилось! "

66: End If

67:

68: End Sub

Если код листинга 22.1 может быть выполнен и из Visual Basic, и из любого VBA-приложения, то код листинга 22.2 предназначен для работы в Excel, поскольку в нем без указания приложения используются объекты Excel: здесь немного изменена процедура Test_ADODB_Connected, которая после выполнения соединения с источником данных и созданием набора передает набор в рабочий лист. Сначала (строки 46–49) в лист передаются заголовки полей, а затем (строки 53–60) — содержимое полей набора. Результат выполнения кода листинга 22.2 может быть очень похожим на представленный на рис. 22.9.

Рис. 22.9

Результат выполнения кода листинга 22.2