|
Basically what I want to do is - subtract a time record from my system time and place that result into a dynamic column for each record. I'm definetly having problems with my loop and the loop syntax - help will be greatly appreciated.
With the code below I get an error system.InvalidCastException: Invalid cast from Int32 to DateTime.
at System.Int32.System.Iconvertible.TODateTime(IFormat Provide provider)
at System.Convert.ToDateTime(Object Value)
at System.Data.Common.dateTimeStorage.set(Int32 record, Object value)
at System.Data.dataColumn.set_Item(Int32 record, Object value) Couldnt stor <0> in requested_date Column. Expected type is DatTime.
When I change the for loop around a just a littile I will get the difference of time for just the first record...Thanks
Here is my code:
Public Sub frmLoad()
Dim i As Integer
Dim MyDataSet As New DataSet
Dim command1 As New SqlCommand("Select * FROM LateOrders_query_view order by reason", cnn1)
Dim SqlReader As SqlDataReader
Try
cnn1.Open()
'Debug.WriteLine(cnn1.ConnectionString)
Dim dt As New DataTable("LateOrders_query_view")
dgOrderReport.DataSource = dt
Dim DirAdapter As New SqlDataAdapter(command1)
DirAdapter.Fill(MyDataSet, "LateOrders_query_view")
dgOrderReport.DataSource = MyDataSet.Tables("LateOrders_query_view").DefaultView
Dim dc As DataColumn
dc = New DataColumn("Days Late") ', Type.GetType("System.double"))
MyDataSet.Tables(0).Columns.Add(dc)
dayslate()
Dim array As Array
Dim cntr As Integer
'Loop thru each record calculate time difference
For i = 0 To MyDataSet.Tables(0).Rows.Count - 1
MyDataSet.Tables(0).Rows(i).Item(3) = 0
'array(cntr) = MyDataSet.Tables(0).Rows(i).Item(3)
'Get Results place into Column "Days Late"
dc.Expression = DateDiff("d", dgOrderReport.Item(dgOrderReport.CurrentRowIndex, 3), System.DateTime.Today)
Next
Dim tblSetting As New DataGridTableStyle
tblSetting = New DataGridTableStyle
With dgOrderReport
'.SetDataBinding(MyDataSet, "LateOrders_query_view")
' .BackgroundColor = System.Drawing.Color.Lavender
' Set DataGrid Caption Background Color
.CaptionBackColor = System.Drawing.Color.SlateBlue
' Set DataGrid Caption Foreground Color
' .CaptionForeColor = System.Drawing.Color.LemonChiffon
' Set DataGrid Parent Rows Background Color
'.ParentRowsBackColor = System.Drawing.Color.Lavender
' Set DataGrid Parent Rows Foreground Color
' .ParentRowsForeColor = System.Drawing.Color.SlateBlue
.CaptionText = "Late Order Report"
.TableStyles.Clear()
End With
tblSetting.MappingName = MyDataSet.Tables(0).ToString()
dgOrderReport.TableStyles.Add(tblSetting)
settings()
Catch ex As Exception
MsgBox(ex.Message)
End Try
cnn1.Close()
End Sub
-- modified at 11:41 Tuesday 21st August, 2007
Thanks
|
|
|
|
|
Hey Everyone,
I'm working with vb.net/05. I am importing data from an excel file with a lot of different names. I want to have a list of all the different names without duplicates. I figured using the autofilter function would be the best bet. How would I go about taking the results of the autofilter and displaying them in a combo or list box. Some examples, or a better approach at the idea would be a great help and I would really appreciate it.
Thank you,
Mike
-When I was younger I could remeber anything, whether it happened or not
|
|
|
|
|
vb.net 2005
I have one textbox. I want to enter a string and run my addrecord sub when I press enter. Something ive never learned that Im sure is very simple. Someone give me some code, thank you guys/girls!!!
|
|
|
|
|
To teach your self start out with what is available to you. The keypress event has 2 arguments. The sender and the e. Well you know who the sender is...the text box. well what's e? inside the routine, press e and then the period. you get options of what's available to you. you'll see a property called 'keychar'. that is the character representation of what you pressed. well what are you looking for? the return key. so test for it.
Private Sub txt_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txt.KeyPress
if e.keychar = controlchars.cr then
'run any code you want...
end if
End Sub
|
|
|
|
|
It works, thank you for your help....
|
|
|
|
|
I am writing a program for someone and they wanted the strongest encryption method I could think of. I tried out a scheme but I have no way of knowing how strong it is.
Basically two passwords are entered and the file to be encrypted is selected. Let's assume the file is 1,024 bytes (1 KB). The software opens up the file and loads it into a byte array. Then it fills two different byte array with VS 2005 cryptographic random numbers. It XOR the data with the first random array and then XOR the result of the first XOR with the second random array. The first random array is encrypted with AES (Rijndael 512) with the first password. Then the second array is encrypted with Triple DES with the second password. Finally all three arrays are written to a file.
My question is what test can be preformed on such a file to tell if it is actually well encrypted? Statistical test? I know this seems like a little overboard but the person I'm doing this for did not want just encryption with AES or DES but wanted something beyond that and I was trying to aim for the strength obtained when one-time truely random pad data is used? Does this come close to it?
Does this method actually make the file more secure because it is relying on two seperate passwords and two sets of random data? Decrypting just one random pad will not decrypt the file and two different encryption algorithms are used at two seperate parts?
Comments and feedback are welcome.
|
|
|
|
|
Security through obscurity doesnt count. Basically this scheme is as strong as both of your encryption schemes (an attacker would have to break both). The one time pad aspect adds nothing. (Apart from tripling the size of your data).
Homebrew encryption is never really the answer. If you don't think either algorithm is strong enough for the task at hand (or is likely to be broken while the data should still be secret), then just take your data, encrypt that with method A, then the result with B.. etc.
You might also want to consider that an attacker would choose to go for the much easier "rubber hose cryptoanalysis" by convincing your friend to provide any passwords and keys, because thats going to be easier than breaking well-respected cryptographic algorithms.
|
|
|
|
|
Hi
In my application i am downloading mails from server.I am saving all
the mail information into database like to,from,cc,bcc,body.
While saving all information to database i am having one problem.
Suppose my mail body contain html table and message is written in
html table then when am saving mail body to database i am getting
all html tag like <htm> like this all the html tag are
also saved into database but i want to avoid html tag while saving
mail body to DB.How can i do this.Can anybody help me to solve this.
I am using pop3 protocol and indy socket liabery.
Thanks.
-- modified at 11:55 Monday 20th August, 2007
Rahul.
|
|
|
|
|
with the understanding that the format will be all messed up... take the body of email and loop through the text finding the next < if after the < is an html tag then look for the > and replace that with "". keep doing this until you are done.
|
|
|
|
|
i tried to use the winformclient project at this location
http://www.codeproject.com/dotnet/FTPWinFormClient.asp
& i used the code in vb.net 2003 but i get the below error
'System.Collections.Specialized.StringCollection' cannot be converted to 'Indy.Sockets.TIdStringsFCL'.
in
drawDirectoryContents() at
lFtp.List(ls, src, True)
where ls is a string collection object
i used CType to convert ls into 'Indy.Sockets.TIdStringsFCL
even then i get the same error.
Can anyone help me with this .Below is the code
Private Sub drawDirectoryContents()
statusBar1.Text = "Listing directory contents .."
lstDirectory.Items.Clear()
Dim ls As System.Collections.Specialized.StringCollection = New System.Collections.Specialized.StringCollection
Try
lFtp.List(ls, src, True) 'getting error at this line
Catch ex As Exception
statusBar1.Text = ex.Message
Return
End Try
Dim obj1 As Object
Dim file As String
For Each file In indychild
lstDirectory.Items.Add(obj1)
Next
For Each file In ls
lstDirectory.Items.Add(file)
Next
End Sub
|
|
|
|
|
padbindu wrote: i used CType to convert ls into 'Indy.Sockets.TIdStringsFCL
even then i get the same error.
I have no idea what a TidStringFCL is, but it's plainly not a string collection. You can't just magically cast stuff, it needs to define a conversion. Can you build an instance of the class you need in code, using your string collection ?
Christian Graus - Microsoft MVP - C++
"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 )
|
|
|
|
|
Hi. I'm writing radio station scheduling software for my 3rd year project. I'm looking for something to use to store and display mp3/mp4 metadata along with the appropriae playing times for the various songs. The schedule needs to be saved and allow for scheduling in advance. It will cover the full day-to-day scheduling for the radio station. If anybody can give me any advice on what I could use and a possible starting approach I would really really appreciate it. Thanks
Mr Oizo
-- modified at 8:51 Tuesday 21st August, 2007
|
|
|
|
|
Database, database, and finally database. First create the necessary tables in a database and populate them with data. Once all that is done, you can start writing your app by designing the business layer, in other words, the rules by which you need to create schedules, etc. and only when all that is done you start making the necessary form(s) to handle all possible interaction with the business layer (exceptions in schedules, etc) and the database (adding new songs, etc).
Very important! Try to design all business logic into your database (For example: song 1 may never be played on Friday: Table_Songs.NoNoDay = "Friday"), and hard code as little as possible.
Good luck with it,
Johan
My advice is free, and you may get what you paid for.
|
|
|
|
|
Hi
In my application i am creating a text file and write some text to
it then i am checking if file exist or not if exist i want to write
to a new line but while doing i am getting an error.
Object reference not set to instance of an object.How can i do this.
Plesae guide me to do this. my Code is as follow.
for i= to Count<br />
Dim id As String = xMsg.MsgId()<br />
Dim sFileName As String<br />
sFileName = "C:/text1.txt"<br />
Dim newline As String = String.Empty<br />
'Dim tw As TextWriter<br />
If Not IO.File.Exists(sFileName) Then<br />
MessageBox.Show("File Not Found")<br />
Dim TextFile As New StreamWriter(sFileName)<br />
<br />
TextFile.WriteLine(id)<br />
TextFile.Close()<br />
Else<br />
MessageBox.Show("File Found. File was created on: ")<br />
'Dim TextFile As System.IO.TextWriter<br />
Dim TextFile As StreamWriter<br />
<br />
TextFile.WriteLine(id)<br />
TextFile.Close()<br />
<br />
End If<br />
<br />
Next
Thanks.
Rahul
|
|
|
|
|
Hi rahul.net11
To solve the problem
Example:
dim str as string
str= " vbcrlf "
TextFile.WriteLine(id & str)
Rami Abd Alhalim
|
|
|
|
|
Hi
Sorry this soluation Correct
TextFile.WriteLine(id & vbCrLf)
Rami Abd Alhalim
|
|
|
|
|
Thanks.
For your rply.I tried it.
df
|
|
|
|
|
hi rahul,
use following procedure
Private Sub CreateTextFile(ByVal FilePath As String, ByVal data As String)<br />
Dim oFile As System.IO.File<br />
Dim oWrite As System.IO.StreamWriter<br />
Dim oRead As System.IO.StreamReader<br />
Dim PreviousData As String = ""<br />
Dim CheckHypen As String<br />
<br />
If File.Exists(FilePath) Then<br />
oRead = oFile.OpenText(FilePath)<br />
While oRead.Peek <> -1<br />
If PreviousData = "" Then<br />
PreviousData = oRead.ReadLine()<br />
Else<br />
CheckHypen = oRead.ReadLine<br />
PreviousData = PreviousData & ControlChars.NewLine & CheckHypen<br />
End If<br />
End If<br />
End While<br />
oRead.Close()<br />
End If<br />
<br />
oWrite = oFile.CreateText(FilePath)<br />
<br />
If PreviousData = "" Then<br />
PreviousData = data<br />
oWrite.WriteLine(PreviousData)<br />
Else<br />
PreviousData = PreviousData & ControlChars.NewLine & data<br />
oWrite.WriteLine(PreviousData)<br />
End If<br />
<br />
oWrite.Close()<br />
end sub<br />
hope this helps
Rupesh Kumar Swami
Software Engineer,
Integrated Solution,
Bikaner (India)
|
|
|
|
|
Thanks.
For your rply.I tried it.
Rahul
|
|
|
|
|
Hi,
try:
<br />
Dim TextFile As StreamWriter<br />
TextFile = File.AppendText(sFileName)<br />
and I think this will interest you too:
<br />
Dim fi As New FileInfo(sFileName)<br />
'fi.CreationTime now holds the creation date/time<br />
Luc Pattyn [Forum Guidelines] [My Articles]
this weeks tips:
- make Visual display line numbers: Tools/Options/TextEditor/...
- show exceptions with ToString() to see all information
- before you ask a question here, search CodeProject, then Google
|
|
|
|
|
Thanks.
For your rply.I tried it.
Rahul
|
|
|
|
|
the reason you are getting the " Object reference not set to instance of an object. " error, is because when you are checking if the file exists you are NOT declaring the StreamWriter as NEW
see your code from below.
rahul.net11 wrote: MessageBox.Show("File Found. File was created on: ")
'Dim TextFile As System.IO.TextWriter
Dim TextFile As StreamWriter
TextFile.WriteLine(id)
TextFile.Close()
End If
you need to declare an object as new / make sure the object exists before attempting to use it.
you should have the following sort of thing
Dim TextFile As New StreamWriter(" your file path or stream path here ")
regards.
<--- my signature --->
<font color="blue">Csharp</font> me = (<font color="blue">Csharp</font>)Dynamic_Sysop; <font color="#008000">// My Signature.</font><br><font color="#008000">$twins</font> = <font color="#008000">me.twins</font>(<font color="#800080">"Taylor"</font> , <font color="#800080">"Delta"</font>); <font color="#C0C0C0">// My twin daughters.</font><br>echo <font color="#008000">$twins</font>;
|
|
|
|
|
Asking the same question multiple times in the same day is called "spamming". It's considered very rude.
|
|
|
|
|
hi,
I am using vb.net 2005 with the report viewer control and the built-in
reports (NOT CRYSTAL REPORTS). The report viewer fills a regular form,
which when opened grabs the data for the report (based on certain parameters)
The reports themselves are RDLC files.
following code properly display the preview of my report
Private Sub ShowReport(ByVal Id As Long)<br />
Dim mdIns As New mdGlobal<br />
Dim str As String<br />
Dim AwiCashFlowDataSet As New DataSet<br />
str = "SELECT * FROM Analysis where c_id=" & Id<br />
CashFlowDataSet = mdIns.GetResultFromQuery(str) 'retun dataset with data<br />
CashFlowDataSet.Tables(0).TableName = "ReturnOnCash"<br />
<br />
Dim RDS As Microsoft.Reporting.WinForms.ReportDataSource = New Microsoft.Reporting.WinForms.ReportDataSource<br />
ReturnOnCashBindingSource.DataSource = CashFlowDataSet<br />
ReturnOnCashBindingSource.DataMember = "ReturnOnCash"<br />
RDS.Name = "CashFlowDataSet_ReturnOnCash"<br />
RDS.Value = ReturnOnCashBindingSource<br />
Me.ReportViewer1.LocalReport.DataSources.Add(RDS)<br />
If mdChecking.ReportNumber = 1 Then<br />
ReportViewer1.LocalReport.ReportEmbeddedResource = "Analysis.rptReturnOnCash.rdlc"<br />
Else<br />
ReportViewer1.LocalReport.ReportEmbeddedResource = "Analysis.rptCashFlow.rdlc"<br />
End If<br />
<br />
Me.ReportViewer1.RefreshReport()<br />
If IsPrint = False Then<br />
Me.Show()<br />
Else<br />
IsPrint = False<br />
End If<br />
<br />
End Sub
now i want to print the report without preview but i can't. because i dont know
anybody have idea that how can i print the report without preview using reportviewer
Rupesh Kumar Swami
Software Engineer,
Integrated Solution,
Bikaner (India)
|
|
|
|
|
sum(fld,condfld)
what for this. And can give any example to explain this............
Senthil S
Software Engineer
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
