|
Hi,
this piece of code:
sqlcode = sqlcode & "'" & conv_str(System.Text.Encoding.Default.GetString(crs.Fields(cfieldix).Value), "mysql") & "'"
return the information from a blob field
and the function where the error is being thrown is:
Private Function conv_str(ByVal str As String, ByVal provider As String) As String<br />
<br />
Dim i As Integer, nlstr As String, rstr As Object<br />
' string validation check the string for invalid characters<br />
' keep characters that have the Asci code 32-165, 192-255 and 0,8,9,10,13<br />
' fix here the euro_symbol probleme :p<br />
' provider can either be MySQL or MSSQL<br />
Try<br />
str = str.Normalize()<br />
Catch ex As Exception<br />
'remember to make a detailed report of the error here<br />
conv_str = "NULL"<br />
<br />
Exit Function<br />
End Try<br />
<br />
Dim chrCode As Long, j As Long<br />
For j = 1 To Len(str) Step 1<br />
chrCode = Asc(Mid(str, j, 1))<br />
If chrCode < 32 Then<br />
If chrCode <> 0 And chrCode <> 8 And chrCode <> 9 And chrCode <> 10 And chrCode <> 13 Then<br />
str = Left$(str, j - 1) & " " & Right$(str, Len(str) - j)<br />
End If<br />
End If<br />
If chrCode > 165 And chrCode < 192 And chrCode <> 180 Then<br />
str = Left$(str, j - 1) & " " & Right$(str, Len(str) - j)<br />
End If<br />
<br />
Next j<br />
<br />
nlstr = ""<br />
rstr = ""<br />
i = 1<br />
<br />
If (provider.ToLower() = "mysql") Then<br />
While i <= Len(str)<br />
<br />
Select Case Mid$(str, i, 1)<br />
Case Chr(0) ' ASCII NUL<br />
nlstr = ""<br />
rstr = "\0"<br />
Case Chr(8) ' backspace<br />
nlstr = ""<br />
rstr = "\b"<br />
Case Chr(9) ' tab<br />
nlstr = ""<br />
rstr = "\t"<br />
Case Chr(180)<br />
nlstr = ""<br />
rstr = " '' "<br />
<br />
Case "'"<br />
nlstr = ""<br />
rstr = "\'"<br />
<br />
Case """"<br />
nlstr = ""<br />
rstr = "\"""<br />
Case "\"<br />
nlstr = ""<br />
rstr = "\\"<br />
Case Chr(10), Chr(13) ' line feed and carriage return<br />
If nlstr <> "" And nlstr <> Mid$(str, i, 1) Then<br />
' there was a previous newline and this is its pair: eat it<br />
rstr = ""<br />
nlstr = ""<br />
Else<br />
' this is a fresh newline<br />
rstr = LINE_BREAK<br />
nlstr = Mid$(str, i, 1)<br />
End If<br />
Case Else<br />
nlstr = ""<br />
End Select<br />
<br />
If rstr <> "" Then<br />
str = Left$(str, i - 1) & rstr & Right$(str, Len(str) - i)<br />
i = i + Len(rstr)<br />
rstr = ""<br />
Else<br />
i = i + 1<br />
End If<br />
End While<br />
<br />
End If<br />
<br />
<br />
conv_str = str<br />
<br />
End Function
thanks
|
|
|
|
|
generally we write
private sub abc
end sub
In an article i read(in C#)
class class1
{
public enum one
{
g=0
}
}
then
private class1.one enum()
{
}
I was trying to do the above thing in vb.net
like
class class2
private class1.one enum()
end class
but there occured an error
End of statement expected.
|
|
|
|
|
Nilish wrote: private class1.one enum()
enum is a reserved word. I think you're looking for
Private Sub SomeMethod(ByVal var As one)
|
|
|
|
|
hi all!
Does the call of dll in multi-threading creates another thread automatically.
i have a method which is being called by a thread and in that method i am calling a function from a dll. but before the process of the dll is finished the thread goes ahead and the second thread starts which messes up the running of the program. its like.
sub method()
monitor.enter
somecode
call to a dll method
somecode
monitor.exit
end sub
Whats happening is that the dll method is doing something which takes time. but the execution of the program goes ahead and exits from the monitor, there by giving access to the next thread. which is causing problem
Regards
|
|
|
|
|
hi friends,
i am currently working on a com Addin to excel using VBA programming.
by default the excel applicaton object has no of columns as 256.
but microsoft says that no of columns is increased to 16536
i want to set the Application object property to 16536
how to do it.
thanks and regards
prashant
|
|
|
|
|
I cant reproduce this on my development machine but there is an issue on the user's machine. They will choose to edit values which sets the databinding to the textboxes and comboboxes on the form. Then they can change a value and the next row receives that ONE changed value so say there are 20 columns, the user will change column 5 and update that row and the next row also receives that one changed value.
I update the row by finding the ID in the selected row and finding that row in the datatable and updating it which works GREAT on my side and I watched the user reproduce this issue over and over and I tried it over and over on my box and nothing.
I would think that when I update the row and it also updates the one row below that it would change the entire row to match the current row but it only changes the one thing that differs.
Any ideas???
CleaKO
"Now, a man would have opened both gates, driven through and not bothered to close either gate." - Marc Clifton (The Lounge)
|
|
|
|
|
This is just a guess, but is sounds like you may have a zero based index problem. All indexs are zero based in .net. So if you are by chance treating them as 1 based you would be off by one row. So the first row is 0 not 1. Just a guess.
Hope that helps.
Ben
|
|
|
|
|
kubben wrote: This is just a guess, but is sounds like you may have a zero based index problem. All indexs are zero based in .net. So if you are by chance treating them as 1 based you would be off by one row. So the first row is 0 not 1. Just a guess.
I wish but I dont think so especially since I cant get it to reproduce on my end. Im not sure if I made it clear but the row being updated is updated correctly but the one change is carried over to the next row as well. I added a messagebox to show what values it was using to find the row and the values matched for that row.
Say I have an ID of 109 that is provided from the datatable so I take that value and do a Rows.Find(arrayOfValues) to get the row and do a Row.BeginEdit and Row.EndEdit. That line works great and like I said what is strange is that it only occurs on the users machine and then it doesnt replace the next line with ALL the values of the row being edited but just the changed value.
CleaKO
"Now, a man would have opened both gates, driven through and not bothered to close either gate." - Marc Clifton (The Lounge)
|
|
|
|
|
You have probably already asked your user, but often it is a good idea to know exactly what they do to reproduce the error. I guess that is assuming that the user can reproduce the error. If there is someway to watch them or to do the exact same steps. Often they leave something out that is a clue to how the bug can be reproduced. If the user can't reproduce the bug, then it is most likely user error.
Ben
|
|
|
|
|
No I watched for 15 minutes yesterday being reproduced with an expected pattern.
There are two modes; add removes the binding to the textboxes, edit adds them back. If the user chooses edit mode and changes rows in the grid then edits a value in the textbox above and saves it then the update affects the row being edited and the next closest row so if it is the first to the 2nd to last it is the row below, if it is the last row then it is the row above. If the user edits that row twice in a row, the second edit event only affects the row itself and no other rows. So strange.
CleaKO
"Now, a man would have opened both gates, driven through and not bothered to close either gate." - Marc Clifton (The Lounge)
|
|
|
|
|
It has something to do when sorting the columns so Im going to look into that right now and see what in the world is happening differently when they are sorted vs unsorted.
CleaKO
"Now, a man would have opened both gates, driven through and not bothered to close either gate." - Marc Clifton (The Lounge)
|
|
|
|
|
can i add textboxes only in the first cell of datagridview?
I have four rows in the datagriddview.
I am using the following code
Private Sub dg1_CellClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dg1.CellClick<br />
If (e.ColumnIndex = 2) Then<br />
TextBox1.Visible = True<br />
TextBox1.Left = 42<br />
TextBox1.Top = 19 * (Me.dg1.CurrentCell.RowIndex + 1)<br />
<br />
TextBox1.Height = dg1.CurrentRow.Cells(0).Size.Height<br />
TextBox1.Width = dg1.CurrentRow.Cells(0).Size.Width<br />
End If<br />
End Sub
as the row index increases , the coordinates flaws increases.
|
|
|
|
|
Nilish,
why r u post this question once again
sayad answer usi post par mil jayga.
Rupesh Kumar Swami
Software Engineer,
Integrated Solution,
Bikaner (India)
|
|
|
|
|
|
Rupesh Kumar Swami
Software Engineer,
Integrated Solution,
Bikaner (India)
|
|
|
|
|
hi,
I am using datagrid in my apps.Using datasource property i have binded the datagrid with the dataset.So datagrid will have its items diaplayed in the same column order as that of in database.Is it possible to swap the columns?
Ex: If my table contains Id,Name,Age
My datagrid should display its item in the order Name,Id,Age
zari
|
|
|
|
|
hi Zareee
change the order of fields into query as following & then bind to datagrid
"select name,id,age from table"
hope this helps
Rupesh Kumar Swami
Software Engineer,
Integrated Solution,
Bikaner (India)
|
|
|
|
|
|
Hello frnds,
i implementing an application in vb.net2.0 , my program upload about the 2000 pdf files at the time of uploading the user interface is totally hang, if i minimize it and again resore it then whole screen will be displays blanks, after the Uploding operations has been completed the user interface will be free to move and use..
i want to display a message box, which shows a message "Please Wait Uploading..Inprogress" but if i am minimize the program the user interface should not HANG....
HOPE U understands my problem..
please help....
Thankx and regards,
Koolprasad2003
Be A Good S/W Eng... Life is swing with you..Enjoy..
|
|
|
|
|
BackgroundWorker is the best thread class, I've found. It can send progress information back to your main thread, and calls back into the main thread when it's done. If your program should stop taking input during the process, have a progress dialog go modal, and call the thread, and not offer any way to close until the thread is done. You can also cancel a thread using the BackgroundWorker.
Christian Graus - Microsoft MVP - C++
Metal Musings - Rex and my new metal blog
"I am working on a project that will convert a FORTRAN code to corresponding C++ code.I am not aware of FORTRAN syntax" ( spotted in the C++/CLI forum )
|
|
|
|
|
thankx a lot...
it helps me much ...
regards,
koolprasad2003
Be A Good S/W Eng... Life is swing with you..Enjoy..
|
|
|
|
|
Hi VB freaks!!
I am creating a report in word using tables in VB6.
One of the cells contains a surname and then two forenames for married
partners. I need to have the surname in bold and the forenames as
normal.
When I do this I can make the whole cell bold or normal. help!
Regards
ips
|
|
|
|
|
Hi,
I have a problem with an error.
I try to use thread in my program:
Dim t As New Thread(AddressOf conv_str)<br />
t.SetApartmentState(ApartmentState.MTA)<br />
where conv_str is the function where I need a thread
and the error is:
"Overload resolution failed because no accessible 'New' can be called with these arguments:
'Public Sub New(start As System.Threading.ParameterizedThreadStart)': Method 'Private Function conv_str(str As String, provider As String) As String' does not have the same signature as delegate 'Delegate Sub ParameterizedThreadStart(obj As Object)'.
'Public Sub New(start As System.Threading.ThreadStart)': Method 'Private Function conv_str(str As String, provider As String) As String' does not have the same signature as delegate 'Delegate Sub ThreadStart()'
If you have an ideea please help.
thanks
|
|
|
|
|
Well, the error is exactly what it says. The only threads you can start are ones with no parameters, or take an object. So, create a struct to hold the values you want to pass, and pass them through that, so conv_str takes an object, not two strings.
Christian Graus - Microsoft MVP - C++
Metal Musings - Rex and my new metal blog
"I am working on a project that will convert a FORTRAN code to corresponding C++ code.I am not aware of FORTRAN syntax" ( spotted in the C++/CLI forum )
|
|
|
|
|
i think u need to change the function signature(from function to sub)
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
