Вопрос : Достигните начала к подпорке Oракул

Здравствулте!, потребность

I соединить мой доступ front-end к некоторым таблицам Oракул 10g.  вопросы о

1st:  Могу я использовать шнур соединения для того чтобы сделать это?  Я не хочу использовать DSN.  вопрос о

2ns.  Мне нужно использовать родового водителя ODBC… если я могу соединиться к Oракул в Кодем, то VBA, польза, котор кто-то поставляет меня с шнуром соединения и веществом соединения СУЕТЫ примера?

Thanks… class=

Ответ : Достигните начала к подпорке Oракул

Вы можете попытаться это Кодий -- но вы можете tweak перемеююый strConn для того чтобы построить шнур соединения для точно водителя вы идете использовать.

Для того чтобы использовать его как раз вызовите функцию, проходя в необходимый параметры.  Также, вы можете иметь ваш архив TNSNAMES.ORA обновленный.
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:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:

Функция ConnectOracleTable (strTblName как шнур, _
                sServer как шнур, sUID как шнур, sPWD как шнур) как булевско

На ошибке переход Connect_Err

    Тусклое strConn как шнур
    Тусклый db как база данных
    Тусклое tbl как TableDef
    
    Установите db = CurrentDb ()
        
    strConn = «ODBC; »
    strConn = strConn & «DRIVER= {водитель Майкрософт ODBC для Oракул}; »
    strConn = strConn & «Server=» & sServer &»; «
    strConn = strConn & «UID=» & sUID &»; «
    strConn = strConn & «PWD=» & sPWD &»; «
    
    Если (DoesTblExist (strTblName) = ложно) после этого
        Установите tbl = db.CreateTableDef (strTblName, _
                      dbAttachSavePWD, strTblName, _
                      strConn)
        tbl db.TableDefs.Append
    Еще
        Установите tbl = db.TableDefs (strTblName)
        tbl. Соединитесь = strConn
        tbl.RefreshLink
    Закончитесь если
    ConnectOracleTable = True

Connect_Exit:
    Установите tbl = ничего
    Установите db = ничего
    Выходите функция

Connect_Err:
    ConnectOracleTable = ложно
    MsgBox заблуждается & «-» & ошибка & vbCrLf & «ый attach таблицы.»
    Резюме Connect_Exit
    
Функция конца

'***************************************************************
'Функция DoesTblExist утверждает существование TableDef
'предмет в в настоящее время базе данных. Результат обусловливает если
'предмет должен быть приложен или сво соедините освеженное свойство.
'***************************************************************

Функция DoesTblExist (strTblName как шнур) как булевско
   На резюме ошибки затем
   Тусклый db как база данных, tbl как TableDef
   Установите db = CurrentDb
   Установите tbl = db.TableDefs (strTblName)
   Если Err.Number = после этого '   ый деталь 3265.
      DoesTblExist = ложно
      Выходите функция
   Закончитесь если
   DoesTblExist = True
   Установите tbl = ничего
   Установите db = ничего
Закончите функцию
Другие решения  
  •  Как я добавляю кнопки на форме PDF для того чтобы добавить/извлекаю рядки данных?
    •
  •  Шнур ошибки в блоке задвижки?
    •
  •  сколько вариант сервера SQL на одной машине
    •
  •  Внешний вид 2007 не может архивный файл открытой сети сохраненный
    •
  •  Активно директория DNS записывает вопрос
    •
  •  Отчет о доступа 2010 экспорта к CSV с коллекторами?
    •
  •  Прокладчик OCE 9400 не начинает
    •
  •  как добавить десятичное место в формуле в отчете о кристалла seagate
    •
  •  Windows XP и Мичрософт Оутлоок и проблемы установителя Windows
    •
  •  VB6 к VS2010 - консультации тренировки?
    •
     
    programming4us programming4us