See how one of the leading financial services organizations uses Recorded Future as part of a holistic threat intelligence program to promote security awareness and proactively and efficiently identify threats.
' 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
|Access 2016 - Query Challenge||15||51|
|How to format Query so resulting excel file is properly formatted.||2||27|
|Best Approach MS Access 2013||3||20|
|Trying to develop a report that sums sales by salesperson year by year||2||0|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
12 Experts available now in Live!