|
hey,
I have established an ado connection and excuted the query through the connection resulted with the same error as the oleDB
i used the following code:
Public Sub adoUpdate(ByVal ct As String)
Dim con As New ADODB.Connection()
con.ConnectionString = _dbConnection.ConnectionString
con.Open()
con.Execute(ct)
con.Close()
End Sub
_dbConnection.ConnectionString contains the same connection string that i
mentioned in this thread.
im really clueless need some more help pelase ,
thanks for all the help !!!
Net
|
|
|
|
|
|
|
I m creating properties.
I M using 2 class for creating properties.
I created instant of class variable and I m trying to access but It return 0. Then How can i do.
public class Main_Class
public _CO as Double
Public Property CO() As Double
Get
Return _CO
End Get
Set(ByVal value As Double)
_CO = value
End Set
End Property
End Class
public class SubClass
Public ReadOnly Property CO1() As Double
Get
Dim uc As New Main_Class
Return uc._CO
End Get
End Property
End Class
How can Retrieve the value.
Thanks in Advance...
|
|
|
|
|
1. When you are keeping everything public, why do you even need a property?
2. Is this all the code? If yes, then you have not set any value for the variable hence it is giving 0.
|
|
|
|
|
Actually I m creating a Usercontrol.
Inside the usercontrol one is PropertyGrid control another one is Creating property(Component Property) so When i send value 20.0 but i return 0 at runtime.
And there are many more property is there. I gave one Example.
|
|
|
|
|
hello to everyone,
im new in .NET programming -and in multithreading- so if the answer of my question is to read more of multithreading just say it 
i try to make an application to communicate with a device through serial port, after a lot of reading i made it to communicate in a way i want, but..... now the problem, when i use a second form, and at this form i create a thread and through that thread i try to send a data through com i get an error that com port is closed!
i try the .isAlive and in that thread the serial port looked closed.
To be more specific
IN form1 i use
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
SerialPort1.Open()
End Sub
IN form2 i use
Imports System.Threading
Public Class Form2
Dim thr As Thread
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Debug.Print(Form1.SerialPort1.IsOpen)
thr = New Thread(AddressOf thrsub)
thr.IsBackground = True
thr.Start()
End Sub
Public Sub thrsub()
Debug.Print(Form1.SerialPort1.IsOpen)
End Sub
End Class
at the first Debug.Print(Form1.SerialPort1.IsOpen) if the Button1_click it gives TRUE but in the second Debug.Print(Form1.SerialPort1.IsOpen) in the thrsub it gives FALSE.... 
any suggestions?
|
|
|
|
|
I think the problem is not related to threads , it is something to do with creating proper instance of a class. When from Form2 you call Form.SerialPort1.IsOpen you are not creating an instance of Form1 which means Form1_Load never gets called , and hence the code inside the Form1_Load event is not called ,keeping the the port closed , in Form2 try this , just before Debug.Print(Form1.SerialPort1.IsOpen) statements put the following statements
Form1.Show()
Form1.Hide()
We are forcing the Form1 to load.
Let me know if this answers you question
Feel free to ask if something is not clear
-Regards
Bharat Jain
bharat.jain.nagpur@gmail.com
|
|
|
|
|
Using the serial port instance on your Form1 instance from Form2 is bad practice. You also can't do it with the code you're written since Form2 has no idea that Form1 even exists.
If the bulk of your serial port communication is going to happen from Form2, create the port and connection on Form2, not Form1.
Also, if you dragged the SerialPort from the ToolBox onto your form, you can't use it from a second thread. The event's won't fire correctly because they depend on the main UI thread to work.
|
|
|
|
|
Hi!
i have made a component control and its inherited from System.Windows.Forms.Button class. now when i go to the designer and set the text property, i am unable to set the text property. when i set the text property and use this control on the form, that text setting is not coming. please let me know how can i get this resolution.
Thanks!
|
|
|
|
|
Without seeing your code, it's impossible to say what you did wrong.
|
|
|
|
|
i did not code anything. i have just created a component class and then went to designer partial class code and inherits it from the button class. that's it and then went to designer and tried to set the property from the property window.
|
|
|
|
|
How about this. Scrap the component you have and just add a new Class file to the project. Open that file up and replace anything you see in it with this:
Public Class MyButton
Inherits System.Windows.Forms.Button
End Class
Compile that, then drag one of these from the ToolBox to your form, then try and set the Text property.
|
|
|
|
|
hm that the way i have done too. the name of the control was "ASKButton" i have set the text property to "Add" then compile the project and drag drop the button control on the form and what i see is that the button text property is "ASkButton1". i want to set the default value for this button. when ever i drag and drop this button it should show me the Text=Add and when i want to change it, it should allow me to do so!
|
|
|
|
|
|
This has been covered all over the web countless times. All you have to do is Google a bit.
Google for "vb.net save image sql server", or whatever database engine you're using...
|
|
|
|
|
i have a string abcd 36.2 How to get the value 36.2 only , with abcd can be changed?
|
|
|
|
|
Hi
one option is that you can loop through the entire string and check for numerics
ie.
Dim x As String = "abcd 36.2"
Dim value As String = ""
For lp As Integer = 0 To x.Length - 1
If IsNumeric(x.Chars(lp)) Or x.Chars(lp) = "." Then
value &= x.Chars(lp)
End If
Application.DoEvents()
Next
MsgBox(value)
hope this helps
Anoop
|
|
|
|
|
That's the hard, slow, and non-globalized way to do it...
|
|
|
|
|
thanks
i have run time error 424 Object required .How do i solve it ?
Thanks\
|
|
|
|
|
There's always a space separating the text and the number? You could split it up on the space;
Dim MyString() As String = "Test 123".Split(' ');
You can get the integer-part like this;
Dim MyNum As Integer = Int32.Parse(MyString(1))
I are troll
|
|
|
|
|
Is the format always going to be 'AAAA ##.##'? Meaning is the value always going to be 4 letters followed by a space?
Any suggestions, ideas, or 'constructive criticism' are always welcome.
"There's no such thing as a stupid question, only stupid people." - Mr. Garrison
|
|
|
|
|
No, lenghth of the string in front are variable . My purpose to get the number inside?
|
|
|
|
|
Hi,
split the problem in a couple of smaller ones. There are at least two parts:
1. locate the "word" that contains the number
2. translate that word to a numeric value
1. depends on what you do know about the pattern in the string.
e.g. if the number is always at the end, find the last space, get the substring behind it.
if there is exactly one word plus a space in front, find that first space and look for a possible space after the number too.
2. is easy with int.Parse or int.TryParse
If you were really lazy (I wouldn't dare to assume that), split the entire string in words based on a space, then foreach "word" do a TryParse until one succeeds.
And now you are on your own I guess.
Luc Pattyn [Forum Guidelines] [My Articles]
- before you ask a question here, search CodeProject, then Google
- the quality and detail of your question reflects on the effectiveness of the help you are likely to get
- use the code block button (PRE tags) to preserve formatting when showing multi-line code snippets
|
|
|
|
|
Hi dec82;
you could use a regular expression to pull the numeric data out.
' Test data
Dim testData As String = "abcd 36.2"
' String to hold the wanted info
Dim numericValue As String = String.Empty
' A regular Expression to pull out the needed info
Dim m As Match = Regex.Match(testData, "^.*?(\d+(?:\.\d+)?)")
' Test to see if the string had a numeric value on the end of it
If m.Success Then
' Pull out the information
numericValue = m.Groups(1).Value
End If
MessageBox.Show("Numeric Value = " & numericValue)
Fernando
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
