Error - 2147217904 80040e10
in ADOdatabase If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below. Results 1 to 5 of 5 Thread: [RESOLVED] Help on Run-Time Error '-2147217904(80040e10)' in ADOdatabase Tweet Thread Tools Show Printable Version Subscribe to this Thread… Display Linear Mode Switch to Hybrid Mode Switch to Threaded Mode Oct 3rd, 2006,04:43 AM #1 1g0r View Profile View Forum Posts Thread Starter Junior Member Join Date Oct 2006 Posts 31 [RESOLVED] Help on Run-Time Error '-2147217904(80040e10)' in ADOdatabase I cant seem to correct this error im on my wits end please help me... I tried to key in a few words to compare to the database but it gives Run-Time Error '-2147217904(80040e10)' no value given for one or more parameters ,in other words after in runtime i add in a record to the database and i want to search it by typing a few letters to compare its error occurs, can you help me see whats wrong?? VB Code: Private Sub Form_Load()'Open the file of DVDRecord.mdbmyDB.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _App.Path & "\DVDRecord.mdb;Persist Security Info=False"'Declare myRS as the ADO RecordsetDim myRS As New ADODB.Recordset'Start with one empty record in our arrayNumberOfRecords = 0'Error would occur if first time to append new recordOn Error GoTo Empty1While Not myRS.EOF NumberOfRecords = NumberOfRecords + 1 'Preserve the record in our array and append a new array ReDim Preserve myDatabase(NumberOfRecords) As DVD 'Create physical array myDatabase(NumberOfRecords - 1).Name = txtName.Text myDatabase(NumberOfRecords - 1).Record = txtRecord.Text myDatabase(NumberOfRecords - 1).Price = txtPrice.Text 'Move to the next point of recordset myRS.MoveNext WendEmpty1:End SubPrivate Sub cmdNew_Click()'Clear the fieldstxtName.Text = ""txtRecord.Text = ""txtPrice.Text = ""'Declare myRS As ADo RecordsetDim myRS As New ADODB.RecordsetmyRS.Open "Project_Database", myDB, adOpenKeyset, adLockOptimisticmyRS.AddNew'Set fieldsmyRS!Name = txtName.TextmyRS!Record = txtRecord.TextmyRS!Price = txtPrice.Text'Update the recordset to include new entrymyRS.UpdatemyRS.Requery'Go to the record we just createdmyRS.MoveLast'grab the record's ID value so we can edit itcurrentID = myRS.Fields("ID").Value'Close the recordsetmyRS.CloseEnd SubPrivate Sub cmdSave_Click()'edit record in database Dim myRS As New ADODB.
this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below. Results 1 to 8 of 8 Thread: Run-time error ‘-2147217904(80040e10)’ Tweet Thread Tools Show Printable Version Subscribe to this Thread… http://www.vbforums.com/showthread.php?431051-RESOLVED-Help-on-Run-Time-Error-2147217904(80040e10)-in-ADOdatabase Search Thread Advanced Search Display Linear Mode Switch to Hybrid Mode Switch to Threaded Mode 03-19-07,04:21 #1 rodmead View Profile View Forum Posts Registered User Join Date Jul 2003 Location Canberra, ACT Australia Posts 53 Unanswered: Run-time error ‘-2147217904(80040e10)’ Error message Run-time error ‘-2147217904(80040e10)’ No valuegiven for one or more http://www.dbforums.com/showthread.php?1616247-Run-time-error-%91-2147217904(80040e10)%92 required parameters Running VB6 under XP, attempting to add a record to the Access table ‘clients’ in the database ‘dummymdb’ Code: Dim dcnClients As ADODB.Connection Dim rs As ADODB.Recordset Dim sql As String Set dcnClients = New ADODB.Connection dcnClients.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\contacts2\dummymdb.mdb;" Set rs = New ADODB.Recordset sql = "INSERT INTO CLIENTS(clinum,title,fname,sname,prefname,street1, street2,suburb,pcode,state,homephoone,workphone,mo bile,fax,fullname) VALUES (Me.CClientNumber.Text,Me.CTitle.Text,Me.CFname.Te xt,Me.CSname.Text,Me.Cpreferredname.Text,Me.CStree t1.Text,Me.CStreet2.Text,Me.CSuburb.Text,Me.CPostc ode.Text,Me.CState.Text,Me.CHomephone.Text,Me.Cwor kphone.Text,Me.CMobilephone.Text,Me.CFax.Text,me.F ULLTEMPNAME.text)" dcnClients.Open dcnClients.Execute sql, , adCmdText + adExecuteNoRecords ‘this is the highlighted line in the debug dcnClients.close fieldnames, and number of fields match up in the code Reply With Quote 03-19-07,04:57 #2 gvee View Profile View Forum Posts Visit Homepage www.gvee.co.uk Join Date Jan 2007 Location UK Posts 11,422 Provided Answers: 10 Code: adCmdText + adExecuteNoRecords Why are you adding these two values? Surely it's a comma not a plus? George Home | Blog Reply With Quote 03-19-07,09:07 #3 rodmead View Profile View Forum Posts Registered User Join Date Jul
for Help Receive Real-Time Help Create a Freelance Project Hire for a Full Time Job Ways to Get Help Ask a Question Ask for Help Receive Real-Time https://www.experts-exchange.com/questions/28202345/Run-Time-Error-'-2147217904-80040e10-'-Automation-error.html Help Create a Freelance Project Hire for a Full Time Job Ways to Get Help Expand Search Submit Close Search Login Join Today Products BackProducts Gigs Live Careers http://forums.codeguru.com/showthread.php?323539-Run-Time-Error-2147217904(80040e10) Vendor Services Groups Website Testing Store Headlines Experts Exchange > Questions > Run Time Error '-2147217904 (80040e10)' - Automation error Want to Advertise Here? Solved Run Time Error error - '-2147217904 (80040e10)' - Automation error Posted on 2013-08-02 MS Excel MS Access 1 Verified Solution 3 Comments 878 Views Last Modified: 2013-08-04 Hi Experts I am gettimg the following error on the following line of code... Worksheets("Oranges").Range("C12").CopyFromRecordset Import_MatrixKey(cn) Worksheets("Oranges").Protect Password:="swordfish", AllowFiltering:=True Select all Open in new window THE Public Function Public Function Import_MatrixKey(cn As ADODB.Connection) As ADODB.Recordset error - 2147217904 Dim strSQl As String strSQl = "SELECT distinct Name" strSQl = strSQl & ", ops, product " strSQl = strSQl & ", is as totalview_id" strSQl = strSQl & ", Apples" strSQl = strSQl & " FROM matrixkey " strSQl = strSQl & " ORDER BY product" strSQl = strSQl & ", team" Set Import_MatrixKey = New ADODB.Recordset Import_MatrixKey.Open strSQl, cn, adOpenStatic, adLockOptimistic strSQl = vbNullString End Function Select all Open in new window When I set throught the other worksheet the public funtion works fine.... The matrix key is a table in the access db... 0 Question by:route217 Facebook Twitter LinkedIn Google LVL 84 Active today Best Solution byScott McDaniel (Microsoft Access MVP - EE MVE ) If you put a breakpoint on your CopyFromRecordset line, can you confirm that (a) your connection is open and (b) the recordset is properly formed and returned? In other words - does the error lie in Go to Solution 3 Comments LVL 84 Overall:
Forum Visual Basic Programming Visual Basic 6.0 Programming Run Time Error 2147217904(80040e10) If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register or Login before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below. Results 1 to 3 of 3 Thread: Run Time Error 2147217904(80040e10) Tweet Thread Tools Show Printable Version Email this Page… Subscribe to this Thread… Display Linear Mode Switch to Hybrid Mode Switch to Threaded Mode January 3rd, 2005,01:30 AM #1 shail30 View Profile View Forum Posts Junior Member Join Date Jan 2005 Posts 1 Run Time Error 2147217904(80040e10) I m getting this Run Time Error Message in SELECT statement while fetching the data with help of Query (Statement). The Error Message is 'No value given for one or More required parameter'. Any suggestion !! Regards Shailesh Reply With Quote January 3rd, 2005,01:54 AM #2 equebal View Profile View Forum Posts Member Join Date Apr 2004 Location Patna,India Posts 38 Re: Run Time Error 2147217904(80040e10) it will be better if u post your query also. Reply With Quote January 3rd, 2005,08:47 PM #3 Thread1 View Profile View Forum Posts Elite Member Join Date Jan 2003 Location 7,107 Islands Posts 2,487 Re: Run Time Error 2147217904(80040e10) I guess one of the operands in the WHERE clause is missing Busy Reply With Quote Quick Navigation Visual Basic 6.0 Programming Top Site Areas Settings Private Messages Subscriptions Who's Online Search Forums Forums Home Forums Visual C++ & C++ Programming Visual C++ Programming Visual C++ FAQs C++ (Non Visual C++ Issues) C++ and WinAPI Managed C++ and C++/CLI Visual C++ Bugs & Fixes Graphics Programming Multithreading Network Programming Driver Development C# Programming C-Sharp Programming Visual Basic Programming Visual Basic 6.0 Programming Visual Basic .NET VBForums Windows 8 and Later Store Development Modern Windows Apps (Metro) Other .NET Programming ASP.NET .NET Framework .NET Installation and Configuration Issues ADO.NET Windows Presentation Foundation (WPF) & XAML forum Java Programming Java Programming Other Programming AJAX Scripting - Client Side Database Crystal Reports XML Wireless/Mobile Development Assembly Scripting - Server Side (PHP, Perl, etc.) SharePoint Python General Discussion General Developer Topics Project Planning, Design, and Management Testers and Testing Algorithms & Data Structures IoT, IoE, and Maker Forum (on VBForums) General Discussion / Chit Chat An