With the new era of mobile computing, smartphones and tablets, wireless communications and cloud services, the USDA sought to take advantage of a mobilized workforce and the blurring lines between personal and corporate computing resources.
' Open a connection. Set cnn1 = New ADODB.Connection mydb = "c:\barnett\barnett.accdb" strCnn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & mydb cnn1.Open strCnn ' Open employee table. Set rstcontact = New ADODB.Recordset rstcontact.CursorType = adOpenKeyset rstcontact.LockType = adLockOptimistic rstcontact.Open "employee", cnn1, , , adCmdTable 'get the new record data rstcontact.AddNew rstcontact!empid = empid rstcontact!fname = fname rstcontact!lname = lname rstcontact!hiredate = hiredate rstcontact!i9 = i9 rstcontact!dl_id = dl_id rstcontact!birth_certificate = birth_certificate rstcontact!sscard = sscard rstcontact!currently_working = currently_working rstcontact!temp_agency = temp_agency rstcontact!separation_date = separation_date rstcontact!separation_reason = separation_reason rstcontact!notes = notes rstcontact!eligible_for_rehire = eligible_for_rehire rstcontact!eaddress = eaddress rstcontact!ecity = ecity rstcontact!estate = estate rstcontact!ezip = ezip rstcontact!ephone = ephone rstcontact!ecell = ecell rstcontact!emergency_name = emergency_name rstcontact!emergency_number = emergency_number rstcontact!payrate = payrate rstcontact!employee_status = employee_status rstcontact.Update ' Show the newly added data. 'MsgBox "New contact: " & rstcontact!Name & " has been successfully added" 'close connections rstcontact.close
|count all and uniques records in a table||20||21|
|Getting Run-Time Error 13 - Type Mismatch||3||26|
|How to revise an Access 2003 query into a SQL Server 2008 SQL statement?||1||24|
|format date field on certain entries||8||28|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
22 Experts available now in Live!