Posts by Oxiegen

Depending on the format of the age column, you can limit the results by checking to see if the age is equal to or greater than the current year - 4.

Ex if column is DateTime/SmallDateTime datatype:
SELECT * FROM <table> WHERE YEAR(<asset age column>) >= 2009

In order to avoid the flickering, use the SetStyle method of the form.

    Public Sub EnableDoubleBuffering()
       ' Set the value of the double-buffering style bits to true.
       Me.SetStyle(ControlStyles.DoubleBuffer _
         Or ControlStyles.UserPaint _
         Or ControlStyles.AllPaintingInWmPaint, _
         True)
       Me.UpdateStyles()
    End Sub

Here's how you can get an ArrayList of available drives.

Imports System.IO

Public Function GetDrives() As ArrayList
    Dim drives As New ArrayList

    For Each drive As DriveInfo In My.Computer.FileSystem.Drives
        drives.Add(drive.Name)
    Next

    Return drives
End Function

I've been thinking about something like this myself, and I've been doing some research into the matter.
There are two options available to you (that I'm aware of).

1) Create an application that communicates with a cellphone connected to your computer.
2) Use an existing webservice API provided by any available SMS-Gateway provider. (Will most likely be a monthly fee or per sent message).

Here is an idea.

There is an article on CodeProject that deals with exactly this.
It may not be exactly what you're looking for, but it will get you very close.

Read more about connectionstrings here

Iterate through the items in the ListView and check the .Text property if the selected item is already present.

For Each item As ListViewItem In lv.Items
    If item.SubItem(0).Text = <combobox>.SelectedItem Then
        MessageBox("The selected item is already added")
        Return
    End If
Next

item.SubItem(0) represents the very first column in the ListView.
Replace <combobox> with whatever name of the combobox you wish to check against.

If the program relies on a database, just set up a central database server and have your program connect to it.
That's basically it.
Several copies of your program on various computers can connect to the database and share information.

See if it helps to set the property "Copy Local" to True for that reference.

I see the mistake I made.
Move the last two lines so that they are inside the For loop.

But also, before the For loop. Add this line ListView1.Items.Clear()

The ListView control is sometimes very smart.
Create a String array, and add your information to that.
And then you create a new ListViewItem and assign the array to it.
Last, add the ListViewItem to the ListView.

Dim str(6) As String
Dim dt As New DataTable
Dim da As New OleDbDataAdapter("SELECT * FROM Schedulings WHERE YearLevels = '" & ComboBox3.Text & "', Sections = '" & Combobox1.Text & "'", asconn)
da.Fill(dt)

For Each myrow As DataRow In dt.Rows
    str(0) = myrow.Item(5)
    str(1) = myrow.Item(6)
    str(2) = myrow.Item(7)
    str(3) = myrow.Item(8)
    str(4) = myrow.Item(9)
    str(5) = myrow.Item(10)
Next

Dim item As New ListViewItem(str)
ListView1.Items.Add(item)

First. Get rid of the line com.ExecuteNonQuery(). You ARE executing a query.
Second. In order to compare the selected item in the combobox with the result from the query, you should actually perform a check on it.
Not assign it.
Replace Combobox3.Text = rid(2) with If Combobox3.Text = rid(2) Then

Also. Close the database connection when you're done.

Alright.
Then you can probably add a boolean variable that checks wether or not the mousebutton has been released.
And if so, exit from the MouseDown event.
I don't know if this is going to work. I've never tried it myself, but it should give you some ideas.

Private Sub control_MouseDown(ByVal sender As Object, ByVal e As MouseEventArgs) Handles control.MouseDown
    If bMouseClicked = True Then Return

    'The original MouseDown code
End Sub

Private Sub control.MouseClick(ByVal sender As Object, ByVal e As MouseEventArgs) Handles control.MouseClick
    bMouseClicked = e.Clicks > 0
End Sub

Why not skip the MouseDown event all together and move that code into a method that you call at the end of execution in the MouseClick event?

