Posts by Begginnerdev

I assumed he meant router. Shows what happens when you assume. :D

But, this is starting to sound like quiz questions/answers.

Yes, you can have multiple wireless routers in your home.

The problem that may occur when doing this may be poor signal quality if the signals interfere with one another.

But in short, yes, you can absolutely have multiple wireless routers in your home.

The only problem that you will have to make double sure that you have solved would be static IP addressing. If you are currently running through DHCP method of addressing, every n (n being number chosen by your ISP - usually 24) hours your IP will change on your host computer. This will be a HUGE problem with domain providers that require a static (unchanging) IP address. You will need to call your ISP to see that they do infact support this. Once you have done so, then you will need to configure IIS.

As you stated previosly, the operating system you have chosen to use is Windows Server 2008 r2. This means that your IIS version should be 7 or 7.5.

Please read this article on how to configure IIS to host your website.

My apologies, I typed the previous code straight into the code window.

You can create a sub procedure in the destination form that will take the SQL statment as a string. Then fill the ListView from that sub procedure.

For example:

    'In DestinationForm 
    Protected Friend Sub FillListView(ByVal sSQL As String)
        Dim da As New OleDbDataAdapter(sSQL, New OleDbConnection("YourStringHere"))
        Dim ds As New DataSet
        Try
            da.Fill(ds, "MyTable")
            If Not IsNothing(ds.Tables("MyTable")) Then
                If ds.Tables("MyTable").Rows.Count > 0 Then
                    For Each dr As DataRow In ds.Tables("MyTable").Rows
                        Dim lvi As New ListViewItem

                        lvi.Text = dr("MyCol1")
                        lvi.SubItems.Add(dr("MyCol2"))
                        lvi.SubItems.Add(dr("MyCol3"))

                        MyListView.Items.Add(lvi)
                    Next
                Else
                    MsgBox("No rows were returned by the query!", _
                    MsgBoxStyle.Information, "Oops!")
                End If
            Else
                MsgBox("No objects were returned from the database.", _
                MsgBoxStyle.Information, "Oops!")
            End If
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical, "Error!")
        Finally
            da.Dispose()
            ds.Dispose()
        End Try
    End Sub

To fill the ListView, call the procedure like so:

frmMyFormInstance.FillListView("YourQueryHere")

You can write a function to scale the parent panel.

For example:

    Private Sub btnIn_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnIN.Click
        'Increase the size of the picturebox, which increases the picture size.
        If Not IsNothing(Panel2) Then Panel2.Size = ScaleTenPercent(Panel2.Size, Zoom.zIn)
        If Not IsNothing(Panel2) Then Panel2.Refresh()
    End Sub

    Private Sub btnOut_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnOUT.Click
        'Decrease the size of the picturebox, which decreases the picture size.
        If Not IsNothing(Panel2) Then Panel2.Size = ScaleTenPercent(Panel2.Size, Zoom.zOut)
        If Not IsNothing(Panel2) Then Panel2.Refresh()
    End Sub

    Private Enum Zoom
        zIn = 1
        zOut = 2
    End Enum

    Private Function ScaleTenPercent(ByVal sizeIn As Size, ByVal mode As Zoom) As Size
        Try
            'Note the 1.1 and .9
            If mode = Zoom.zIn Then
                Dim newWidth As Integer = sizeIn.Width * 1.1
                Dim newHeight As Integer = sizeIn.Height / sizeIn.Width * newWidth
                Return New Size(newWidth, newHeight)
            ElseIf mode = Zoom.zOut Then
                Dim newWidth As Integer = sizeIn.Width * 0.9
                Dim newHeight As Integer = sizeIn.Height / sizeIn.Width * newWidth
                Return New Size(newWidth, newHeight)
            Else
                Return New Size(sizeIn.Width, sizeIn.Height)
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
            Return New Size(sizeIn.Width, sizeIn.Height)
        End Try
    End Function

Here is a VB.NET version of what gtcorwin had posted.

Hopefully this will alleviate any problems you may have converting the code.

