Oracle FAQ | Your Portal to the Oracle Knowledge Grid |
![]() |
![]() |
Home -> Community -> Usenet -> c.d.o.tools -> Re: Access To Oracle Program Conversion
Me wrote:
> I have an visual basic 6 app that about 15 user's use to enter production
> into an access
> database. I would like to change this program to use an Oracle database
> instead. Anyone know the in's and out's of changing from Access to Oracle
> database's ??? Any help would be greatly appreciated. Thanks....
>
> Here's a snippet of code that i'm using to write to the access database:
>
> Rem: Define type.
>
> Type Transaction
> Station As Variant
> machine As Variant
> empnum As Variant
> EmpName As Variant
> adate As Date
> atime As Variant
> mfgordnum As Variant
> process As Variant
> signon As Variant
> startorder As Variant
> startbox As Variant
> Pcs As Variant
> Qty As Variant
> Stage As Variant
> ItemNumber As Variant
> DyeLotNumber As Variant
> OrderQty As Variant
> PutUpType As Variant
> PutUpUOM As Variant
> PutUpLen As Variant
> Plant As Variant
> Location As Variant
> ProdFamily As Variant
> DyeShift As Variant
> DyeRange As Variant
> TicketOnWeb As Variant
>
> End Type
> Global TransactionRecord(5) As Transaction
>
> Rem: Database is up-dated using:
> Rem: Global RS As Recordset 'RecordSet for TransRecord1
>
> With RS
> .AddNew 'ADD NEW
> !ordernumber = TransactionRecord(StnHasFocus).mfgordnum
> !ItemNumber = TransactionRecord(StnHasFocus).ItemNumber
> !style = Left(TransactionRecord(StnHasFocus).ItemNumber, 6)
> !Width = Mid(TransactionRecord(StnHasFocus).ItemNumber, 7, 4)
> !Treatment = Mid(TransactionRecord(StnHasFocus).ItemNumber, 11,
> 1)
> !color = Mid(TransactionRecord(StnHasFocus).ItemNumber, 12, 4)
> !DyeLotNumber = TransactionRecord(StnHasFocus).DyeLotNumber
> !OrderQty = TransactionRecord(StnHasFocus).OrderQty
> !PutUpType = TransactionRecord(StnHasFocus).PutUpType
> !PutUpUOM = TransactionRecord(StnHasFocus).PutUpUOM
> !PutUpLen = TransactionRecord(StnHasFocus).PutUpLen
> !Plant = TransactionRecord(StnHasFocus).Plant
> !Location = TransactionRecord(StnHasFocus).Location
> !ProdFamily = TransactionRecord(StnHasFocus).ProdFamily
> !MachNumber = Val(TransactionRecord(StnHasFocus).machine)
> !empNumber = TransactionRecord(StnHasFocus).empnum
> !TranCodeType = "A" 'Left 1 digit of scanned code.
> !TranCodeNumber = 1 'Remaining digits of scaned
> code: nA001=start order, nA002=end order.
> !transqty = 0 'Not applicable for a start
> order.
> !NumberOccurs = 0 'Only defects are "1", otherwise
> zero.
> !TransDate = Date
> !TransTime = Time()
> '!TicketOnWeb = "" 'Applies only to starting or
> ending a box.
> !SecondsOrwaste = "" 'Type Code: (W)aste, (S)econds,
> (A)Start order, (B)End Order, (Y)arn,
> !hours = -Hour(Time()) - Minute(Time()) / 60 'Hours for Start
> are negative.
> !TicketOnWeb = TransactionRecord(StnHasFocus).TicketOnWeb
> !Dye_Shift = TransactionRecord(StnHasFocus).DyeShift
> !Dye_Range = TransactionRecord(StnHasFocus).DyeRange
> !torf = True
>
> .Update 'UPDATE/SAVE
> End With
>
> -----= Posted via Newsfeeds.Com, Uncensored Usenet News =-----
> http://www.newsfeeds.com - The #1 Newsgroup Service in the World!
> -----== Over 80,000 Newsgroups - 16 Different Servers! =-----
Not a line of what you have written looks like it would run against Oracle.
To connect to Oracle is easy ... just use any variant of ODBC. But it appears to me that after that you will be banging out code in PL/SQL from scratch.
Daniel A. Morgan Received on Fri Jun 15 2001 - 13:05:12 CDT
![]() |
![]() |