Hallo,

I wrote a ActiveX Script with an ADODB Connection. I found only a way with
an UDL File.
Who see a way to do it without an UDL File?

Regards,
Michael




Function Main()
Const adLockOptimistic = 3

Dim conn 'As ADODB.Connection
Dim recHersteller 'As ADODB.Recordset
Dim recOMRC 'As ADODB.Recordset
Dim MaxFirmCode 'As Long
dim paket
set paket = dtbsglobalvariables.parent

Set conn = CreateObject("ADODB.Connection")

Set recHersteller = CreateObject("ADODB.Recordset")
Set recOMRC = CreateObject("ADODB.Recordset")

conn.Open "FILE NAME=C:\bw_database_1.udl"

recHersteller.Open "Select * from vNeueHersteller", conn
'Öffnet Recordset standardmässig lesend
recOMRC.Open "Select max(FirmCode) as MaxCode from omrc", conn '
MaxFirmCode = recOMRC.Fields("MaxCode").Value + 1
recOMRC.Close

recOMRC.Open "Select * from omrc", conn, , adLockOptimistic

Do Until recHersteller.EOF
recOMRC.AddNew
recOMRC.Fields("FirmCode").Value = MaxFirmCode
recOMRC.Fields("FirmName").Value =
Left(recHersteller.Fields("Hersteller").Value, 20)
recOMRC.Fields("DataSource").Value = "I"
recOMRC.Fields("UserSign").Value = 1
recOMRC.Update
MaxFirmCode = MaxFirmCode + 1
recHersteller.MoveNext
Loop
Main = DTSTaskExecResult_Success
End Function

Hi Michael,
Here is an example
JFB

'************************************************* *********************
' Visual Basic ActiveX Script
'************************************************* ***********************

Function Main()
Dim countr
' Connection to SQL
set mySourceConn=CreateObject("ADODB.Connection")
set mySourceRecordset=CreateObject("ADODB.Recordset")
mySourceConn.Open="Provider=SQLOLEDB;Trusted_Conne ction=yes; Data
Source=ServerName; Initial Catalog=Northwind; user id='user';
password='pwd'"

mySQLCmdText= "select orderID from orders"
mySourceRecordset.open mySQLCmdText, mySourceConn
msgbox mySQLCmdText
msgbox mySourceRecordset.RecordCount

If IsNull(mySourceRecordset.EOF) or (mySourceRecordset.cachesize < 1)
Then
num=1
Else
For countr =1 to mySourceRecordset.RecordCount
num=mySourceRecordset.Fields("orderID").value
mySourceRecordset.MoveNext
Next

End if
mySourceRecordset.close
Main = DTSTaskExecResult_Success
End Function

"Michael Papenhagen" <mpa (AT) b-w-computer (DOT) de> wrote