Private Function TransferFile(ByVal sURLAddress As String) As Boolean
    Dim webClient As New WebClient()
    AddHandler webClient.DownloadFileCompleted, AddressOf DownloadComplete
    AddHandler webClient.DownloadProgressChanged, AddressOf ProgressChanged
    Dim URL As Uri = If(sURLAddress.StartsWith("https://", StringComparison.OrdinalIgnoreCase), _
                                   New Uri(sURLAddress), New Uri("https://" + sURLAddress))
    Try
        webClient.DownloadFileAsync(URL, "PathToMyDestination")
        Return True
    Catch ex As Exception
        MsgBox(ex.Message, MsgBoxStyle.Critical, "Error!")
        Return False
    Finally
        webClient.Dispose()
        URL = Nothing
    End Try
End Function

Private Sub DownloadComplete(ByVal sender As Object, e As AsyncCompletedEventArgs)
    Try
        'Do stuff
    Catch ex As Exception
        MsgBox(ex.Message, MsgBoxStyle.Critical, "Error!")
    End Try
End Sub

Private Sub ProgressChanged(ByVal sender As Object, e As DownloadProgressChangedEventArgs)
    Try
        'Do stuff
    Catch ex As Exception
        MsgBox(ex.Message, MsgBoxStyle.Critical, "Error!")
    End Try
End Sub

Please post a snippet of the code that is throwing the exception.

This will help us better understand the source of the exception. :)

Have you tried overloading the PrintDocument.PrintPage method and check to see if the report has more pages?

'Making use of PrintPageEventArgs
While e.HasMorePages
    'Do stuff
End While

What kind of cell phone are you speaking of?

Are you using a smartphone or a basic phone?

If you have a smart phone, is it android,symbian,windows, or iOS?

Who is your carrier?

Some carriers place software on the phone (smart phones) that will launch when you connect the phone. (Verizon Backup Assistant)

Do receive any update, or just completion without any status change on your progress bar?

Have you started developing the application?

Have you created a database?

If you could post what you have, we would be able to help you more.

Here is a project posted on VBForums that will complete that task. You can study it in detail to get an idea for creating your own.

The problem with the date object is that it defaults to 12:00:00 for the time portion of the date.

Try using:

bdate.ToShortDateString()

First you will need to connect to the database. (See this for connection strings.)

Note that for the following code I will be using OleDB.

I, personally, like to wrap my connection code in clean class.

'This code uses integrated security.
Public Class Connection
    Private con As New OleDb.OleDbConnection("Provider=SQLOLEDB;" & _ 
                                             "Server=MyServer;" & _
                                             "Database=MyDatabase;" & _
                                             "Integrated Security=SSPI")

    Protected Friend ReadOnly Property Open As OleDb.OleDbConnection
        Get
            If con.State = ConnectionState.Closed Then con.Open()
            Return con
        End Get
    End Property

    Protected Friend Sub Close()
        Try
            con.Close()
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical, "Connection_Close")
        End Try
    End Sub

    Protected Friend Sub Dispose()
        con.Dispose()
    End Sub
End Class

Second, you will need to create the dataset.

Private Function GetData() As DataTable
    Dim db As New Connection
    Try
        Dim da As New OleDBDataAdapter("SELECT * FROM MyTable",db.Open)
        Dim ds As New DataSet

        da.Fill(ds,"Data")

        If Not IsNothing(ds.Tables("Data")) Then
            If ds.Tables("Data").Rows.Count > 0 Then
                Return ds.Tables("Data")
            Else
                MsgBox("No records were returned from table...") 'Remove
                Return New DataTable
            End If
        Else
            MsgBox("No table returned...") 'Remove/Add Fault Tolerance
        End If
    Catch ex As Exception
        MsgBox(ex.Message,MsgBoxStyle.Critical,"Error!")
        Return New DataTable
    Finally
        db.Close
        db.Dispose
        db = Nothing
    End Try
End Function

Finally, you will need to issue updates to the table.

Private Function UpdateTable(ByVal dt As DataTable) As Boolean
    Dim db As New Connection
    Try
        Dim da As New OleDbDataAdapter("SELECT * FROM MyTable WHERE 1=2", db.Open)
        da.UpdateCommand = New OleDb.OleDbCommandBuilder(da).GetUpdateCommand
        da.Update(dt)

        Return True
    Catch ex As Exception
        MsgBox(ex.Message,MsgBoxStyle.Critical,"Error!")
        Return False
    Finally
        db.Close
        db.Dispose
        db = …

The report wizard will group the data for you, just set the datasource of the report as a list.

Here is an example of report creation.

As for setting the report source, name it dataset one and use the following code to set the source. (Be sure to have the correct property names in your list of objects.)

