Click here to Skip to main content
15,886,362 members
Please Sign up or sign in to vote.
0.00/5 (No votes)
See more:
Below is my code snippet.
This code runs behind an ASP GUI. Backend is Mysql
When I debug this code and reach the line
VB
Do Until rec_ddas_Feedback.EOF = False

It gave me following error
"There is no source code available for current location."

VB
Dim rec_ddas_Feedback As New ADODB.Recordset
Dim msgString As String
Dim msgcounter As Integer
If rec_ddas_Feedback.State = ADODB.ObjectStateEnum.adStateOpen Then
  rec_ddas_Feedback.Close()
  rec_ddas_Feedback.Open("SELECT dtofadd,dtofacc,remarks,Feedback from DDAS_remarks WHERE dtofadd BETWEEN ADDDATE(CURDATE(),INTERVAL -10 DAY) AND CURDATE() AND therapsitname='" + mdlusername + "' AND Feedback <> ''", cn, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic)
  msgString = ""
  msgcounter = 1
  Do Until rec_ddas_Feedback.EOF = False
    msgString = msgString + "<b>Message #" + msgcounter + " :</b><br>"
    msgString = msgString + "<Pre>For your remark on dated <b>" + Format(rec_ddas_Feedback.Fields("dtofadd").Value, "DD MMMM YYYY") + " </b>about amount mismatches in account of " + Format(rec_ddas_Feedback.Fields("dtofacc").Value, "DD MMMM YYYY") + "</Pre></br>"
    msgString = msgString + ". Your reply :" + rec_ddas_Feedback.Fields("remarks").Value
    msgString = msgString + "<br>. Feedback : " + rec_ddas_Feedback.Fields("remarks").Value
    rec_ddas_Feedback.MoveNext()
    msgcounter = msgcounter + 1
  Loop
  lblMsg.Text = msgString


But, when I place the query in immediate window to replace the variable name with variable value and I ran the query on mysql QA it gave me one record.
Posted
Updated 19-Dec-10 18:54pm
v3
Comments
Manfred Rudolf Bihy 24-Dec-10 12:54pm    
Hi, have you resolved your issue?
If Brij answer helped you solve your problem it would be very nice of you to mark his answer as accepted.
Thank you!
RDBurmon 25-Dec-10 9:10am    
no i still have the issue

Probably, you have not build your solution.
First,in solution explorer right click on solution and Clean Build.
Second Rebuild application
If problem still persists:
Close Visual studio and reopen it again..
 
Share this answer
 
Comments
RDBurmon 19-Dec-10 4:38am    
Thanks man , for quick and accurate solution.
Brij 19-Dec-10 4:40am    
Your welcome :)
RDBurmon 19-Dec-10 4:44am    
No man, previously i tested with removing loop statement , but when i tried with loop statement it gave me same error. i tried your solutions but fail. Please suggest me another solution if any.
Brij 19-Dec-10 7:58am    
As the error says, This occurs only if "There is no source code available for current location". Here yo are using ADODB.Recordset and the statement rec_ddas_Feedback.EOF, if there is no pdbs available for the assembly then you will not be able to debug.
Could it be that when you are on said line that you try to "step into" (F11)? What happens when you press "Step over" F10?
 
Share this answer
 
 
Share this answer
 

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)



CodeProject, 20 Bay Street, 11th Floor Toronto, Ontario, Canada M5J 2N8 +1 (416) 849-8900