Yeah. Threading may just be the way to go.
But I have to ask.
I'm guessing the purpose is to enter an URL and have the webbrowser control go there.
But if you iterate through a bunch of sites on the SAME webbrowser control, no one will ever have time to do anything on any of them except the last one.
So my question is this, what's the point?

Ooops.
Try adding tblPrize.prize to the GROUP BY clause (separated by a comma).

And regarding the use of the [+] button.
Can't you change the label to say "Add new booking" instead of a [+] sign?

Boot into recovery mode from the install CD/DVD or Live CD.
From there you can access the terminal and mount the device containing /etc (usually /dev/hda1).
Edit the shadow file and just remove the encryption string for the root account.

Example:
From root:$1$aB7mx0Licb$CTbs2RQrfPHkz5Vna0.fnz8H68tB.:10852:0:99999:7:::
To root::10852:0:99999:7:::

Then just reboot and login as root.
When asked for a password, just hit enter. And then use passwd to change password.

I'm no expert. But it could be that a certain default setting in bios doesn't agree with your overclocked graphics card.
Try resetting your graphics card to factory default as well.
If possible.

I'm assuming that you're looking for the SQL expression to accomplish this.
Here it is:
SELECT tblData.num,SUM(tblData.cost) AS Total,tblPrize.prize FROM tblData, tblPrize WHERE tblData.num = tblPrize.num GROUP BY tblData.num

I've been successful in using IO.File.Copy when transfering files to and from another computer.
IO.File.Copy("\\" & cmbservername1.Text & "\SharedNow\database.txt", "C:\database.txt")

Should have been posted in Web Development->PHP forum.

You should make it a rule to include an ID field and make it a Primary Key when creating tables in a database.
And also include that in your SELECT statements.

That's why you get that message.

I created a similar thing on a project once.
Here's what I did.

I created a class with two main methods. One for reading messages from the database, and one for writing the message to the database.
I then used threading to run that class and let it trigger the read method every 5 minutes (or so).
If a message was found, destined to a user running a certain instance of the client it displayed a MessageBox containing who sent it, when and the message.

Here is the class I created.
It was a while ago, so it may seem a bit ugly. (But it works, mostly.)

Imports System.Data.SqlClient
Imports System.Threading

Namespace Classes
    Public Class clsIM
#Region " Member Variables "
        Private strUser As String
        Private strErr As String
        Private isHidden As Boolean = False

        Private con As SqlConnection

        Private m_clsThread As Thread
        Private m_clsSynchronizingObject As System.ComponentModel.ISynchronizeInvoke
        Private m_clsNotifyDelegate As NotifyProgress

        Public Delegate Sub NotifyProgress(ByVal Message As String)
#End Region

#Region " Constructors "
        Public Sub New(ByVal UserName As String)
            'The username of the current user
            strUser = UserName
        End Sub

        Public Sub New(ByVal UserName As String, ByVal SynchronizingObject As System.ComponentModel.ISynchronizeInvoke, ByVal NotifyDelegate As NotifyProgress)
            'The username of the current user
            strUser = UserName
            m_clsSynchronizingObject = SynchronizingObject
            m_clsNotifyDelegate = NotifyDelegate
        End Sub
#End Region

#Region " Public Methods "
        Public Sub Start()
            m_clsThread = New Thread(AddressOf PollMessages)
            m_clsThread.Name = "Instant Messages"
            m_clsThread.IsBackground = True
            m_clsThread.Start()
        End Sub

        Public Function SendMessage(ByVal ToUser As String, …

Try setting the mdiparent of that second form to the MDI form.

mastersupplier.MdiParent = <name of mdi form>

This is how you set the orientation to landscape.

Dim settings As New System.Drawing.Printing.PrinterSettings
settings.DefaultPageSettings.Landscape = True 'This is the key

'And to retain those margins you're setting
settings.DefaultPageSettings.Margins = New Margins(10, 10, 10, 10)

PrintDocument1.PrinterSettings = settings

Sure there is.
You can remove the lines "Me.Hide" and "Me.Show".
That will refresh the form without hiding it first.

The only reason I added them was to avoid any "blinking" side-effects. :)