Dim ReportPath as String = "MyAssemblyName.EmbededReportName"
rvwReports.LocalReport.ReportEmbeddedResource = ReportPath
rvwReports.LocalReport.DataSources.Add(New Microsoft.Reporting.WinForms.ReportDataSource("DataSet1", lstMySource))
Me.rvwReports.RefreshReport()

This will be a really ugly method of doing it, but this may do what you wish.

Private Function ResetSerialPort() As IO.Ports.SerialPort
    Try
        For Each sPort As String In IO.Ports.SerialPort.GetPortNames()
            Dim spMyPort As New IO.Ports.SerialPort(sPort)

            If spMyPort.IsOpen Then spMyPort.Close()
            spMyPort.Open()

            Return spMyPort
        Next

        Return Nothing
    Catch ex As Exception
        MsgBox(ex.Message, MsgBoxStyle.Critical, "Error!")
        Return Nothing
    End Try
End Function

First off, nice article.

Second off, Bug report. If you do not purchase and damage upgrades, but die on the boss. You will still have the option to buy the damage upgrade before starting the next round. This will allow you to buy (in my case) up to 6 upgrades. This subtracts from your credits as usual, but will allow for negative credits.

This is with no modifications to the code posted above.

You might want to add a couple lines in the Timer2_Tick method that will dispose the button and reset the credit count.

Me.Controls("btnNote").Dispose
Me.rewards = 0

You will have to post your code if you wish for us to help debug it. :)

Please post the code that is generating the error, as well as a screen cap of the error.

This will help us to better understand the situation.

If the array is placed in the same codefile as the events, then public/shared modifiers are not needed.

May I suggest a list?

Dim array_shuffle As New List(Of Integer)

Lists are a class that implements the IEnumerable interface.
Therefore, you will have the ability to sort,search,add,remove and event use LINQ statements on the list.

   array_shuffle.Sort(MyIntComparer)
   array_shuffle.Add(101) 'Will add an item to the list with the value of 101
   array_shuffle.Remove(101) 'Will remove the entry of value 101

   Dim query = From iVal In array_shuffle
               Where iVal > 100
               Select iVal

   query.ToArray() 'Will return an integer array containg all values that are larger than 100.

As for comparison help please see this.

Yes, you will need to network the computers together to be able to reach the server computer.

For example:

1)Connect the computers to a router
2)Create the database on the server
3)Create a share and store the database there
3)Set connection string in application (See [this](http://www.connectionstrings.com))
4)Make sure that the server computer is on and accessible

The database path for the server will be something like:

"\\ComputerName\ShareName\Database.accdb"

You can still use Access if you create a share on the host and then point your connection string to that share.

I assume you are using an windows environment?

If so, you can try this.

You can use the SQL data import/export wizard to create the database in SQL Express.

But beware, you might have to recreate relationships.

You could create the buttons in a method then add them to the form:

For i = 0 To AANAME.Count - 1
    Dim btn As New Button

    With btn
        .Name = "btn" & i
        .Size = New Drawing.Size(70, 20)
        .Text = "CLICK ME"
    End With

    MyForm.Controls.Add(btn)
Next

Then create a sub procedure for that Form's ControlAdded Event to set the location properties.

For example:

  Private Sub MyForm_ControlAdded(sender As Object, e As System.Windows.Forms.ControlEventArgs) Handles Me.ControlAdded
    Try
        Dim pLastControl As Drawing.Point = Me.Controls(Me.Controls.Count - 1).Location

        e.Control.Location = New Drawing.Point(pLastControl.X, pLastControl.Y + 25) '20 pixels for button size and 5 pixels padding

        'Will add each control as follows
        'Button1
        'Button2
        'Button3

        'Code can be changed as desired to place controls in desired location.
    Catch ex As Exception
        MsgBox(ex.ToString)
    End Try
End Sub

The problem when loading the data into a dataset is that the data is cached. If one user has a copy in their dataset, and another has a copy in theirs - if the users decide to change the data one of the user's input will be erased.

Some one please correct me if I am wrong, but I do beleive that row locking will be your only option to completely safeguard the data.

You will have to be sure to program in timeouts for when a user opens a record but gets side tracked with something else.

Something like a timer would take care of this. Pair a timer with an action listener. (Maybe a mousemove or keystroke?) Then reset the timer value to 0.

Unlock the row @ 5 minutes ect...

You will first need to return the ID of the inserted row and store that in a variable.

Next you will need to issue the update the row using that variable.

For example:

Private Sub InsertAndUpDate()
    Dim con As New OleDBConnection("MyConnectionStringHere")
    Try
        con.Open()
        Dim cmd As OleDBCommand("INSERT INTO tblTest(Col1,Col2) OUTPUT Inserted.MyID VALUES ('Col1 vals', Col2 vals')",con)
        Dim iInsertedID  As Integer = - 1
        iInsertedID = Cint(cmd.ExecuteScalar)

        If iInsertedID > -1 Then

            cmd.CommandText = "UPDATE tblTest SET Col1='MYVAL 1' Col2='MYVAL 2' WHERE MyID=" & iInsertedID

            cmd.ExecuteNonQuery()

            MsgBox("Record inserted and updated!")
        End If
    Catch ex As Exception
        MsgBox(ex.ToString)
    Finally
        con.Close()
    End Try
End Sub

Have you copied/pasted the query directly to your dbms?

Are you sure that it is not returning any rows?

When possible, I liked to write the query in the dbms then rewrite it in code.

If you wish to only select the month portion of a date field, you must do the following:

" WHERE (MONTH(pr.[Current Month]) = 6 AND MONTH(al.[Current Month]) = 6 AND MONTH(pd.[Current Month]) = 6"

Here is a the white paper for the MONTH function.

Please note that this applies to SQL 2005 +

After a quick google session using keywords I found this article. Maybe it is what you are looking for! :)

