This content has been marked as final. Show 4 replies
noone has any help on this issues ? wao!! any help anyone?
Thanks everyone for nothing I was able to find some answers by playing around and playing around on the web and here it is this is how you do it. Hope this helps someone else someday. This would inpur the cells in column A and B.
Public Sub Kick_Ass_Method()
Dim OraDatabase As Object
Dim OraDynaSet As Object
Dim OraSession As Object
Dim lngRow As Long
Dim strFIELD1 As String
Dim strFIELD2 As String
Set OraSession = CreateObject("OracleInProcServer.XOraSession")
Set OraDatabase = OraSession.OpenDatabase("XX", "XX/XXX", 0)
OraDatabase.Parameters.Add "Fabinvh_code", "", 1
'OraDatabase.Parameters.Add "Fabinvh_vend_pidm", "", 1
Set OraDynaSet = OraDatabase.CreateDynaset("select Fabinvh_code from Fabinvh", 1)
For lngRow = 1 To 100
strFIELD1 = Range("A" & CStr(lngRow)).Value
'strFIELD2 = Range("B" & CStr(lngRow)).Value
.Parameters("Fabinvh_code").Value = strFIELD1
'.Parameters("Fabinvh_vend_pidm").Value = strFIELD2
.ExecuteSQL "insert into Fabinvh(FABINVH_CODE) values(:Fabinvh_code)"
If lngRow Mod 10 = 0 Then
Set OraDynaSet = Nothing
Set OraDatabase = Nothing
Set OraSession = Nothing
That's what I am looking for long time. Thanks.
im happy it helped you i cant tell you how long I had to search for this ;-)