Odbc соединение!

Тема в разделе "Lotus - Программирование", создана пользователем jcolor, 14 мар 2007.

  1. jcolor

    jcolor Гость

    ПОдскажите, кто знает !!!

    для установки одбс соединения, необходимо чтобы у пользователя на машине уже были прописаны настройки этого соединения,
    можно ли как-то автоматически при запуске агента проверять , и если нет такого источника , то прописывать его, а затем с ним соединяться??
    :)
     
  2. Lacerta

    Lacerta Гость

    Lei и БД и в тему?
     
  3. S1at

    S1at Гость

    Для: jcolor
    попробуй TRY EXEPT
     
  4. jcolor

    jcolor Гость

    Для: Lacerta
    Для: S1at
    а можно поподробней? :blink:
     
  5. S1at

    S1at Гость

    Для: jcolor
    как точно прописать я и сам не знаю (если есть код скинь плиз)
    но делается так
    TRY
    здесь прописываешь подключение
    EXEPT
    Здесь прописываешь настройку
    END;
     
  6. jcolor

    jcolor Гость

    Для: S1at
    просто сейчас в лотусе на Lotusscript пишу агент, с помощью которого необходимо выбрать данные из sql таблиц,
    соединение устанавливается
    odbcConnection. ConnectTo( dataSourceName$ [ , userID$ [ , password$ ]] )

    права на запуск этого агента у всех пользователей фирмы должен быть,
    не будешь же все ходить инастраивать odbc соединение,
    в идеале хотелось бы, чтобы в агенте осуществлялась проверка и в случае надобности прописывалось соединение:)

    вообщем не знаю как это осуществить:(
     
  7. S1at

    S1at Гость

    Для: jcolor
    помоему что-то нашел, зайди те на www.delphiworld.ru
    если не найдете, скуните ко мне в аську 702913
     
  8. root

    root Гость

    Попробуй через ADO
    Код (Text):
    Dim  r_recordset As Variant
    Dim conn As Variant
    Dim ws As New NotesUIWorkspace
    Dim uidoc As NotesUIDocument
    Set uidoc = ws.CurrentDocument
    SQL= "SELECT * FROM "& uidoc.FieldGetText("tNameTmptable")
    Set conn=CreateObject("ADODB.Connection")
    conn.Open "Provider=SQLOLEDB.1;Password=12345;Persist Security   Info=True;User ID=sa;Initial Catalog=LotusTest;Data Source=192.168.x.x"
    Set r_recordset=CreateObject("ADODB.recordset")
    r_recordset.Open  sql , conn    
    Set fSelectRecord =r_recordset
    While Not vfSelectRecord.eof
    count = count+1
    fSelectRecord.movenext
    Wend
    я так деала.
     
  9. jcolor

    jcolor Гость

    Для: root
    спасибо, попробую

    А прописывать в registry как-то можно?
     
Загрузка...

Поделиться этой страницей