On Oct 5, 9:16 pm, "Tim B" <nos
...@someisp.ca> wrote:
> "Charles Hooper" <hooperc2
...@yahoo.com> wrote in message
> news:1191597379.577870.194270@r29g2000hsg.googlegroups.com...
> > On Oct 5, 10:37 am, "Tim B" <nos...@someisp.ca> wrote:
> > > I have some data in an Excel spreadsheet - about 100 -200 records - that
> I
> > > need to import into Oracle, likely with some transformation required. I
> can
> > > convert it to csv or xml via MS Access and then set it up as an external
> > > table and proceed from there. What other ways could you suggest that
> might
> > > be feasible for this task? Is there another way to do it with xml as the
> > > source?
> > If you have Access, the easiest way to do this is to:
> > 1. Connect to the Excel spreadsheet as an external table source in
> > Excel
> > 2. Create a query in Access to retrieve all rows from the Excel
> > spreadsheet and rename the columns so that they match the Oracle
> > table.
> > 3. Create an external table source connection to the Oracle table
> > (through an ODBC connection).
> > 4. Modify the query definition so that it is an append query, and
> > select the connection to the Oracle table.
> > 5. Run the query.
> > Much easier than it is to explain.
> Well, today I found out that for every record I import from my spreadsheet I
> will need to add a record to an additional table, and I'll have to deal with
> a couple of sequences. What I'm likely going to do is import the spreadsheet
> into Access and use some VBA to read the records, create the needed insert
> statements, and save them to a text file. I'll keep your solution in mind
> for when I have a more straightforward import to do. Thanks.
> Tim B
Expanding on a suggestion by Malcolm Dew-Jones - just do it all in
Excel. Following is a code sample that I produced a while ago to show
someone how to select from and update an Oracle database based on the
values in an Excel spreadsheet. Word wrapping will make this a little
ugly, but each line is indented, so it should be easy to undo the word
wrapping.
Macro security must be medium or low to access the macro. The macro
code looks like this:
------------------------------------
Sub CheckSpreadsheet()
Dim dbMyDB As New ADODB.Connection
Dim snpData As New ADODB.Recordset
Dim intLastRowChecked
Dim intFoundFirstBlank
Dim intResult As Integer
Dim intColumn
Dim strColumn
Dim strFilename
Dim strWorkbookname
Dim strSheet
Dim strExcelValue
Dim strSQL
Dim strMessage
'You must create a reference to Microsoft ActiveX Data Objects
(Tools menu)
'Make sure that we don't crash - looks ugly
On Error Resume Next
'Replace MyODBCConnection with an ODBC connection name, MyUserName
with a database user name and MyPassword with the user's password
dbMyDB.ConnectionString = "Data Source=MyODBCConnection;User
ID=MyUserName;Password=MyPassword;"
dbMyDB.ConnectionTimeout = 40
dbMyDB.CursorLocation = adUseClient
dbMyDB.Open
strWorkbookname = Right(ActiveWorkbook.FullName,
Len(ActiveWorkbook.FullName) - InStrRev(ActiveWorkbook.FullName, "\"))
strSheet = ActiveSheet.Name
intLastRowChecked = 1 'Set to skip the first row
intColumn = 65 'Column A
strColumn = Chr(intColumn)
Do While intFoundFirstBlank = False
intLastRowChecked = intLastRowChecked + 1
'Read the value from the spreadsheet
strExcelValue =
Format(Workbooks(strWorkbookname).Worksheets(strSheet).Range(strColumn
& Format(intLastRowChecked)).Value)
If strExcelValue = "" Then
intFoundFirstBlank = True
Else
'Could perform an INSERT statement rather than a SELECT
statement
strSQL = "SELECT" & vbCrLf
strSQL = strSQL & " LINE_NO," & vbCrLf
strSQL = strSQL & " PART_ID," & vbCrLf
strSQL = strSQL & " USER_ORDER_QTY," & vbCrLf
strSQL = strSQL & " DESIRED_SHIP_DATE" & vbCrLf
strSQL = strSQL & "FROM" & vbCrLf
strSQL = strSQL & " CUST_ORDER_LINE" & vbCrLf
strSQL = strSQL & "WHERE" & vbCrLf
strSQL = strSQL & " CUST_ORDER_ID='" & strExcelValue &
"'" & vbCrLf
strSQL = strSQL & "ORDER BY" & vbCrLf
strSQL = strSQL & " DESIRED_SHIP_DATE"
snpData.Open strSQL, dbMyDB
Do While Not snpData.EOF
strMessage = strExcelValue & "/" &
Format(snpData("line_no")) & " " &
Format(snpData("desired_ship_date"), "m/d/yyyy") & " " &
snpData("part_id") & " Qty " & Format(snpData("user_order_qty"))
MsgBox strMessage
snpData.MoveNext
Loop
snpData.Close
End If
Loop
Set snpData = Nothing
dbMyDB.Close
Set dbMyDB = Nothing
End Sub
------------------------------------
The above macro pulls customer order IDs out of the spreadsheet (in
column A, stopping when a blank cell is found), and for each of those
customer orders, lists the order lines in the database, sorted by
desired ship date. Change it around a little, and you can then update
the database, rather than just querying information from the database.
With the above method, it should not be a problem dealing with
sequences.
Charles Hooper
IT Manager/Oracle DBA
K&M Machine-Fabricating, Inc
