|
Hi, I have tried this every which way but loose (maybe I should have tried that one as well!)
I need to select rows from a datatable based on a date column but no matter how I format the date it just errors.
The sample in MS help does not work either.
Microsoft Example
'Presuming the DataTable has a column named Date.
Dim expression As String<br />
expression = "Date > '1/1/00'"<br />
Dim foundRows() As DataRow<br />
<br />
' Use the Select method to find all rows matching the filter.<br />
foundRows = table.Select(expression)
My Code
dteTStart = Me.m_dteCurrentGraphStart.AddDays(-1)<br />
dteTEnd = Me.m_dteCurrentGraphEnd.AddDays(1)<br />
strFilter = "TradingDate > '" & dteTStart.ToString("MM/dd/yyyy") & "' AND TradingDate < '" & dteTEnd.ToString("MM/dd/yyyy") & "'"<br />
Dim drowData As DataRow() = m_dtblROIData.Select(strFilter)
The error message
Cannot perform '<' operation on System.DateTime and System.String.
Does any one have any idea how to get round this?
Thanks
|
|
|
|
|
try using Between
Never underestimate the power of human stupidity
RAH
|
|
|
|
|
Use the System Format date that available in Control Panel.
Same think use in code with the format statement.
Ex.
dat=format(today,"dd-MMM-yyyy")
and if u have error in access data statement use SQL Query.
|
|
|
|
|
Hello guys.
I m created Treeview & Menu in ASP.net using vb lang. now i m try to write code for treeview for expend and Collapse. But it is showing Error
And one more thing I m not yet assigned link.
I m receiving following error:
Server Error in '/web page1' Application.
--------------------------------------------------------------------------------
Invalid postback or callback argument. Event validation is enabled using <pages enableeventvalidation="true"> in configuration or <%@ Page EnableEventValidation="true" %> in a page. For security purposes, this feature verifies that arguments to postback or callback events originate from the server control that originally rendered them. If the data is valid and expected, use the ClientScriptManager.RegisterForEventValidation method in order to register the postback or callback data for validation.
Description: An unhandled exception occurred during the execution of the current web request. Please review the stack trace for more information about the error and where it originated in the code.
Exception Details: System.ArgumentException: Invalid postback or callback argument. Event validation is enabled using <pages enableeventvalidation="true"> in configuration or <%@ Page EnableEventValidation="true" %> in a page. For security purposes, this feature verifies that arguments to postback or callback events originate from the server control that originally rendered them. If the data is valid and expected, use the ClientScriptManager.RegisterForEventValidation method in order to register the postback or callback data for validation.
Source Error:
An unhandled exception was generated during the execution of the current web request. Information regarding the origin and location of the exception can be identified using the exception stack trace below.
Stack Trace:
[ArgumentException: Invalid postback or callback argument. Event validation is enabled using <pages enableeventvalidation="true"> in configuration or <%@ Page EnableEventValidation="true" %> in a page. For security purposes, this feature verifies that arguments to postback or callback events originate from the server control that originally rendered them. If the data is valid and expected, use the ClientScriptManager.RegisterForEventValidation method in order to register the postback or callback data for validation.]
System.Web.UI.ClientScriptManager.ValidateEvent(String uniqueId, String argument) +261
System.Web.UI.Control.ValidateEvent(String uniqueID, String eventArgument) +83
System.Web.UI.WebControls.TreeView.RaisePostBackEvent(String eventArgument) +119
System.Web.UI.WebControls.TreeView.System.Web.UI.IPostBackEventHandler.RaisePostBackEvent(String eventArgument) +31
System.Web.UI.Page.RaisePostBackEvent(IPostBackEventHandler sourceControl, String eventArgument) +32
System.Web.UI.Page.RaisePostBackEvent(NameValueCollection postData) +244
System.Web.UI.Page.ProcessRequestMain(Boolean includeStagesBeforeAsyncPoint, Boolean includeStagesAfterAsyncPoint) +3837
|
|
|
|
|
non-bugging Errors wrote: I m created Treeview & Menu in ASP.net
Then why are you posting this in the VB.NET forum?
You'll get answers faster in the correct forum
|
|
|
|
|
Hi all...
I am using VS2005 to create a web browser program(in vb).
I want to know that how can I access and store the selected text of webbrowser.
As selected text of a text box can be retrieved by using
str=textbox1.selectedtext
how can I store selected text of webbrowser in str? (str is string)
Thanks.
Gagan
|
|
|
|
|
Hey all, not 100% sure if this is the right forum for Visual Basic Scripting but i can only assume it is.
Basicly put my current script will let you type a directory into an input box
e.g C:\Temp\Files
then it will rename every file in there with the extension .txt to .bak
while all that works great,
i have subfolders and it will not change the extensions of the txt files in them
here is my current code for you to look at
FILEPATH=inputbox("What is the directory?")
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set FileDirectory = objWMIService.ExecQuery _
("ASSOCIATORS OF {Win32_Directory.Name='" & FILEPATH & "'} Where " _
& "ResultClass = CIM_DataFile")
For Each objFile In FileDirectory
If objFile.Extension = "txt" Then
strbak = objFile.Drive & objFile.Path & objFile.FileName & "." & "bak"
objFile.Copy(strbak)
End If
Next
msgbox "Complete."
im pretty sure i have to use Win32_SubDirectory.Name but i have tried to implement it and failed
so can someone please help me to get my script to change subfolder file extensions?
|
|
|
|
|
I don't believe there is a built in mechanism for simulating following the file system hierarchy, so you'll have to create your own. You need to put the logic of renaming all the .txt files to .bak in a folder into a sub and then use recursion to walk the directory structure. So, you'll have a sub that accepts either a folder object or a string that is the path (your choice) and then within the sub you'll process all the files and then have it call itself for each folder within the supplied path. Here's some pseudocode:
sub ProcessFolder(folder)
foreach(file in folder.files)
rename file...
foreach(folder in folder.folders)
ProcessFolder(folder)
end sub
From your main script you'll just call the sub with for the root level of folder and then let it handle everything from there.
Keep It Simple Stupid! (KISS)
|
|
|
|
|
i just changed it around so that it checked for the extention and renamed it
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
strFolderName=inputbox("ENTER THE FULL BACKUP PATH")
msgbox "A messagebox will display on completion, this may take some time"
Set colSubfolders = objWMIService.ExecQuery _
("Associators of {Win32_Directory.Name='" & strFolderName & "'} " _
& "Where AssocClass = Win32_Subdirectory " _
& "ResultRole = PartComponent")
arrFolderPath = Split(strFolderName, "\")
strNewPath = ""
For i = 1 to Ubound(arrFolderPath)
strNewPath = strNewPath & "\\" & arrFolderPath(i)
Next
strPath = strNewPath & "\\"
Set colFiles = objWMIService.ExecQuery _
("Select * from CIM_DataFile where Path = '" & strPath & "'")
For Each objFile in colFiles
If objFile.Extension = "txt" Then
strBACKUP = objFile.Drive & objFile.Path & objFile.FileName & "." & "bak"
objFile.Copy(strBACKUP)
End If
Next
For Each objFolder in colSubfolders
GetSubFolders strFolderName
Next
Sub GetSubFolders(strFolderName)
Set colSubfolders2 = objWMIService.ExecQuery _
("Associators of {Win32_Directory.Name='" & strFolderName & "'} " _
& "Where AssocClass = Win32_Subdirectory " _
& "ResultRole = PartComponent")
For Each objFolder2 in colSubfolders2
strFolderName = objFolder2.Name
arrFolderPath = Split(strFolderName, "\")
strNewPath = ""
For i = 1 to Ubound(arrFolderPath)
strNewPath = strNewPath & "\\" & arrFolderPath(i)
Next
strPath = strNewPath & "\\"
Set colFiles = objWMIService.ExecQuery _
("Select * from CIM_DataFile where Path = '" & strPath & "'")
For Each objFile in colFiles
If objFile.Extension = "txt" Then
strBACKUP = objFile.Drive & objFile.Path & objFile.FileName & "." & "bak"
objFile.Copy(strBACKUP)
End If
Next
GetSubFolders strFolderName
Next
End Sub
thanks for the help!
|
|
|
|
|
How to copy data in a data table to another table in run time (by using VB.NET 2005)
|
|
|
|
|
This is disconnected from a DB ? You'd have to build the table to have the right format and copy the rows across.
Christian Graus
Driven to the arms of OSX by Vista.
|
|
|
|
|
|
Dim NewTable as datatable = oldtable.copy
Never underestimate the power of human stupidity
RAH
|
|
|
|
|
Hi
How can I open a website from a windows application in any browser
Thanks
Sebastian
|
|
|
|
|
By using Process.Start with a URL, you can launch the default browser. To specify the browser, you'd need to find the exe on the HDD and know how to launch it with a URL.
Christian Graus
Driven to the arms of OSX by Vista.
|
|
|
|
|
Actually...This will launch any default browser at the URL you specify
Private Sub LaunchURL(byval URL as String)
Try
Process.Start(URL)
Catch ex as exception
End Try
End Sub
You can then use: LaunchURL("http://urlhere") from anywhere within your code..
The Try is needed because some browsers like Firefox will sometimes return an error for no reason...
Steven
|
|
|
|
|
in one of my application i am using mscomm32.ocx for fetching data from electronic weighbridge but in this case one problem occur some time it gives wrong value(eg:the actual weight is 5900Kg some time it shows 2810Kg or 2800Kg and then again convert to 5900Kg automatically it happens frequently in some timer interval).i am using timer control for getting data to textbox.
I hope i am able to clear my situation.
Thanx in advance
|
|
|
|
|
Hi I m not sure about it...
1. But some time machine will send more than 2 parameter check it Once.
2. Check Number conversion is happens...
|
|
|
|
|
thanx for your response.
But how can i check the machine sands one or two parameter.
|
|
|
|
|
You said ur using single textbox then u can try this
Use that textbox and send the set of value from machine(Raw Data) Once then u can understand the parameter and in that machine send weight with other tagged value.
|
|
|
|
|
remove the timer control,
wait for all parameters(one or two) from serial port with a particular time out.
use comport.readbuffercount
Rajesh B --> A Poor Workman Blames His Tools <--
|
|
|
|
|
I'm converting a VB6 app which has many control label arrays (95% of them contain 2 labels) with a slew of different property values (font sizes, colors, border styles, etc). I know that control arrays are not natively supported in design mode and I don't want to use the backwards comp. VB6 reference. I recreated each label at design time, but they lack an index property. Breaking out all the logic, which is very lengthy into sep property calls vs. index isn't really practical.
My question is this: is it possible in the CTOR or load to create a label array at runtime and then set each label element = to a an existing label (those created at design time). The code below obviously doesn't work, but shows what I'm trying to accomplish. Create a 2 element lbl Array which gets set to both of the correlated labels created at design time, remove the origs, and replace with label array.
I'm confused how I can set/copy all of the orig design-time label properties = to the array labels, and then destroy the origs without killing label array values (currently a pointer to an object that doesn't exist). Is it possible to loop properties on a control?
Private lblDestination(1) As Label
Private Sub frmMainForm_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
lblDestination(0) = lblDestinationTemp
lblDestination(1) = lblDestinationBottomTemp
lblDestinationTemp.Dispose()
End Sub
Any suggestions, ideas, or 'constructive criticism' are always welcome.
"There's no such thing as a stupid question, only stupid people." - Mr. Garrison
|
|
|
|
|
I found a way to extend the label control to include an index property.
For the sake of learning, is there a way to do the above like I was trying to do previously.
Thanks,
deez
Any suggestions, ideas, or 'constructive criticism' are always welcome.
"There's no such thing as a stupid question, only stupid people." - Mr. Garrison
|
|
|
|
|
I would have suggested adding the controls to a collection. It seems that adding the Index property to the control is backwards, since it doesn't know it's position in a collection, nor should it care.
|
|
|
|
|
You can loop over the controls collection using the as keyword. so if 'control' is the control value as you loop
Dim lb as Label = control as Label
I think that will work. lb will be null if the control is not a label. I am translating C# in my head here, the syntax may be wrong. But, in this way, you can find all the labels in your form and do the same thing to them.
Christian Graus
Driven to the arms of OSX by Vista.
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
