excel - Can't set CopyFromRecordset results to Date or Number -

-

i'm trying import data set access 2010 excel using range.copyfromrecordset. there fields in query of values have been cast dates or numbers, e.g.:

iif(isdate([install date]),cdate([install date]),[install date])  [install date (cast)], iif(isnumeric([feature number]),cdbl([feature number]),[feature number])  [feature number (cast)]

here code using generate worksheet data:

private sub createrssheet(db dao.database, rsname string, sheetname string)  dim rs dao.recordset dim sht worksheet dim fldctr long dim columnrng range   'get recordset set rs = db.openrecordset(rsname)  'add worksheet set sht = bk.sheets.add sht.name = sheetname  'import recordset worksheet sht.range("a2").copyfromrecordset rs  'iterate through fields fldctr = 0 rs.fields.count - 1     sht.cells(1, fldctr + 1) = rs.fields(fldctr).name      'check if field date field     if instr(ucase(rs.fields(fldctr).name), "date") > 0          'format column date         set columnrng = sht.cells(1, fldctr + 1)         columnrng.entirecolumn.numberformat = "mm/dd/yyyy"      'check if field number cast     elseif instr(ucase(rs.fields(fldctr).name), "(cast)") > 0          'format column number         set columnrng = sht.cells(1, fldctr + 1)         columnrng.entirecolumn.numberformat = 0     end if next  end sub

however, when sub runs, number columns still formatted text, , date columns still treated strings--when apply autofilter, filter lists each individual date instead of grouping them month , year.

how can these columns end desired format?

solved:

'check if field date field if instr(ucase(rs.fields(fldctr).name), "date") > 0      'format column date     set columnrng = sht.cells(1, fldctr + 1)     columnrng.entirecolumn.numberformat = "mm/dd/yyyy"      'refresh column values new formatting     columnrng.entirecolumn.value=columnrng.entirecolumn.value   'check if field number cast elseif instr(ucase(rs.fields(fldctr).name), "(cast)") > 0      'format column number     set columnrng = sht.cells(1, fldctr + 1)     columnrng.entirecolumn.numberformat = 0      'refresh column values new formatting     columnrng.entirecolumn.value=columnrng.entirecolumn.value end if

Comments

Post a Comment

Popular posts from this blog

PHP DOM loadHTML() method unusual warning -

-
i had following code works fine on localhost: $document = new domdocument(); $document->loadhtml($p_result); $form = $document->getelementsbytagname('form')->item(0); // code continues using $form variable after same code updated on outside server, loadhtml() failed , issued warning. warning: domdocument::loadhtml() expects parameter 1 valid path, string given in path/name/to/script.php returned null instead of object code pretty gets fatal error. note contents of $p_result absolutely same on outside server , on localhost. but why displays kind of warning , why not work? doesn't loadhtml() expects argument 1 string in first place? why method expects parameter 1 valid path ? just make clear i'm not calling loadhtmlfile() , i'm calling loadhtml() . thanks. you're affected one of php bugs . issue present in php 5.6.8 , 5.6.9. have affected php version on server, , bug-free version on localhost. the bug forbids null
Read more

python - How to create jsonb index using GIN on SQLAlchemy? -

-
here's current code creating index jsonb. index("mytable_data_idx_id_key", mytable.data['id'].astext, postgresql_using='gin') but got error. sqlalchemy.exc.programmingerror: (psycopg2.programmingerror) data type text has no default operator class access method "gin" hint: must specify operator class index or define default operator class data type. [sql: "create index event_data_idx_id_key on event using gin ((data ->> 'id'))"] is there way create index on sqlalchemy? the postgresql specific sqlalchemy docs @ http://docs.sqlalchemy.org/en/latest/dialects/postgresql.html#operator-classes mention postgresql_ops dictionary provide "operator class" used postgresql, , provide example illustrating use: index('my_index', my_table.c.id, my_table.c.data, postgresql_ops={ 'data': 'text_pattern_ops',
Read more

c# - TransactionScope not rolling back although no complete() is called -

-
i'm using transactionscope rollback transaction fail bool errorreported = false; action<importerrorlog> newerrorcallback = e => { errorreported = true; errorcallback(e); }; using (var transaction = new transactionscope()) { foreach (importtaskdefinition task in taskdefinition) { loader.load(streamfile, newerrorcallback, task.destinationtable, processingtaskid); } if (!errorreported) transaction.complete(); } i'm sure there no transactionscope started ahead or after code. i'm using entity framework insert in db. regardless state of errorreported transaction never rolled in case of error. what missing ? transactionscope sets transaction.current . that's does. wants transacted must @ property. i believe ef each time connection opened reason. probably, connection open when scope installed. open connection inside of scope or enlist manually. ef has nasty "design decision": default opens
Read more