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

[jcolor]

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

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

 

[Lacerta]

Lei и БД и в тему?

 

[S1at]

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

 

[jcolor]

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

 

[S1at]

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

 

[jcolor]

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

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

вообщем не знаю как это осуществить

 

[S1at]

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

 

[root]

Попробуй через ADO

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

я так деала.

 

[jcolor]

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

А прописывать в registry как-то можно?