|
..hi is me again..ya..i know it is weird and wrong in this code..i really no any idea that write function in sql statement...i only thing i think was i show time and date in textbox..then date and time in text box will insert in to database..in logintable..the time data type i change to text box...this method can work??i really have no idea how to add function in database.."...thanks for the reply..
|
|
|
|
|
The TextBox doesn't store the date/time in the database, your code does. A TextBox just displays the String equivilent of the value of a variable. You should NOT be storing dates and times in your database as Strings.
|
|
|
|
|
If I had a dollar for everytime I've answered this guy, I'd have his annual salary.
Christian Graus
Please read this if you don't understand the answer I've given you
"also I don't think "TranslateOneToTwoBillion OneHundredAndFortySevenMillion FourHundredAndEightyThreeThousand SixHundredAndFortySeven()" is a very good choice for a function name" - SpacixOne ( offering help to someone who really needed it ) ( spaces added for the benefit of people running at < 1280x1024 )
|
|
|
|
|
Sometimes, no matter how many time you hit the nail...
|
|
|
|
|
Hi all,
I have a control which can be used to select a file and upload / save to server. I am looking for a method which checks whether the file exists in the source machine.
Provided:
1> I can key in the name of the file
2> some times i may not enter full path, just filename only
Any clues will be appreciated
Thanks
Sebastian
|
|
|
|
|
Is this an ASP.NET (Web Forms) or Windows Forms app??
|
|
|
|
|
I'm not sure about server side, but if you have Application and you want to check from there then use :->
Dim fileExists As Boolean<br />
fileExists = My.Computer.FileSystem.FileExists("C:\Test.txt")
And when you have only file name
<br />
Dim files As ReadOnlyCollection(Of String)<br />
files = My.Computer.FileSystem.GetFiles("C:\", True, "*.txt")<br />
Hope it helps.
- Stop thinking in terms of limitations and start thinking in terms of possibilities -
|
|
|
|
|
I have been trying to use click once deployment to deploy a 3 tire .net widows forms application. All seams to work fine apart from one very important aspect. As this application use Nhibernate for all database tasks, one of the Nhibernate configuration files is not being copied across. I have tried copying this file in both the configuration and resource folder and although this will include the folder and file in the deployment and copy the folder across with the configuration file in the folder, however, the application fails, as the application can not locate the configuration file.
The question is, can you copy none compliable files and include them in the deployment that when installed the file in question will be located with the application executable and assembly files?
|
|
|
|
|
You can set the config file to be a prerequisite in the publish area (I think)
|
|
|
|
|
Hello All!
I have a string with two delimeters ['a' and 'b'] which looks like...
a688899987788866766655555444330000000300FFFFFFFFD
aF00000000000000000000000000000AAABB8500FFFFFFFFD
a000000000000000000000000000000666567400FFFFFFFFD
bF000000000000000000000000000008AABAA700FFFFFFFFD
bF0000000000000000000000000000079AAA9800FFFFFFFFC
aF00000000000000000000000000000A98BA9700FFFFFFFFC
b000000000000000000000000000000EEEFFEE00FFFFFFFFB
a000000000000000000000000000000EEFFFFF00FFFFFFFFC
bF00000000000000000000000000000EEEEFED00FFFFFFFFC
a000000000000000000000000000000BCDDEDA00FFFFFFFFD
bF00000000000000000000000000000BDEDDDA00FFFFFFFFC
b000000000000000000000000000000666654400FFFFFFFFD
I want to split this string into two arrays of strings. One array should contain strings which started with 'a' and other array should contain strings started wih 'b'.
Is there any way to use VB Split function in this scenario. Please guide me with some suggestion or sample code.
Thanks
colgateas900197
|
|
|
|
|
Try this:
Dim strSrc As String = "a9837498393874b8374683746386a8279323879b92837"<br />
<br />
Dim strDelim As String = "ab"<br />
Dim arrStrItem As String()<br />
<br />
arrStrItem = strSrc.Split(strDelim.ToCharArray)<br />
Ask not whether it is useful. Ask what it is useful for.
|
|
|
|
|
Sorry,
code you have provided works for creating a single array of strings for all substrings.
My problem is to store all sustrings started with delimeter "a" should be stored in one array of strings and all sustrings started with delimeter "b" should be stored in another array of strings.
So that i can get two arrays of strings from the string provided.
Thanks for your consideration
colgateas900197
|
|
|
|
|
 I misunderstood the question... so let me ask you this:
The string you have; is that one long string a###b########b##### or does it contain line breaks? Like the one you displayed?
a688899987788866766655555444330000000300FFFFFFFFD
aF00000000000000000000000000000AAABB8500FFFFFFFFD
a000000000000000000000000000000666567400FFFFFFFFD
bF000000000000000000000000000008AABAA700FFFFFFFFD
bF0000000000000000000000000000079AAA9800FFFFFFFFC
aF00000000000000000000000000000A98BA9700FFFFFFFFC
b000000000000000000000000000000EEEFFEE00FFFFFFFFB
a000000000000000000000000000000EEFFFFF00FFFFFFFFC
bF00000000000000000000000000000EEEEFED00FFFFFFFFC
a000000000000000000000000000000BCDDEDA00FFFFFFFFD
bF00000000000000000000000000000BDEDDDA00FFFFFFFFC
b000000000000000000000000000000666654400FFFFFFFFD
Ask not whether it is useful. Ask what it is useful for.
|
|
|
|
|
Its a single big string with no line breaks, within that string these delimeters are used.
its like: a###b########b#####a###########b#######a######
colgateas900197
|
|
|
|
|
<br />
Dim strSrc As String = "aF00000000000000000000000000000AAABB8500FFFFFFFFDa000000000000000000000000000000666567400FFFFFFFFDbF000000000000000000000000000008AABAA700FFFFFFFFDbF0000000000000000000000000000079AAA9800FFFFFFFFCaF00000000000000000000000000000A98BA9700FFFFFFFFCb000000000000000000000000000000EEEFFEE00FFFFFFFFBa000000000000000000000000000000EEFFFFF00FFFFFFFFCbF00000000000000000000000000000EEEEFED00FFFFFFFFCa000000000000000000000000000000BCDDEDA00FFFFFFFFDbF00000000000000000000000000000BDEDDDA00FFFFFFFFCb000000000000000000000000000000666654400FFFFFFFFD"<br />
<br />
' LOGIC:<br />
' First we replace the delimiters 'a' and 'b' with '*a' and '*b' <br />
' to get a single string array from the source string.<br />
' <br />
' We then run through the single array and assign the individual <br />
' items to their own string array; arrA and arrB.<br />
<br />
Dim strBuild As New System.Text.StringBuilder()<br />
strBuild.Append(strSrc)<br />
strBuild.Replace("a", "*a")<br />
strBuild.Replace("b", "*b")<br />
Debug.Print(strBuild.ToString)<br />
<br />
' GETTING A SINGLE ARRAY:<br />
' Here, we split the source string into an array using the <br />
' asterisk (the '*' character) as the delimiter. This ensures <br />
' that we retain the 'a' and 'b' characters, which we will need <br />
' later on.<br />
<br />
Dim arrTemp As String()<br />
arrTemp = strBuild.ToString.Split("*")<br />
<br />
' BUILDING NEW ARRAYS:<br />
' We can now use the temporary array to build two new arrays. To <br />
' do so, we loop through the items and examine the leftmost <br />
' character. If that be 'a' then we assign the item to the <br />
' A-array; be it 'b' then we assing it to the B-array instead.<br />
<br />
Dim arrA As New ArrayList<br />
Dim arrB As New ArrayList<br />
<br />
For Each curStrItem As String In arrTemp<br />
If curStrItem.Length > 0 Then<br />
Select Case curStrItem.Substring(0, 1)<br />
Case "a"<br />
arrA.Add(curStrItem.Substring(1))<br />
<br />
Case "b"<br />
arrB.Add(curStrItem.Substring(1))<br />
<br />
Case Else<br />
'<br />
' OOPS, something weird ... we ignore this item.<br />
'<br />
End Select<br />
End If<br />
Next<br />
<br />
' DONE:<br />
' The arrA array-list now contains all the 'a' items and the <br />
' arrB array-list now contains all the 'b' items. When you get <br />
' here, you should probably deallocate variables, etc.<br />
<br />
Debug.Print("A-items:")<br />
For Each curItem As String In arrA<br />
Debug.Print(curItem)<br />
Next<br />
<br />
Debug.Print("---" & vbCrLf & "B-items:")<br />
<br />
For Each curItem As String In arrB<br />
Debug.Print(curItem)<br />
Next<br />
<br />
Debug.Print("--- END ---")<br />
Ask not whether it is useful. Ask what it is useful for.
|
|
|
|
|
Thank you!
It solved my problem... It was a great help.
Wishing you lot of best wishes.
God bless you dear.
colgateas900197
|
|
|
|
|
GREAT 
Ask not whether it is useful. Ask what it is useful for.
|
|
|
|
|
i want to know, did i can use vb.net to develop the web based application?
now i'm using vb to develop the application, then my new task is to develop a web based application where it will use TCP/IP to send data, maybe some kind of server and client web based, anyone can help me?
and, i want to know, can i include also the database the the application
|
|
|
|
|
Google doesn't work where you live ?
shee_dee86 wrote: and, i want to know, can i include also the database the the application
Why would you not be able to ?
Why not use ASP.NET ?
Christian Graus
Please read this if you don't understand the answer I've given you
"also I don't think "TranslateOneToTwoBillion OneHundredAndFortySevenMillion FourHundredAndEightyThreeThousand SixHundredAndFortySeven()" is a very good choice for a function name" - SpacixOne ( offering help to someone who really needed it ) ( spaces added for the benefit of people running at < 1280x1024 )
|
|
|
|
|
i'm sory if i've made u mad of me, but i really want to know what is good tutorial for me to start webserver application using vb.net coz i dont know how to start using ASP.NET
|
|
|
|
|
I just answered another question from you. What frustrates me is people who are not willing to buy books, or to search for their own info, before asking the most trivial questions. Not because I mind helping, but becasue you will never learn that way.
Christian Graus
Please read this if you don't understand the answer I've given you
"also I don't think "TranslateOneToTwoBillion OneHundredAndFortySevenMillion FourHundredAndEightyThreeThousand SixHundredAndFortySeven()" is a very good choice for a function name" - SpacixOne ( offering help to someone who really needed it ) ( spaces added for the benefit of people running at < 1280x1024 )
|
|
|
|
|
I am using a queue of objects (workitem) to feed a thread for processing.
Public Class WorkItem<br />
Public mvDependancyGroup As String = ""<br />
Public mvStoreOutput As Boolean = False<br />
Public mvName As String = ""<br />
Public mvMethod As [Delegate] = Nothing<br />
<b>Public mvInput As Object() = Nothing</b><br />
Public mvOutput As Object = Nothing<br />
Public mvException As Exception = Nothing<br />
Public mvInQ As DateTime = Nothing<br />
Public mvStarted As DateTime = Nothing<br />
Public mvCompleted As DateTime = Nothing<br />
This works fine except for the mvInput (the array of objects representing the parameters to be passed to the delegate function). When I get a copy of the queue into an array of objects using the following code all the mvInput objects are the same values.
Public Function GetInQueue() As WorkItem()<br />
Dim oWI As WorkItem<br />
Monitor.Enter(oInQ)<br />
Dim arWI() As Object = oInQ.ToArray<br />
Monitor.Exit(oInQ)<br />
Dim arResult(arWI.Length - 1) As WorkItem<br />
For i As Integer = 0 To arWI.Length - 1<br />
oWI = CType(arWI(i), WorkItem)<br />
arResult(i) = oWI<br />
Next<br />
Return arResult<br />
<br />
End Function<br />
I'm pretty sure I am not the first to do this so:
Am I using oInQ.Array incorrectly?
Is there some magic I have missed?
The obvious work around is to turn mvInput into a delimited string which I will do if I cannot get a better resolution.
OR
Does this qualify as a Subtle Bug (like a flaming brick)
TIA
Never underestimate the power of human stupidity
RAH
|
|
|
|
|
Use a List instead, they are far easier to manage tan an array
Christian Graus
Please read this if you don't understand the answer I've given you
"also I don't think "TranslateOneToTwoBillion OneHundredAndFortySevenMillion FourHundredAndEightyThreeThousand SixHundredAndFortySeven()" is a very good choice for a function name" - SpacixOne ( offering help to someone who really needed it ) ( spaces added for the benefit of people running at < 1280x1024 )
|
|
|
|
|
The problem is caused when loading the array of objects for each WorkItem.
The array must be created inside the loop 
For Each oItem As ListViewItem In lvData.Items<br />
oWI = New WorkItem <<<< This must be inside the for next loop
<br />
Dim arList(2) As Object <<<< This must be inside the for next loop
<br />
arList(0) = oItem.SubItems(1).Text<br />
arList(1) = oItem.SubItems(2).Text<br />
arList(2) = oItem.SubItems(3).Text<br />
oWI.sLabel = oItem.Text<br />
oWI.oList = arList<br />
oInQ.Enqueue(oWI)<br />
Next
|
|
|
|
|
Hello Guys Im new to VB.NET.I want to send Extended ASCII values through serial port.The values i want to send from serial port are 0A5 0F0 0A6(in decimal 165 240 166)in hexa decimal with 10 milli seconds delay among every byte.I m really struggling to send this.But when i saw this data through hyperterminal i m getting "?"
charecters and some times junk values.Kindly please help me.I m really thankful to u.
code i have written is
Private Sub ReadVI_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ReadVI.Click
Start(0) = 165
VI(0) = 240
Endd(0) = 166
If SerialPort.IsOpen = True Then
Delay = CInt(txtDelayinms.Text)
rtbDisplay.SelectionColor = Color.Blue
rtbDisplay.AppendText(vbCrLf & "Reading Phase Voltages & Currents :")
rtbDisplay.ScrollToCaret()
SerialPort.Encoding = Encoding.ASCII
SerialPort.Write(Start, 0, 1)
'SerialPort.Write(Convert.ToChar(165))
SerialPort.BaseStream.Flush()
Thread.Sleep(Delay)
SerialPort.Write(VI, Offset, Count)
'SerialPort.Write(Convert.ToChar(240))
SerialPort.BaseStream.Flush()
Thread.Sleep(Delay)
SerialPort.Write(Endd, Offset, Count)
'SerialPort.Write(Convert.ToChar(166))
SerialPort.BaseStream.Flush()
Thread.Sleep(Delay)
Else
MsgBox("Connection Not Established", MsgBoxStyle.Critical, "Message")
End If
End Sub
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