You can condense your query a little by giving your select tables an alias.

For example:

"INSERT INTO patempTable SELECT pr.[Project Number],pr.[Employee Number],pr.[Current Month],pr.[Net Pay],al.[Net Allowance], pd.[Net] FROM [Pay_roll] pr, [Allowance] al, [Per_diem_accomodation]"

Now for tieing the tables together, my question would be: Are there multiple 'P' codes or are you just wanting to select where everything matches?

If you are just wanting to select where everything matches you can simply do something like this:

" WHERE (pd.[Project Number] = al.[Project Number] AND al.[Project Number] = pr.[Project Number])"

The ambiguity comes in with the selection by month/year.

You can try to wrap these statements with parenthesis for qualification.

For example (When added to strings above):

" AND (pr.[Current Month] = '6' AND al.[Current Month]='6' AND pd.[Current Month]='6')"

A preliminary question would be: How is your application handling the multiple users? Just a simple string containing the query executed in a command?

On the back end you can implement row locking, but this can lead to problems if the users do not commit their changes.

First thing would be to check the database permissions on the database to see if it allows other's to connect.

With SQL you can use all domain authenticated users, or you can set them individually.

Here is an example.

Excel is formatting the number. Open excel and set the desired format for those columns.

First select the column:

Next set the formatting:

Click okay and you are finished!

That would be an example of table structure.

You will need to design your tables accordingly.

Remember to normalize your tables to ward off any redundancy that is not necessary.

It seems as if you are storing prices in another form?

May I suggest storing prices into a database?

Something as simple as:

tblItems
ID | Int ID Not Null
Item | VarChar(50) Not Null
Price | Decimal(10,2) Not Null

The example given above would be using SQL Server (You can find SQL Express for free here.)

Then connect to the database and use the database to retreive the item values.

Here is an example of connecting to the database.

You can use set the selected value of the combobox to populate your fields with the data from the database.

If you are browsing this forum, it is a safe assumption to believe you know of the Fibonacci Series.

After having a couple of minutes, and some random thoughts, I put together a little piece of code that will print this series out to a file.

Private Sub FibWrite(ByVal iMax As Int64)
    Dim sw As New StreamWriter("Path")
    Dim n0 As Int64 = 0
    Dim n1 As Int64 = 1

    Try
        For i = 0 To iMax
            Dim iTemp As Int64 = n1
            n1 = n1 + n0
            n0 = iTemp
            sw.WriteLine(n1)
        Next
    Catch ex As Exception
        MsgBox(ex.ToString)
        sw.WriteLine(ex.Message)
    Finally
        sw.Close()
        sw.Dispose()
    End Try
End Sub

I reached a total of 90 iterations before overflow occurs.

Let's have some fun with this, shall we?

There are a few extra details that you have left out.

1) What kind of method are you using to store your data?
2) What kind of method are you using to display your data?
3) We need some code to help trouble shoot any problems that you may have.

If you can help us out, we may be able to help you out! :)

