Error 3021, no current record has been found, Query data from Access to Excel -

-

i'm writing function in excel vba called extract data access database, i'm using ado connection. function get_g_gtop has parameters defined bellow. now, try use command object value recordset, however, got error message 3021 : either bof or eof true, or current record has been deleted. requested operations requires current record. debug points line : get_g_gtop = rst.fields(0).value.

is there wrong sql statement query in access? advice highly appreciate!

bing

function get_g_gtop(byval vehtype string, byval speed single) variant

dim dbfilepath string  dbfilepath = "c:\users\sevenice\desktop\em database.accdb"  set cnn = new adodb.connection  cnn.open "provider= microsoft.ace.oledb.12.0;" & " data source=" & dbfilepath & ";" & "persist security info =false;"  'set rst = new adodb.recordset  set cmd = new adodb.command cmd.activeconnection = cnn  'dim querystr string dim s single  if strcomp(vehtype, "ldv") * strcomp(vehtype, "ldt") * strcomp(vehtype, "lhd<=14k") * strcomp(vehtype, "lhd<=19.5k") = 0    s = 35.6    'querystr = "select [g/gtop] [em database].[n (t) data] [vehicle category]= "" & vehtype & "" , s = 35.6 " & " , [speed lower] <= " & speed & " , [speed upper] >= " & speed & ";"     cmd.commandtext = "select [g/gtop] [em database].[n (t) data] [vehicle category]= "" &  vehtype & "" , s = 35.6 " & " , [speed lower] <= " & speed & " , [speed upper] >= " & speed & ";"    'rst.open querystr, cnn     set rst = cmd.execute     get_g_gtop = rst.fields(0).value  elseif strcomp(vehtype, "mhd") * strcomp(vehtype, "hhd") * strcomp(vehtype, "urban bus") = 0    s = 26.7    querystr = "select [g/gtop] [em database].[n (t) data] [vehicle category]=" & vehtype & " , s = 26.7 " & " , [speed lower] <= " & speed & " , [speed upper] >=" & speed & ";"    rst.open querystr, cnn    get_g_gtop = rst.fields(0).value  end if

end function

after open recordset (set rst = cmd.execute) have check whether contains data, before try access data, example:

if not rst.eof 'do stuff data end if

reference on w3schools.com

the error receiving indicates not geting records select-statement. check suggested hansup.


Comments

Post a Comment

Popular posts from this blog

objective c - Change font of selected text in UITextView -

-
can suggest me how change font of selected text in uitextview.i cannot use uiwebview since have edit text. have seen pages app.how possible in app. see formatting text within uilabel differently . since need editing, should @ javascript-based editors such ckeditor or tinymce . highly recommend wwdc 2011 video session 511: "rich text editing in safari on ios."
Read more

php - Accessing POST data in Facebook cavas app -

-
so i've got simple form in canvas / iframe facebook app, , i'm trying pass along values post. reading on s.o. , fb's latest docs, understand it, data send via post form can accessed on receiving end $_request object. i read on thread on s.o. in order post forms work need pass along input named "signed_request" value current signed_request (i have signed request working ok otherwise...all login , authentication stuff working fine). isnt mentioned anywhere in official fb docs. so problem comes in $_request object signed request, , bunch of other session stuff. form inputs found. the way can read them set method of form "request" isn't real form method. takes of inputs , sends them args in url. horrible. here's sample page canvas app form i'm using try debug (leaving out authentication stuff): <form enctype="application/x-www-form-urlencoded" method="post" target="_top" id="my_form" action=...
Read more

c# - Getting control value when switching a view as part of a multiview -

-
i have following code in aspx page: <asp:button id="display_button" runat="server" text="display" onclick="button1_click" /> &nbsp; <asp:button id="edit_button" runat="server" text="edit" onclick="button2_click" /> &nbsp; <asp:button id="save_button" runat="server" text="save" onclick="button3_click" visible="false" /> &nbsp; <asp:multiview id="multiview1" runat="server" activeviewindex="0"> <asp:view id="view1" runat="server"> <asp:formview id="view_program" runat="server"> <itemtemplate> <%# eval("status").tostring().trim() %> </itemtemplate> </asp:formview> </asp:view> <asp:view id="view2" runat="server"> ...
Read more