Error 1: Is the MDI child form called frmMain? I would assume that's the name of the MDI parent form.
Call the load method of the same form the code is in. Ie, it will reload itself.

Error 2: Replace "Form" with "Me"

This is how you set landscape printing.

Dim settings As New System.Drawing.Printing.PrinterSettings
settings.DefaultPageSettings.Landscape = True
PrintForm1.PrinterSettings = settings

First you need to establish what constitutes a block of text.
From what I can see, a block starts with a line ending in 091.
That would be your queue.
Read the text file line by line in a For loop and examine each line to see if it contains that number, with the exeption of the very first line.
Once that's been located, call a method taking the block of text as a argument and perform some kind of action, and resume the iteration when that is done.

This is a solution I created in one of my projects.

Create a public method on each of the MDI childs.
In that method, clear all controls and recall InitializeComponent and then recall the forms load event.
Like so:

Public Function ReloadForm() As Boolean
   Try
      Me.Hide()
      Me.Controls.Clear()
      InitializeComponent()
      Form1_Load(Form, New System.EventArgs)
      Me.Show()
   Catch ex As Exception
      Return False
   End Try

   Return True
End Function

You can call that method from any other form:

If Not Form1.ReloadForm() Then
   MessageBox.Show("Failure to reload form","Minor error", .......)
End If

Since JAR files are based on the ZIP archive, you should be able to use sharpziplib to extract the contents of the JAR file.
And using that library, theoretically you should also be able to manipulate the archive by deleting content. If you know where it is.

That's the best advice I can give. I have no direct experience of this.

Using a public servers date and time would require that the user of your program has an active internet connection, or is on a corporate network.
Both of which seems a bit hazardous if it's unknown.

What you could do is grab the systems date and time on first install/run and store it in the userspace of the program settings.
Then you could create a method that both checks the current date and calculate time passed, and also whether or not the systems date is less than the stored date indicating that the user has set the date back.
You simply call that method once on each execution.

(oops, missed that line) :)

First, why do you have this? strSelection = boConversionType.SelectedIndex.ToString()

Second.
I can see what the code does, but I can't see what strSelection is for.
If you select something from the combobox, the SelectedIndex will be > -1.
So, the Select Case statement works as it should.
You might wanna consider adding a Case Else for a default value in case you forget to select something.

What Select Case does is that it checks the value of whatever argument you put to it.
And then each Case checks if the value is this or that.
It's just a compressed version of If...Else If...Else If...Else If...Else...End If.

'These two examples perform the EXACT same task, but the first one is bit more bulkier

If cboConverstionType.SelectedIndex = 0 Then
   strSelection = 25
Else If cboConverstionType.SelectedIndex = 1 Then
   strSelection = 30
Else If cboConverstionType.SelectedIndex = 2 Then
   strSelection = 35
End If

Select Case cboConverstionType.SelectedIndex
   Case 0
      strSelection = 25
   Case 1
      strSelection = 30
   Case 2
      strSelection = 35
End Select

Have you tried printing using landscape orientation?

Try setting the class variable directly instead of setting it through the property locally.
And see if it helps by changing the property as well.
Try this:

Public Property MAXROWXX() As Integer
        Get
            'Here is the change
            Return _MAXROWSXX
        End Get
        Set(ByVal value As Integer)
            _MAXROWSXX = value
        End Set
    End Property

'And in the DATASETWAEL method
_MAXROWSXX = dsA.Tables("ZEZO").Rows.Count

Also, VB.NET does not require the use of Call.
It's not wrong, just not needed. :)
Just type myCalc.DATASETWAEL() straight up.

Your best bet would be to use the CONVERT function to convert DateOfReturn into a varchar with a specific format.

xSQL.AppendLine("UPDATE tblClientRecord SET Status=@Stat WHERE CONVERT(VarChar, DateOfReturn, <format>)='" & DTParrive.Text.Trim & "' AND CONVERT(VarChar, TimeOfReturn, <format>)>='" & lblTimeOfDay.Text.Trim & "' ")

Where <format> is any of preset CONVERT integer formats: http://msdn.microsoft.com/en-us/library/ms187928.aspx