As cgeir has said, we can't see any code thusfar. As for the SQL I will give you a little bit of a hint.

"SELECT tb1.Column1,tb2.Column1,tb3.Column1 FROM Table1 tb1, Table2 tb2, Table3 tbl3 WHERE tb1.Column1=MyValue,tb2.Column1=MyValue,tb3.Column1=MyValue""

You should just call

Obj_CommandF.ExecuteNonQuery() 

Without the using statement. It is not needed.

Also a note is that the command given has no qualifiers therefore will clear the whole table.

The Using statement will close and dispose the object when it reaches the end of the using block.

First and foremost, you might want to check Telrik's forums for assistance on the problem that you are having.

From a 30,000 ft. view it sounds as if you are wanting to store Yes and No Flags into a database. If this is true you will want to know what column types that your database supports that will accommodate this.

Here is a list of some common database engines and data types for each.

EDIT This may require you to store a value representing yes and no. For example if the value is Yes store 1, if No store 0.

Just another note, if you wish to go one step further and not retreive the password from the database you can do something like this:

Dim cmd As New OleDBCommand("SELECT * FROM myTable WHERE UserName='" & sUser & "' AND PassWord='" & sPass & "'",con)

If cmd.ExecuteScalar > 0 Then
    Return True
Else
    Return False
End If

This would be just another added layer of security if using plain text passwords.

My suggestion would be to join the tables from the backend then pass the joined row to your DataGridView.

For example:

"SELECT pt.Participant, cr.Chri_Percent FROM Participants pt, Chriteria cr WHERE pt.UniqueIDValue = cr.UniqueIDValue"

This will bind the two data rows into one data row.

This WILL require a one to one relationship in the tables.

When handling usernames and passwords it is best to define your criteria for both the user and the administrator.

You will have to determine if you want trap-door encrypted passwords or simple text passwords. Such a method could be passing the user's input into a 256bit encryption function and checking the string against the database value.

If you chose to do simple text passwords, you might want to define some sort of password policy for the application/user.

Something like these requirements:
Must contain at least one letter from alphabet
Must contain at least one number
Must contain at least one special character
Must have a minimal length of n characters (n = number of your chosing)
Must not contain a palindrome

Then you must enforce unique ID method. (Be it an auto number or unique user ID's)

Last step is as simple as querying the database and checking the username/password against it.

For example:

'Checks the database for the user then checks the password given.
Private Function Authenticated(ByVal sUser As String, ByVal sPass As String) As Boolean
    'For this example I am using System.Data.OleDB
    Dim con As New OleDBConnection("ConnectionstringHere") 'See www.connectionstrings.com for help
    Dim da As New OleDBDataAdapter("SELECT PassWord FROM myTable WHERE UserName='" & sUser &"'",con)
       Dim ds As New DataSet
    Try
       da.Fill(ds,"PassCheck")

       If Not IsNothing(ds.Tables("PassCheck")) And ds.Tables("PassCheck").Rows.Count > 0 Then
           'Check the value against the password returned.
           If sPass = ds.Tables("PassCheck").Rows(0)("PassWord") Then
               Return True
           Else
               Return False
           End If
       Else
           MsgBox("User …

Please post the code you are using to connect to the database.

We can't help if we don't know. :)

If your motherboard has an onboard video, you might want to try running through onboard to get a confirmation on a possible bad GPU. As for the dust bunnies, you can set your case fan configuration to allow negative pressure. I use this technique personally and it works great, aside from having to clean the fans once or twice a month.

(Setup using 12x120mm fans and 1 240mm fan)

DosBox is a good DOS emulator. You may want to give it a try.

As Anima had said. This sounds like a problem with drivers. You will need to check with the phone's manufacture to see if they have/support Windows 8 drivers.

If the computer boots, there is a bios.

A computer will boot using BIOS then bootstrap the operating system.

Have you tried going into the bios setup and verify everything looks normal? (Check to see if it is finding all of your memory ect...)

One thing would to do as well would be to download a live CD for a linux distro to see if you are misinterpreting the relationship between BIOS/OS.

You can get a live CD for lubuntu here.

If it is a video card, the computer would still power up.

My thought is that it might be an overheated processor. It could have been a possible bad bearing in the fan, causing less airflow resulting in a frying pan for a processor.

You had said that you have a beefy fan/heatsink on the processor, have you tried un-mounting it from the board and checking the processor for any visual blemishes?