|
The .ZIP format allows to extra data (metadata) to be added to the archive and to each file.
The classes in the .NET Framework do NOT support this.
You have to use a third party library to do this, like DotNetZip or SharpZipLib. Using either those libraries will let you add data to each file as a "comment". So long as your data can be represented as a string, it'll work.
|
|
|
|
|
Hello !
I have followed your suggestions , and I'm using comments inside the zip file. But the problem is that some programs like 7Zip can make this comment visible , and also let the users add comments. So a file created with this program can add comments and a zip file that seems created with my software , may be created with this other software.
What can I do ?
Thank you !
|
|
|
|
|
I never said the solution was perfect.
Yes, all comments are visible in just about any ZIP program.
Metadata is supported in the ZIP format outside of comments. The problem is I don't know of a single ZIP library that supports it. You'd have to write your own ZIP library to do this and that's a HUGE undertaking.
|
|
|
|
|
I have some SQL Linq that I need date ranges for. But I remember when I wrote them in TSQL, I had to specify the hours, minutes and seconds to compare to a DateTime Column.
So I have this for the current day, not that hard to figure this one out.
Dim DateStart As New DateTime(Now.Year, Now.Month, 1, 0, 0, 0, 0)
Dim DateStop As New DateTime(Now.Year, Now.Month, DateTime.DaysInMonth(Now.Year, Now.Month), 23, 59, 59, 0)
I wrote this for Last Months first and last day, but I only get the date, and not the time
This one is harder to figure out.
Dim DateStart As DateTime = DateAdd("m", -1, DateSerial(Year(Today), Month(Today), 1))
Dim DateStop As DateTime = DateAdd("m", 0, DateSerial(Year(Today), Month(Today), 0))
I wrote this for last years first day and last day, but once again I only get the date
Dim DateStart As DateTime = DateAdd("y", -1, DateSerial(Year(Today), Month(Today), 1))
Dim DateStop As DateTime = DateAdd("y", 0, DateSerial(Year(Today), Month(Today), 0))
I haven't written complex date and time in vb, only in TSQL and I had to get help on that as well. I could use some help or a nudge on this to get going in the right direction.
|
|
|
|
|
Then easy way to do it is to just assemble the DateTime from Month, Day 1, Year, 00:00:00 (midnight), like you have in your first line of code.
The end DateTime is actually very easy. Just create a DateTime for the Month + 1, Day 1, Year, 00:00:00 (midnight).
For example,
' Get the current Date/Time in a variable we can manpulate consistently
' This is because each call to DateTime.Now or DateTime.Today will return
' a different time, and if executed at midnight, different days!
Dim baseDate As DateTime = DateTime.Today()
' Build a start date based on the current month and year.
Dim startDate As DateTime = New DateTime(baseDate.Year, baseDate.Month, 1, 0, 0, 0, 0)
' Build a end date based on the current month and year.
' Add a month to the current DateTime to easier get the end date.
' This also accounts for rolling over the year.
baseDate = baseDate.AddMonth(1)
Dim stopDate = New DateTime(baseDate.Year, baseDate.Month, 1, 0, 0, 0, 0)
Now, in your query the WHERE clause would look like this:
WHERE dateTime >= startDate AND dateTime < endDate
This accounts for records that appear from midnight on the start day and up to, but not inclusive of, the end date which starts at midnight.
|
|
|
|
|
Thanks Dave, I'll give that a try. I need to build some data up in order to fully test it.
But I did write this for last month and last year, but wasnt' able to fully test it.
Dim DateStart As DateTime = DateAdd("m", -1, DateSerial(Year(Today), Month(Today), 1))
Dim DateStop As DateTime = DateAdd("m", 0, DateSerial(Year(Today), Month(Today), 0))
Dim DateStart As DateTime = DateAdd("yyyy", -1, DateSerial(Now.Year, 1, 1))
Dim DateStop As DateTime = DateAdd("yyyy", -1, DateSerial(Now.Year, 12, 31))
|
|
|
|
|
I would also, like Dave, first calculate my baseDate and after this working with this variable.
It allows you a little bit easier Debugging and result-checking ...
|
|
|
|
|
The DateAdd and DateSerial functions are VB-specific methods intended to provide some level of backwards-compatibility with VB6. They're not particularly efficient, and don't offer anything that the built-in methods on the DateTime type can't do. You should try to avoid using them in any new code.
There's a slight quirt with DateSerial where the month and day parameters can be outside of the valid range - for example, your DateStop passes 0 as the day parameter. If required, you can replicate this behaviour by starting with the 1st January and adding the months and days:
DateSerial(year, month, day)
New DateTime(year, month, day)
New DateTime(year, month, 1).AddDays(day - 1)
New DateTime(year, 1, 1).AddMonths(month - 1).AddDays(day - 1)
For DateAdd, the equivalent depends on the date interval you're adding:
dateValue.AddYears(number)
dateValue.AddMonths(number * 3)
dateValue.AddMonths(number)
dateValue.AddDays(number)
dateValue.AddDays(number * 7)
dateValue.AddHours(number)
dateValue.AddMinutes(number)
dateValue.AddSeconds(number)
For the periods you're using:
Dim todayStart As DateTime = DateTime.Today
Dim todayEnd As DateTime = todayStart.AddDays(1).AddSeconds(-1)
Dim monthStart As New DateTime(DateTime.Today.Year, DateTime.Today.Month, 1)
Dim monthEnd As DateTime = monthStart.AddMonths(1).AddSeconds(-1)
Dim yearStart As New DateTime(DateTime.Today.Year, 1, 1)
Dim yearEnd As DateTime = yearStart.AddYears(1).AddSeconds(-1)
"These people looked deep within my soul and assigned me a number based on the order in which I joined."
- Homer
|
|
|
|
|
I didn't know that about DateSerial, it was giving me strange behavior.
I'll rewrite my code to use addMonths, addYears, etc.
And your samples give me strong examples to reference.
Thanks Dave!
|
|
|
|
|
I am developing a Windows Forms application with Visual Studio 2010 and VB.net.
On the "load" of a form I inserted the following code that takes data from a Firebird DB and I would populate a "datagridview" but I can not:
Private Sub Form1_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
Try
Dim cn As New OdbcConnection("dsn=PHOENIXDB;uid=SYSDBA;pwd=masterkey;")
Dim mystring As String = "Select * from VW_SSN_REGIONI"
Dim cmd As OdbcCommand = New OdbcCommand(mystring)
Dim daSSNregioni As New OdbcDataAdapter
Dim dsSSNregioni As New DataSet
cn.Open()
daSSNregioni.SelectCommand = cmd
daSSNregioni.SelectCommand.Connection = cn
daSSNregioni.Fill(dsSSNregioni, "SSN_REGIONI")
Me.DataGridViewX1.DataSource = dsSSNregioni
cn.Close()
Catch ex As NullReferenceException
MsgBox("Error: " & ex.Source & ": " & ex.Message, MsgBoxStyle.OkOnly, "Connection Error !!")
Catch ex As Exception
MsgBox("Error: " & ex.Source & ": " & ex.Message, MsgBoxStyle.OkOnly, "Connection Error !!")
End Try
End Sub
Thanks
|
|
|
|
|
change
Me.DataGridViewX1.DataSource = dsSSNregioni
to
Me.DataGridViewX1.DataSource = dsSSNregioni.Tables(0)
Every day, thousands of innocent plants are killed by vegetarians.
Help end the violence EAT BACON
|
|
|
|
|
Thanks.... all ok 
|
|
|
|
|
Attempted to read or write protected memory. This is often an indication that other memory is corrupt in vb.net
|
|
|
|
|
You probably have some parameter mismatch in some P/Invoke function call. But since you decided not to share any kind of information about your code, or where the error is occurring, we can only guess.
You can lead a developer to CodeProject, but you can't make them think.
The Theory of Gravity was invented for the sole purpose of distracting you from investigating the scientific fact that the Earth sucks.
|
|
|
|
|
Considering that there is about a thousand different causes for an error like this, it's impossible to tell you anything useful without a lot more information from you.
|
|
|
|
|
This is a stumper.
In my SQL Linq, I Projected the results into a class in IEnumerable(of Class)
One of the columns is ResponseDate, Which is a DateTime in the class I project into,
a DateTime in the Model
But on the VB Side, but I go to use the class as an Object
For m As Object in Messages
.Text = m.ResponseDate.ToString("MM/dd/yy H:mm")
is not a valid integer.
This I get is not a valid DateTime
.Text = DateTime.ParseExact(m.ResponseDate, "MM/dd/yy H:mm", CultureInfo.InvariantCulture)
I'm not sure what to think on this. I thought by projecting into the class, that it would keep it's type and cast correctly.
|
|
|
|
|
The problem is you told VB to treat m as an Object, which doesn't have a ResponseDate property.
|
|
|
|
|
OK, I used the as class name this time.
Had trouble with it in the Movie Program, I'll revisit that tommorrow.
Thanks!
|
|
|
|
|
Good day,
I have a requirement to log vehicle CANBUS data from a Lawicell USB CANBUS adapter. My old XP (VB6) laptop had "Ports (Comm and LPT)" settings in the device manager that i could access and change to make sure the comm port in use by the adapter was available and one of ports 1-4 as this is the range of ports my bit of code looks for. On my new Win7 (VS2008) laptop "Ports" are not shown even though the CANUSB adapter works just fine.
The code i'm using (which worked o.k. on the old pc) uses the System.IO.Ports.SerialPort.GetPortNames method to look for comm ports, but this is causing problems on the new laptop as there don't appear to be any comm ports (when debugging, the method shows 0 ports available even with the adapter plugged in and otherwise working) and so it shows an error.
My question is what method/code could i use to either detect the adapter without using the serial port name method, or, given that i can probably find its ID and location and that the code and adapter won't be used on any other PC can i code specifically for that adapter on this single PC? If so, how.
I tried to use slelong's USB library code A USB Library to Detect USB Devices[^]
but this use's a USBClassLibrary class that isn't available in VS2008.
Many thanks,
|
|
|
|
|
|
Thanks for the prompt reply. I've now recovered from the heart failure that link gave me 
Wish i'd bought a set of waders, i think i needed them.
But it did sort of answer one question i.e. the code in the link was aiming to show ALL connected devices and then find their ID's. I already know the device ID and its location so can i just hardcode for that one device on this specific pc and if so how do i get the data from it like i can if it's a serial port?
That code showed how to find the device but not how to 'talk' to it.
|
|
|
|
|
|
hahaha. Right, i'll take that as "it'll be easier to rebuild the old XP PC and use that".
Thanks anyway.
|
|
|
|
|
So I wrote this in SQL Linq for inserting a record. But I think I need a function in my DAL in order to add the record before saving it.
Using context As New CRMContext()
Dim pResults As New CRM_MESSAGES With
{
.Subject = sCM.m_Contact_Subject
}
context.SaveChanges()
So in my context, a class in my DAL DLL, I wrote a SaveChanges. do I need to write another function in order to insert the new row, and then save. Would this be an Overrides function? I looked for some samples, haven't found one yet. Having trouble using the right keywords for this.
Public Class CRMContext
Inherits DbContext
Public Sub New()
MyBase.New("DefaultConnection")
Database.SetInitializer(New CreateDatabaseIfNotExists(Of CRMContext))
Entity.Database.SetInitializer(Of CRMContext)(Nothing)
End Sub
Public Property CRM_MESSAGES As DbSet(Of CRM_MESSAGES)
Public Overrides Function SaveChanges() As Integer
ChangeTracker.DetectChanges()
'Call IPrepareForSave on entities that support it...
Return MyBase.SaveChanges()
End Function
|
|
|
|
|
Looked up DBContext, and added a couple of Imports to my Context
Imports System.Data.Entity.Infrastructure
Imports System.Data.Entity.Core.Objects
Not sure if that's what provided the Add Function, I would have to go back and remove the imports to figure that out.
but it was
context.model.add(new copy of model)
context.SaveChanges()
I moved the try catch around the Add and save, but I think I should just dump the Try and Catch all together.
|
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
