Prev: Opening index automatically
Next: VOPP DBF Utility
From: richard.townsendrose on 9 Apr 2010 03:45
Paulo

what i do for export is to use reportpro, and for import is turn the
spreadsheet into a csv.

and then i have a translation configuration file...
thismis the excel column heading, and then table name and field, and
whether a concatenation is required.

it works well as the client imports names and address data from three
different sources - with three similar but DIFFERENT spreadsheets -
which are often tweaked from time to time ... nightmare stuff !

Date:CU_#DATED
Taken By
Council Area:NM_#NAMEX
Title:NM_#CONTACT:1
First Name:NM_#CONTACT:2
Surname:NM_#CONTACT:3
Hse No:NM_#ADDRESS1:1
Address 1:NM_#ADDRESS1:2
Address 2:NM_#ADDRESS2
Address 3:NM_#ADDRESS3
Town/City:NM_#ADDRESS4
County:NM_#ADDRESS5
Postcode:NM_#POSTCODE
Urban / Rural:NM_#TYP1
Tel Home:NM_#TFNO
Mobile:NM_#TXNO
DOB:NM_#BIRTHDATE
Clients age
National Insurance No:NM_#TFNO2
3rd party contact:NM_#EMAIL
Tel No/Relationship:NM_#CONTPOS
Benefit Type:CU_KEY_BENEFIT_TYPE
OO/PR
LL Name:LL_#CONTACT
LL Address:LL_#ADDRESS1
LL Postcode:LL_#POSTCODE
LL Tel No:LL_#TFNO
Property Type:NM_#TYP2
Existing heating:CU_KEY_EXISTING_HEATING_TYPE
BEC required yes/no:CU_KEY_BEC_REQUIRED
Contact time
Add notes:CU_KEY_ADDITIONAL_NOTES
Marketing:CU_KEY_MARKETING

regards

r

ps did you get my email re a trial of tdoc ?
From: Paulo Oliveira on 9 Apr 2010 04:38
Richard,

Thanks
I did not get your email.

Paulo

On Apr 9, 8:45 am, "richard.townsendrose"
<richard.townsendr...(a)googlemail.com> wrote:
> Paulo
>
> what i do for export is to use reportpro, and for import is turn the
> spreadsheet into a csv.
>
> and then i have a translation configuration file...
> thismis the excel column heading, and then table name and field, and
> whether a concatenation is required.
>
> it works well as the client imports names and address data from three
> different sources - with three similar but DIFFERENT spreadsheets -
> which are often tweaked from time to time ... nightmare stuff !
>
> Date:CU_#DATED
> Taken By
> Council Area:NM_#NAMEX
> Title:NM_#CONTACT:1
> First Name:NM_#CONTACT:2
> Surname:NM_#CONTACT:3
> Hse No:NM_#ADDRESS1:1
> Address 1:NM_#ADDRESS1:2
> Address 2:NM_#ADDRESS2
> Address 3:NM_#ADDRESS3
> Town/City:NM_#ADDRESS4
> County:NM_#ADDRESS5
> Postcode:NM_#POSTCODE
> Urban / Rural:NM_#TYP1
> Tel Home:NM_#TFNO
> Mobile:NM_#TXNO
> DOB:NM_#BIRTHDATE
> Clients age
> National Insurance No:NM_#TFNO2
> 3rd party contact:NM_#EMAIL
> Tel No/Relationship:NM_#CONTPOS
> Benefit Type:CU_KEY_BENEFIT_TYPE
> OO/PR
> LL Name:LL_#CONTACT
> LL Address:LL_#ADDRESS1
> LL Postcode:LL_#POSTCODE
> LL Tel No:LL_#TFNO
> Property Type:NM_#TYP2
> Existing heating:CU_KEY_EXISTING_HEATING_TYPE
> BEC required yes/no:CU_KEY_BEC_REQUIRED
> Contact time
> Add notes:CU_KEY_ADDITIONAL_NOTES
> Marketing:CU_KEY_MARKETING
>
> regards
>
> r
>
> ps did you get my email re a trial of tdoc ?

From: Philippe Mermod on 14 Apr 2010 05:55
Hi,

http://groups.google.com/group/comp.lang.clipper.visual-objects/m
sg/69e9ec145b35263d

HTH,

--
Phil Mermod
Crystal Reports Library for Visual Objects
http://www.pkl.ch/dev/


Paulo Oliveira wrote:

> Hi all,
>
> Until now, i have a mechanism to export a Sql table to Excel,
> but now i need import some lines from excel file to a Sql
> table. Any idea, please?
>
> TIA
> Paulo Oliveira
From: diskbit on 17 Apr 2010 15:30
LOCAL FileXLS:='' , sConnStringXLS:='' , TextSQLXLS :='' as string
LOCAL ObSQLPolXLS := null_object , ObSelXls :=null_object as object
Local InfoXLS := false as logic
Local infoXLS :=0 as int

FileXLS :="MyFileSample.XLS"

ObSQLPolXLS := SQLConnection{}

sConnStringXLS := "Driver=Microsoft Excel Driver (*.xls);"+;
"DBQ="+FileXLS+";"+;
"DriverId=dword:00000316"+;
"FIL=excel 8.0;"+;
"ReadOnly=hex:01;"+;
"SafeTransactions=dword:00000000;"+;
"UID='' "


InfoXLS :=
ObSQLPolXLS:DriverConnect(,SQL_DRIVER_NOPROMPT,sConnStringXLS)


&&=======================================================
if ( InfoXLS == true )
TextSQLXLS := 'SELECT * FROM `Arkusz1$` '


ObSelXls := null_object
ObSelXls :=SQLSelect{ TekstSQLXLS , ObSQLPolXLS } && ||


&&- - - - - - - - - - - - - -
IF (!(ObSelXls == null_object ))
IF !(ObSelXls:EOF)
infoXLS:= ObSelXls:FCount
IF ( infoXLS > 0 )
Do While (!(ObSelXls:EOF))
if !( ObSelXls:FIELDGET(1) == nil ) && Kol01
Endif


EmptyWorkingSet(GetCurrentProcess())
SetProcessWorkingSetSize(GetCurrentProcess(),
0xffffffff, 0xffffffff)
EmptyWorkingSet(GetCurrentProcess())

ObSelXls:Skip(1)
Enddo
ObSelXls:Commit()
ObSelXls:Close()
ObSelXls:FreeStmt(SQL_DROP)
endif
Endif
Endif
ObSelXls:=null_object

First  |  Prev  | 
Pages: 1 2
Prev: Opening index automatically
Next: VOPP DBF Utility