That way you can define whatever format will be best suited to match what's in the database with what the datetimepicker and label contains.

The Maximum value of the ProgressBar should be set to TotalPhysicalMemory.
Although, the answer could be in that you divide AvailablePhysicalMemory with TotalPhysicalMemory. Why is that?

Let's say that you have 4Gb in total memory, and 2.5Gb available.
2.5 / 4 = 0.625 = 625Mb, ie a fraction of the memory is displayed in the progressbar.

Alright.
You want to convert the text into HTML entities.

This function should do it:

Private Sub SomeMethod()
   Dim file As New StreamReader("filename", Encoding.GetEncoder(437))
   Dim content As String
   content = TextToHtmlEntity(file.ReadToEnd)
   file.Close()

   'content now contains a string of HTML entities
End Sub

Private Function TextToHtmlEntity(ByVal text As String) As String
   Dim textVal As Integer
   Dim encoded As String = ""
   Dim c As Char

   For Each c In text
      textVal = AscW(c)
      If textVal >= 49 And textVal <= 122 Then
         encoded += c
      Else
         encoded += String.Concat("&#",
textVal.ToString(System.Globalization.NumberFormatInfo.InvariantInfo), ";")
      End If
   Next

   Return encoded
End Function

When reading the file, first create a StreamReader object.
You can use arguments in it's constructor.
Try this...

Dim file As New StreamReader("filename", Encoding.GetEncoder(437))
Dim content As String
content = file.ReadToEnd
file.Close()

I found this project on CodeProject.
It's written for .NET 1.1, but it should be workable in .NET 3.5 as well.
http://www.codeproject.com/Articles/8501/Implement-POP3-and-SMTP-in-NET

This should have been posted in the ASP.NET forum.

You can't use MsgBox nor MessageBox on the web.
What you can do is use javascript with a vbscript popup box.
Here is a solution: http://www.delphifaq.com/faq/javascript/f1172.shtml

Happy news!
Yes, there are several ways to edit the ID3 tags.
There are multiple users over at CodeProject who have published classes and projects with that purpose.
Here is one: http://www.codeproject.com/Articles/17890/Do-Anything-With-ID3

Is there an error?
Have you debugged the code to see if the code for TimerMemProgress is being trigged and executed?

Alright. Try this instead.
In the forms load event, add this line: <name of menustrip>.Renderer = New MyRenderer Then, within the forms own class add a private class called MyRenderer which inherits ToolStripProfessionalRenderer.

Private Class MyRenderer : Inherits ToolStripProfessionalRenderer
        Protected Overrides Sub OnRenderMenuItemBackground(ByVal e As System.Windows.Forms.ToolStripItemRenderEventArgs)
            If e.Item.Selected Then
                Dim rc As New Rectangle(Point.Empty, e.Item.Size)

                'Set the highlight color
                e.Graphics.FillRectangle(Brushes.Beige, rc)
                e.Graphics.DrawRectangle(Pens.Beige, 1, 0, rc.Width - 2, rc.Height - 1)
            Else
                Dim rc As New Rectangle(Point.Empty, e.Item.Size)

                'Set the default color
                e.Graphics.FillRectangle(Brushes.Gray, rc)
                e.Graphics.DrawRectangle(Pens.Gray, 1, 0, rc.Width - 2, rc.Height - 1)
            End If
        End Sub
    End Class

The link I gave you to a forum discussion at MSDN contained another link pointing to a project at CodeProject.
THAT project is written in C#.
Download it, open it in Visual Studio and compile it.
That will produce a library that you need to reference in your own project.

When that is done, you can use "Import Utilities.FTP".

By referencing the compiled C# library, you WILL get access to Utilities.FTP.

Follow these three steps...
1) Compile the FTP class library!
2) Create a reference to the DLL file in your own project!
The DLL file is located inside the \bin folder of THAT project.
3) Use: Imports Utilities.FTP.

It's that simple.
There is no need to look for and install any third-party software.

Help you do what?
If you have problem with this code, then perhaps you should ask your teacher about it.