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

  • Автор темы jcolor
  • Дата начала
J

jcolor

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

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

S1at

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

jcolor

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

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

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

S1at

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

root

#8
Попробуй через 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
я так деала.
 
J

jcolor

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

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