Вопрос : Нужны проекты демонстрации показывают визуально окно резьбы студии 2010.

Я нов к multi-threading и wold любит сыграть вокруг с визуально студией 2010 и это будет окном резьбы.  Так любое имеет демонстрацию (или 2), котор я могу загружать после этого получают, что испытываю эту часть IDE?

Thanks,
newbieweb
class=

Ответ : Нужны проекты демонстрации показывают визуально окно резьбы студии 2010.

Вы можете попытаться это Кодий -- но вы можете 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