sql - Import Selected Columns to Excel from Access Table using VBA -


i trying import selected data access table. table has 4 columns , want want columns 2 , 3. in excel , want them listed in order: column 3, column 2 (reverse how in access). additionally want select rows (from access table) based on date referenced in excel spread sheet (which refer rpdate in code). in access, "date" first column. need please. thanks.

sub adoimportfromaccesstable() dim dbfullname string dim tablename string dim targetrange range dim rpdate range  dbfullname = "c:\documents\database.mdb" tablename = "datatable" targetrange = range("c5") rpdate = range("b2").value  dim cn adodb.connection, rs adodb.recordset, intcolindex integer     set targetrange = targetrange.cells(1, 1)     ' open database     set cn = new adodb.connection     cn.open "provider=microsoft.jet.oledb.4.0; data source=" & _         "c:\documents\database.mdb" & ";"     set rs = new adodb.recordset     rs         ' open recordset         .open tablename, cn, adopenstatic, adlockoptimistic, adcmdtable         ' records         .open "select * " & tablename & _             " [date] = rpdate, cn, , , adcmdtext"         ' filter rows based on date         rs.open , targetrange      end     rs.close     set rs = nothing     cn.close     set cn = nothing end sub

try this

sub adoimportfromaccesstable() dim dbfullname string dim tablename string dim targetrange range dim rpdate range  dbfullname = "c:\documents\database.mdb" tablename = "datatable" set targetrange = range("c5") rpdate = range("b2").value  dim cn adodb.connection, rs adodb.recordset, intcolindex integer     set targetrange = targetrange.cells(1, 1)     ' open database     set cn = new adodb.connection     cn.open "provider=microsoft.jet.oledb.4.0; data source=" & _         "c:\documents\database.mdb" & ";"     set rs = new adodb.recordset     rs         ' open recordset         .open tablename, cn, adopenstatic, adlockoptimistic, adcmdtable         ' records         .open "select time, tank  " & tablename & " [date] = " & rpdate & " order tank, time", cn, , , adcmdtext         ' filter rows based on date                  end     rs.close     set rs = nothing     cn.close     set cn = nothing end sub

this isn't prof sql injection, start


Comments

Post a Comment

Popular posts from this blog

php - Submit Form Data without Reloading page -

i know question has been asked , answered bunch of times life of me can not solution work on code. believe if redo code, work properly, , in retrospect time i've spent on issue should have redone code...but beyond deadline , have working prototype up... can advise how update multiple forms on single page without reloading page? horrible @ php , complete noob js/jquery/ajax @ best. html/php in single file , believe causing me problems/is largest obstacle @ getting ajax form processing work. basically, want users to: select teams multiple dropdowns in form group 1 (league champs) , on update update db newly selected team without reloadding page. edit team scores per match , on score submit/update, update db new scores. for each requirement there multiple forms (1 each leagues, 1 each per match) have set class on each form id. everything works via php, form submission reloads page each time submitted , not ideal. i have tried ajax code here http://scotch.io/tutoria...
Read more

linux - Rails running on virtual machine in Windows -

the reason why want switch ubuntu people said gems works better on linux on windows. i don't want macbook pro rails development since love windows , cannot stand lack of apps mac. moreover, people saying ubuntu "better" mac: http://www.reddit.com/r/ubuntu/comments/1bgj1s/are_there_advantages_of_ubuntu_over_os_x_for/ does virtual box work enough doesn't have lag @ all? using i7-3517u cpu 8gb memory. need program in environment lag-free , not sluggish. or there alternatives recommend? i unsure permission settings or complicated stuffs regarding terminal. i'll using terminal develop. i'm still quite new here development in linux. please kind me >< thanks. @holyxiaoxin pretty sure should asking on superuser instead. nevertheless, suggest install ubuntu in partition instead of running virtual machine. here's guide https://help.ubuntu.com/community/windowsdualboot also, yes. developing in virtual machine accurate, @ end experiment w...
Read more