vba - Update Access database through Excel sheet -

-

i trying update table in access through code shows error message "user define type not define". how solve problem? enter code here

sub updateclick()    dim conn adodb.connection    dim myrecordset adodb.recordset    dim strconn string dim s string set s = "c:\users\pc2\documents\database2.accdb"     strconn = "provider=microsoft.jet.oledb.4.0 data source=s" set strconn = new adodb.connection     set myrecordset = new adodb.recordset     myrecordset       .open "select * personinformation", strconn, adopenkeyset, adlockoptimistic       .fields("id").value = worksheets("sheet1").range("a2").value       .fields("fname").value = worksheets("sheet1").range("b2").value       .fields("lname").value = worksheets("sheet1").range("c2").value       .fields("address").value = worksheets("sheet1").range("d2").value       .fields("age").value = worksheets("sheet1").range("e2").value       .update       .close    end     set myrecordset = nothing    set conn = nothing end sub

after comment noticed had more wrong connection.
adapt code example below - sites such https://www.connectionstrings.com/access/ show string use version of access.

sub fillarrayaccess()      dim oconn object     dim myrecordset object     dim sconn string     dim s string      s = "c:\users\pc2\documents\database2.accdb"      'your connection string change depending on access version.     sconn = "provider=microsoft.jet.oledb.4.0;data source=" & s     'sconn = "provider=microsoft.ace.oledb.12.0;data source=" & s 'access 2010      set oconn = createobject("adodb.connection")     oconn.open sconn      set myrecordset = createobject("adodb.recordset")     myrecordset.open "personinformation", oconn, 1, 3, &h2      myrecordset         .addnew         .fields("id").value = worksheets("sheet1").range("a2").value         .fields("fname").value = worksheets("sheet1").range("b2").value         .fields("lname").value = worksheets("sheet1").range("c2").value         .fields("address").value = worksheets("sheet1").range("d2").value         .fields("age").value = worksheets("sheet1").range("e2").value         .update         .close     end      set myrecordset = nothing     set oconn = nothing  end sub

edit: have updated code work original posters data.


Comments

Post a Comment

Popular posts from this blog

Load Balancing in Bluemix using custom domain and DNS SRV records -

-
i'm trying load balancing of application in bluemix using custom domain , srv record in dns manager. created own doamin ccbluemix.dynu.com , added custom domain bluemix. created application in region , created route custom domain myapp.ccbluemix.dynu.com deployed same application in uk region , created route custom domain myapp.ccbluemix.dynu.com there well. now whenever user hits route want load balancing between , uk region alternate requests served , uk regions. for created srv records like _http._tcp.ccbluemix.dynu.com srv eu-gb.mybluemix.net [priority: 0] [weight: 50] 10 _http._tcp.ccbluemix.dynu.com srv mybluemix.net [priority: 0] [weight: 50] 10 but nothing happening , i'm not able access application using custom route @ all. if create 'a' record cc-load-bal-app.ccbluemix.dynu.com 75.126.81.68 i can access app using custom route ends hitting server. how can achieve load balancing using srv records? wrong creating srv records here? i read ne...
Read more

oracle - pls-00402 alias required in select list of cursor to avoid duplicate column names -

-
my cursor : select xzis.msisdn msisdn, xzis.in_account_number in_account_number xxobw_zte_in_sync xzis not exists (select 1 hz_contact_points hcp, hz_cust_accounts hca hcp.owner_table_id = hca.party_id , hcp.owner_table_name = 'hz_parties' , hcp.phone_number = substr (xzis.msisdn, -8) , nvl (hca.attribute12, 'nil') = xzis.in_account_number); i have given alias columns, still facing issue. suggestions? it's cursor. 1 has no such problems. problem is, when you're joining 2 tables, or apply wrong aliases in subselect, cursor may @ end return 2 columns same name/alias. the problem not need alias, no 2 columns can have same alias (the name counting alias, when no alias given). apparently has happened, far can tell, it's ...
Read more

python - Consider setting $PYTHONHOME to <prefix>[:<exec_prefix>] error -

-
Image
i getting same error when python manage.py runserver. there no such error when have ubuntu 15.10. got started when upgraded ubuntu 16.04. question might duplicate have tried solution provided question have applied command dpkg --configure -a, have done apt-get update,upgrade,dist-upgrade, clean, -f install. have reinstalled python2.7 , python3 no success though. here screenshot while trying run django application i got after re-installing python please me? bashrc file # ~/.bashrc: executed bash(1) non-login shells. # see /usr/share/doc/bash/examples/startup-files (in package bash-doc) # examples # if not running interactively, don't case $- in *i*) ;; *) return;; esac export pythonhome="/usr/bin/python" echo $virtualenvwrapper_python echo 'tushant' # don't put duplicate lines or lines starting space in history. # see bash(1) more options histcontrol=ignoreboth # append history file, don't overwrite shopt -s histappend # setting h...
Read more