|
mfemenel
Professor Frink
USA
1414 Posts |
 Posted - 07/18/2001 : 16:33:05
|
Never mind. I have the beginnings of it now. Couldn't get a handle on it at first see example below:
Function Main()
Dim commperiod
dim adors
ConnectString="uid=;pwd=;database=midsouth;Server=ipaddresshere;NETWORK=DBMSSOCN;Driver={SQL Server}"
set adoconn=CreateObject("adodb.connection")
adoconn.open(connectstring)
set adors=CreateObject("adodb.recordset")
adoRS.Open "select commperiod from configuration", ConnectString, 3
msgbox adors("CommPeriod")
Main = DTSTaskExecResult_Success
End Function
Mike F
|
 |
|
Active X ADO
