Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations strongm on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

TRANFERING DATA....

Status
Not open for further replies.

korel038

Technical User
Sep 28, 2003
6
GR
I am trying to tranform data from ms access to sql server with an odbc...
while most tables are transfered with no problem some others can't....
Some Field's are trying to pass in an upside down posotion...any way i can prevent that....?
 
Can you give us an example of "Some Field's are trying to pass in an upside down posotion"

Thanks

J. Kusch
 
'**********************************************************************
' Visual Basic Transformation Script
' Copy each source column to the
' destination column
'************************************************************************

Function Main()
DTSDestination("DhmIstApofMerMelID") = DTSSource("DhmIstApofMerMelID")
DTSDestination("DhmIstApofID") = DTSSource("DhmIstApofID")
DTSDestination("DhmIstApofMerMelMerida") = DTSSource("DhmIstApofMerMelMerida")
DTSDestination("DhmIstApofMerMelMelos") = DTSSource("DimMainID")
DTSDestination("DimStatus") = DTSSource("DhmIstApofMerMelMelos")
DTSDestination("DimEponymo") = DTSSource("DimStatus")
DTSDestination("DimOnoma") = DTSSource("DimEponymo")
DTSDestination("DimOnomaFather") = DTSSource("DimOnoma")
DTSDestination("DimOnomaMother") = DTSSource("DimOnomaFather")
DTSDestination("DimMainID") = DTSSource("DimOnomaMother")
DTSDestination("DiagrafDescr") = DTSSource("DiagrafDescr")
DTSDestination("ToposBorn") = DTSSource("DimDateDiagraf")
DTSDestination("etosborn") = DTSSource("DimDateSymban")
DTSDestination("DimEponFather") = DTSSource("ToposBorn")
DTSDestination("DimGenosMother") = DTSSource("DateBorn")
DTSDestination("DimSxeshID") = DTSSource("etosborn")
DTSDestination("KtIthag") = DTSSource("DimEponFather")
DTSDestination("Ithag") = DTSSource("DimGenosMother")
DTSDestination("DimKtIdiotDim") = DTSSource("DimSxeshID")
DTSDestination("DimEtosMar") = DTSSource("KtIthag")
DTSDestination("DimOtaMar") = DTSSource("Ithag")
DTSDestination("DimBathGamMale") = DTSSource("DimKtIdiotDim")
DTSDestination("DimBathGamFemale") = DTSSource("DimArMar")
DTSDestination("DimDateDilGam") = DTSSource("DimEtosMar")
DTSDestination("DimPraxiGam") = DTSSource("DimOtaMar")
DTSDestination("DimDateGamPolit") = DTSSource("DimBathGamMale")
DTSDestination("DimToposGamPolit") = DTSSource("DimBathGamFemale")
DTSDestination("DimDateGamThrisk") = DTSSource("DimDateDilGam")
DTSDestination("DimToposGamThrisk") = DTSSource("DimPraxiGam")
DTSDestination("DimDateGamPolitEtos") = DTSSource("DimDateGamPolit")
DTSDestination("DimDateGamThriskEtos") = DTSSource("DimToposGamPolit")
DTSDestination("DimOtaLixBorn") = DTSSource("DimDateGamThrisk")
DTSDestination("eMerida") = DTSSource("DimToposGamThrisk")
DTSDestination("DimDateDiagraf") = DTSSource("DimDateGamPolitEtos")
DTSDestination("DimDateSymban") = DTSSource("DimDateGamThriskEtos")
DTSDestination("DateBorn") = DTSSource("DimOtaLixBorn")
DTSDestination("DimArMar") = DTSSource("eMerida")
DTSDestination("DimBibliarioNo") = DTSSource("DimBibliarioNo")
Main = DTSTransformStat_OK
End Function

i also posted it by mistake in another thread...oopsss..:0)
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top