היי,

צריך פיתרון לכתיבת מידע לתוך oracle db מתוך excel.

מישהו מכיר איך אפשר לעדכן טבלאות דטאבייס במידע שקיים בתוך עמודות של האקסל?

תודה!

צריך OraClient 10g ומעלה כזכור לי ולכתוב סקריפט בVB בתוך הEXCELL עצמו.

קודם כל תודה על התגובה יש את מה שציינתה

מצרף את הקוד שיש לי שבעצם משכתב שורות קיימות בדטהבייס אני פשוט צריך להוסיף שורות חדשות ולא לשכתב קיימות

(מצורף גם כקובץ)

Public gDBConnect As Connection

Sub OpenConnection()

If gDBConnect Is Nothing Then _

Set gDBConnect = New Connection

gDBConnect.CommandTimeout = 3000

If gDBConnect.State <> adStateOpen Then _

gDBConnect.Open "DRIVER={Oracle in OraHome90};SERVER=PCPROD.****;UID=***;PWD=**;DBQ=PCPROD.***;FWC=T"

If gDBConnect.State <> adStateOpen Then _

MsgBox "Can't open the connection", , "DB Error"

End Sub

Sub CloseConnection()

If gDBConnect Is Nothing Then Exit Sub

If gDBConnect.State = adStateOpen Then _

gDBConnect.Close

End Sub

Sub RunInsertDB()

Dim rs As New Recordset

Dim rng As Range

Set rng = Range("A2")

LangID = Range("lang_id")

OpenConnection

Do While rng <> ""

p_id = rng.Value

sq = "select product_id, product_desc, lang_id,pi_status from pc_product_languages" & _

" where product_id = " & p_id & _

" and lang_id = " & LangID

rs.Open sq, gDBConnect, adOpenStatic, adLockOptimistic

If Not rs.EOF Then

rs("product_desc") = rng.Offset(0, 1)

rs("pi_status") = "Run Rules"

rs.Update

Range("cur_pid").Value = p_id

rng.Offset(0, 2) = "done"

End If

rs.Close

Set rng = rng.Offset(1, 0)

Loop

CloseConnection

End Sub

[attachment deleted by admin]

זה סקריפט של קריאה, אתה צריך לכתוב אחד של כתיבה, מה בדיוק הבעיה?

יש לך מושג איך לשנות אותו לכתיבה?

'מצטער' על הבורות אתמול התחלתי ללמוד VB מניסוי וטעיה...

תודה!

לא מכיר VB טוב כלכך, בכל מקרה אפשר גם לעשות את זה עם TOAD אאלט..