Public Class Form1
    Public seat As Integer
    Dim r As Integer
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If My.Computer.FileSystem.FileExists("seats.txt") Then
            My.Computer.FileSystem.DeleteFile("seats.txt")
            For x = 1 To 5
                My.Computer.FileSystem.WriteAllText("seats.txt", Environment.NewLine + x.ToString, True)
            Next
            RemoveAtLine("seats.txt", 0)
        Else : For x = 1 To 5
                My.Computer.FileSystem.WriteAllText("seats.txt", Environment.NewLine + x.ToString, True)
            Next
            RemoveAtLine("seats.txt", 0)
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        r = IO.File.ReadAllLines("seats.txt").Length + 1
        Dim reader As New System.IO.StreamReader("seats.txt")
        Dim allLines As List(Of String) = New List(Of String)
        Do While Not reader.EndOfStream
            allLines.Add(reader.ReadLine())
        Loop
        reader.Close()
        If Val(TextBox1.Text) <= r Then
            For x = 1 To Val(TextBox1.Text)
                Randomize()
                seat = Int(Rnd(1) * r)
                Label1.Text = Label1.Text + Environment.NewLine + ReadLine(seat, allLines)
                RemoveAtLine("seats.txt", seat - 1)
            Next x
        Else : MsgBox("Not enough seats left")
        End If
    End Sub

    Public Shared Sub RemoveAtLine(ByVal filePath As String, Optional ByVal lineRemove As Integer = -1)
        If (String.IsNullOrEmpty("seats.txt")) Then
            Return
        End If
        Dim lines As New List(Of String)(IO.File.ReadAllLines("seats.txt"))
        If (lineRemove >= 0 And lineRemove <= lines.Count) Then
            lines.RemoveAt(lineRemove)
        End If
        IO.File.WriteAllLines("seats.txt", lines.ToArray())
    End Sub

    Public Function ReadLine(ByVal lineNumber As Integer, ByVal lines As List(Of String)) As String
        If lineNumber = 0 Then
            Return lines(lineNumber)
        Else
            Return lines(lineNumber - 1)
        End If
    End Function

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If My.Computer.FileSystem.FileExists("seats.txt") Then My.Computer.FileSystem.DeleteFile("seats.txt")
    End Sub
End Class

‘Custom Clss block
Protected Overrides Sub OnLostFocus(ByVal e As System.EventArgs)
‘some code
End sub 

Also i write code for LostFocus in in form code

‘Form class block
Private Sub TxtPurchasePLCode_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TxtPurchasePLCode.LostFocus

‘some code
End sub

**
Now the problem is code written on form class block get triggered before code in Custom Clss block
How can i make Custom Clss block Trigger before form class
**

 Private Sub TextBox1_ReadOnlyChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.ReadOnlyChanged
 If TextBox1.ReadOnly = True Then
 TextBox1.BackColor = Color.White
 End If
 End Sub

How can i make custom control for text box to handel above code so that i dont have to write above code for each and every text box.

Public Class Form1

    Private Sub Import_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Import.Click
        FBD.ShowDialog()
        TextBox1.Text = FBD.SelectedPath
        Dim folderInfo As New IO.DirectoryInfo(TextBox1.Text)
        Dim arrFilesInFolder() As IO.FileInfo
        Dim fileInFolder As IO.FileInfo
        arrFilesInFolder = folderInfo.GetFiles("*.mp3")
        For Each fileInFolder In arrFilesInFolder
            playlist.Items.Add(fileInFolder.Name)
        Next
    End Sub

    Private Sub Play_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Play.Click
        AxWindowsMediaPlayer1.URL = playlist.SelectedItem
    End Sub

my problem is on line AxWindowsMediaPlayer1.URL = playlist.SelectedItem because if you can see, my folder directory is in the textbox, but my mp3 name is in the playlis(listbox), so now i dont know how to combine this url.

Your knowledge and advise on this matter is highly appreciated. thank you

I've written a short stored procedure in SQL Server 2008 to create a new Order Number. The code looks like this:

INSERT INTO ORDRNUMBERREC(OrderNo,UserId,CreateDate)
SELECT MAX(OrderNo)+1,'system',GETDATE() FROM ORDRNUMBERREC
WITH (TABLOCKX)

In VB2010, I've written the following code to execute the stored procedure:

            con = New SqlConnection(sConnection)
            cmd = New SqlCommand
            Dim rdr As SqlDataReader
            cmd.CommandText = "Update_OrderNo"
            cmd.CommandType = CommandType.StoredProcedure
            cmd.Connection = con

I now want to read this new OrderNo to insert it into a TextBox. This code sits under the above writen code:

            con.Open()
            rdr = cmd.ExecuteReader()
            Do While rdr.Read()
                ordno = rdr(0)
            Loop
            rdr.Close()
            con.Close()

Unfortunately this is returning a value of '0'. I've confirmed by querying the table the procedure is running and a new order number is being assigned. What I can't figure out is why '0' displays in the textbox.

Is it because I'm not querying the table correctly? Ultimately I need to have this new order number returned before the procedure is run by another user (which is why I'm using TABLOCKX). Can someone help me get this correctly?

As always, thanks!

Don

Now, for some background and my thoughts. I'm working on a project for computer science in which 'movies' (a class module I created) may be borrowed, browsed or requested. Currently, I have it to the point where a user may register or login and their information is saved to a file. I also have the menu after the login screen complete and they can view each and every movie and make requests/borrow them by outputting the information into listboxes.

Each request/borrowed movie is stored into a multi-dimensional array which contains the date and movie's index (I declared an array of movies). Essentially, I want to output the multiple pieces of data for each request as one single listbox item which may be selected and removed from the list as necessary. After a bit of googling and dabbling, I discovered much to my dismay that visual basic 6 list boxes --my CS class uses outdated software >.<-- do not support displaying one list object across multiple lines. As such, I have resorted to the following:

Call lstRequests.AddItem(movStock(requested(0, i)).title)
Call lstRequests.AddItem(requested(1, i))
Call lstRequests.AddItem("")

In order to remove a request, I simply need to use modulo 3 (with some minor modifications) on the listIndex (selected item). This is fine and all, however, I don't want the following to happen (bold is the selection):

Wall-E
m/dd/yyyy
"blank string"

What I would like to happen is that the entire entry is automatically and instantaneously selected when the user selects one line. As soon as this selection is complete, I would like the list box to return to single line selection so that the user cannot make multiple selections however, I also want the multi-line selection to remain visible. Namely, I must know how to toggle multi-line selections and also how to choose them using code (please, no VB.NET because my CS class uses outdated VB 6).

Thank you very much for taking the time to read this, and hopefully you can help me surmount this obstacle. Besides this, I am absolutely certain I can figure the rest out considering that I've already surpassed the courses expectations by dealing with files and classes. Once again, thank you for your time, as I know this is a relatively trivial distraction relating to an outdated language.

Can somebody help me with this code i don't know what is the problem here

Dim str As String = "SELECT DISTINCT FirstName,LastName FROM SessionMembers ORDER by FirstName, LastName asc"
        Dim cmdStr As New SqlCommand(str, con)
        Dim dtreader As SqlDataReader = cmdStr.ExecuteReader()

        While dtreader.Read
            stringCols.AddRange(New String() {dtreader(0).ToString})
            stringCols2.AddRange(New String() {dtreader(1).ToString})
        End While
        dtreader.Close()
        LastNameTF.AutoCompleteCustomSource = stringCols2
        FirstNameTF.AutoCompleteCustomSource = stringCols
        FirstNameTF.AutoCompleteMode = AutoCompleteMode.SuggestAppend
        LastNameTF.AutoCompleteMode = AutoCompleteMode.SuggestAppend
        con.Close()

Thank you in advance.

 Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim mdiChildForm As New Input_frm
        mdiChildForm.MdiParent = Me
        If Not CheckIfOpen("Input_frm") Then
            mdiChildForm.Show()
        End If
    End Sub

      Private Sub Input_frm_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        MsgBox("Loaded")
    End Sub

Thanks In Advance

i want to validate if the username is already taken or not yet but i don't have a clue on how to do it.

i tried this code

dtCustomer.Rows.Count > 0

but it didn't work @_@.. please guys i really need help thanks in advance :D.

Public Class Form1
    Dim FName() As String
    Dim Age(2) As Integer
    Dim path As String
    Dim Tb As String
    Dim x As Integer

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If My.Computer.FileSystem.FileExists("previous.txt") Then
            Do
                Label2.Text = My.Computer.FileSystem.ReadAllText("previous.txt")
            Loop Until Label2.Text = My.Computer.FileSystem.ReadAllText("previous.txt")
        Else : My.Computer.FileSystem.WriteAllText("previous.txt", "", True)
        End If
        My.Computer.FileSystem.DeleteFile("previous.txt")
        My.Computer.FileSystem.WriteAllText("x.txt", "0", True)
        My.Computer.FileSystem.WriteAllText("Numbers.txt", Environment.NewLine + "0", True)
        If Val(ReadLastLineOfFile("x.txt")) = 0 Then My.Computer.FileSystem.WriteAllText("x.txt", Environment.NewLine + "3", True)
        x = Val(ReadLastLineOfFile("x.txt"))
        Dim strLastLine As String
        strLastLine = ReadLastLineOfFile("x.txt")
    End Sub

    Function ReadLastLineOfFile(ByVal sFileName As String) As String
        Dim objFSO, TS
        Dim sTmpContents As String
        objFSO = CreateObject("Scripting.FileSystemObject")
        TS = objFSO.OpenTextFile("x.txt", 1)
        sTmpContents = TS.ReadAll
        TS.Close()
        TS = Nothing
        objFSO = Nothing
        ReadLastLineOfFile = Split(sTmpContents, vbCrLf)(UBound(Split(sTmpContents, vbCrLf)))
    End Function

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        My.Computer.FileSystem.WriteAllText("Numbers.txt", Environment.NewLine + TextBox1.Text, True)
        Dim reader As New System.IO.StreamReader("Numbers.txt")
        Dim allLines As List(Of String) = New List(Of String)
        Do While Not reader.EndOfStream
            allLines.Add(reader.ReadLine())
        Loop
        reader.Close()
        If Val(ReadLine(x, allLines)) > Val(Label2.Text) Then Label2.Text = ReadLine(x, allLines)
        x = x + 1
    End Sub
    Public Function ReadLine(ByVal lineNumber As Integer, ByVal lines As List(Of String)) As String
        Return lines(lineNumber - 1)
    End Function

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        My.Computer.FileSystem.WriteAllText("x.txt", Environment.NewLine + (x.ToString), True)
        My.Computer.FileSystem.WriteAllText("previous.txt", Environment.NewLine + Label2.Text, True)
        End
    End Sub
End Class

If you've seen my posts before on SQL Server stuff you know I'm a "raw rookie" with this. Again, I need some help.

I'm going to need SQL to create an order number for me. I've created a datatable with two fields: OrderNoID (key) and OrderNumber. I've already added the lowest order number I would use as the first line of the table (100000). I new need to do these steps in this order:

1) "lock" the data table. (I want to prevent anyone from accessing this table until the routine is completed)
2) Find the highest (or top) OrderNoID.
3) From this top ID number, get the OrderNumber
4) Add OrderNumber plus 1 creating a new OrderNumber
5) Create the next OrderNoID (and row) and insert this new OrderNumber
6) Return the new OrderNoID and new OrderNumber values to be read by a variable in Visual Basic.
7) Unlock the data table and close the proceedure (if that's required)

I've read through several articles but I'm unclear how to write such a proceedure as well as to name it and store it. Can someone help me through this?

In advance, thanks for your help!

Don

Could someone let me know how to validate this.

Public Class Form1
    'Declares 2 arrays with a maximum of 4 entries
    Dim strtotals(3) As String
    Dim strsales(3) As String
    Dim intPasswordCounter As Integer = 0


Private Sub btnDisplayTotals_Click(sender As System.Object, e As System.EventArgs) Handles btnDisplayTotals.Click
        'Validate the password first thing, then exit if it returns false
        If Not ValidPassword Then Exit Sub

        ' Variables for handing data        
        Dim strIncomes2(3) As String
        Dim sngSalary(3) As Single
        Dim sngMax As Single
        Dim sngSal As Single
        Dim strEmployee As String
        Dim strTotal(3) As String
        Const Commission As Decimal = 0.015
        Const Pay As Single = 400
        strEmployee = ""
        sngSal = 0
        For i = 0 To 3
            'Calculations
            If strsales(i) <> 0 Then
                strTotal(i) = Str(strsales(i))
                sngSalary(i) = Pay + Int(strsales(i)) * Commission
            Else
                strTotal(i) = 0
                sngSalary(i) = Pay
            End If
            strIncomes2(i) = Str(sngSalary(i))
            If sngSalary(i) > sngSal Then
                sngMax = sngSalary(i)
                strEmployee = lstNames.Items(i)
            End If
            sngSal = sngSalary(i)
            strtotals(i) = "Sales Total for " + lstNames.Items(i) + " is $" + strTotal(i) + " Salary is $" + strIncomes2(i) + vbNewLine
        Next
        lblMessage1.Text = strtotals(0) + strtotals(1) + strtotals(2) + strtotals(3) + "The Highest Salary was $" + Str(sngMax) + " by " + strEmployee
    End Sub

    Private Function ValidPassword() As Boolean

        'Initialize the function to return false.  
        'The return value will only change if the correct password is entered
        ValidPassword = False

        For i = 0 To 2
            Dim strPassword As String = InputBox("Please Enter a Valid Password", "Password Input")
            If strPassword = "admin" Then
                'Got the right password force a return with a value of True
                Return True
            End If
        Next
        'function didn't return yet, so user must have taken too many tries.
        MsgBox("Exceeded maximum attempts... Ending")
        End
    End Function


    Private Sub btnSale_Click(sender As System.Object, e As System.EventArgs) Handles btnSale.Click
        'Sale(lstNames.SelectedIndex).intSales += Val(txtSales.Text)
        For i = 0 To 3
            If lstNames.SelectedIndex = i Then
                strsales(i) = txtSales.Text                   'Stores Sales data with the selected list name
                txtSales.Text = ""
            End If
        Next
    End Sub

    Private Sub btnEnd_Click(sender As System.Object, e As System.EventArgs) Handles btnEnd.Click
        End
    End Sub
End Class

Thanks!

Partial Public Class frmLunchOrders
    Inherits Form
    Public Sub New()
        InitializeComponent()

    End Sub
    Private Sub radHamburger_CheckedChanged(sender As Object, e As EventArgs)

        If radHamburger.Checked = True Then
            lstOrderDetails.Visible = False

            chkLettuce.Visible = True
            chkKetchup.Visible = True
            chkFrench.Visible = True

            txtSubtotal.Text = ""
            txtTax.Text = ""
            txtOrderTotal.Text = ""
            chkLettuce.Text = "Lettuce, Tomato, and Onions"
            chkKetchup.Text = "Ketchup, Mustard, and Mayo"
            chkFrench.Text = "French Fires"
            grpAddHamburger.Text = "Add-on items ($.75/each)"

            chkLettuce.Checked = False
            chkKetchup.Checked = False

            chkFrench.Checked = False
        End If

    End Sub

    Private Sub radPizza_CheckedChanged(sender As Object, e As EventArgs)
        If radPizza.Checked = True Then
            lstOrderDetails.Visible = False

            chkPepperoni.Visible = True
            chkSausage.Visible = True
            chkOlives.Visible = True
            txtSubtotal.Text = ""
            txtTax.Text = ""
            txtOrderTotal.Text = ""
            chkPepperoni.Text = "Pepperoni"
            chkSausage.Text = "Sausage"
            chkOlives.Text = "Olives"
            grpAddPizza.Text = "Add-on items ($.50/each)"

            chkPepperoni.Checked = False
            chkSausage.Checked = False
            chkOlives.Checked = False
        End If
    End Sub


    Private Sub radSalad_CheckedChanged(sender As Object, e As EventArgs)
        If radSalad.Checked = True Then
            lstOrderDetails.Visible = False

            chkCroutons.Visible = True
            chkBacon.Visible = True
            chkBread.Visible = True

            txtSubtotal.Text = ""
            txtTax.Text = ""
            txtOrderTotal.Text = ""
            chkCroutons.Text = "Croutons"
            chkBacon.Text = "Bacon Bits"
            chkBread.Text = "Bread Sticks"
            grpAddSalad.Text = "Add-on items ($.25/each)"

            chkCroutons.Checked = False
            chkBacon.Checked = False
            chkBread.Checked = False
        End If
    End Sub

    Private Sub btnPlaceOrder_Click(sender As Object, e As EventArgs)

        lstOrderDetails.Visible = True
        btnPlace.Visible = False
        grpMain.Visible = False

        If radHamburger.Checked = True Then

            lstOrderDetails.Items.Add("Hamburger - $6.95")
            Dim subtotal As Double = 6.95

            Dim addOnItems As Double = 0
            If chkLettuce.Checked = True Then
                lstOrderDetails.Items.Add("Lettuce, Tomato, Onion - $0.75")
                addOnItems = addOnItems + 0.75
            End If
            If chkKetchup.Checked = True Then
                lstOrderDetails.Items.Add("Ketchup, Mustard, Mayo - $0.75")
                addOnItems = addOnItems + 0.75
            End If
            If chkFrench.Checked = True Then
                lstOrderDetails.Items.Add("French Fries - $0.75")
                addOnItems = addOnItems + 0.75
            End If



            subtotal = (subtotal + addOnItems)
            Dim tax As Double = subtotal * 0.0775
            Dim orderTotal As Double = subtotal + tax



            txtSubtotal.Text = subtotal.ToString("c")
            txtTax.Text = tax.ToString("c")


            txtOrderTotal.Text = orderTotal.ToString("c")

            lstOrderDetails.Items.Add("---------------------------------------------")
        End If

        If radPizza.Checked = True Then
            lstOrderDetails.Items.Add("Cheese Pizza - $5.95")

            Dim subtotal As Double = 5.95

            Dim addOnItems As Double = 0
            If chkPepperoni.Checked = True Then
                lstOrderDetails.Items.Add("Add Pepperoni - $0.50")
                addOnItems = addOnItems + 0.5
            End If
            If chkSausage.Checked = True Then
                lstOrderDetails.Items.Add("Add Sausage - $0.50")
                addOnItems = addOnItems + 0.5
            End If
            If chkOlives.Checked = True Then
                lstOrderDetails.Items.Add("Add Olives - $0.50")
                addOnItems = addOnItems + 0.5
            End If

            subtotal = (subtotal + addOnItems)

            Dim tax As Double = subtotal * 0.0775
            Dim orderTotal As Double = subtotal + tax


            txtSubtotal.Text = subtotal.ToString("c")
            txtTax.Text = tax.ToString("c")
            txtOrderTotal.Text = orderTotal.ToString("c")

            lstOrderDetails.Items.Add("---------------------------------------------")
        End If

        If radSalad.Checked = True Then
            lstOrderDetails.Items.Add("Salad - $4.95")

            Dim subtotal As Double = 4.95

            Dim addOnItems As Double = 0
            If True Then
                If chkCroutons.Checked = True Then
                    lstOrderDetails.Items.Add("Add Croutons - $0.25")
                End If
                addOnItems = addOnItems + 0.25
            End If
            If chkBacon.Checked = True Then
                lstOrderDetails.Items.Add("Add Bacon Bits - $0.25")
                addOnItems = addOnItems + 0.25
            End If
            If chkBread.Checked = True Then
                lstOrderDetails.Items.Add("Add Bread Sticks - $0.25")
                addOnItems = addOnItems + 0.25
            End If

            subtotal = (subtotal + addOnItems)

            Dim tax As Double = subtotal * 0.0775
            Dim orderTotal As Double = subtotal + tax



            txtSubtotal.Text = subtotal.ToString("c")
            txtTax.Text = tax.ToString("c")
            txtOrderTotal.Text = orderTotal.ToString("c")



            lstOrderDetails.Items.Add("---------------------------------------------")
        End If


        grpTotal.Text = "Order Details"

    End Sub
    Private Sub btnExit_Click(sender As Object, e As EventArgs) Handles btnExit.Click
        Me.Close()
    End Sub
    Private Sub clearTotals(sender As Object, e As EventArgs)
        txtSubtotal.Text = ""
        txtTax.Text = ""
        txtOrderTotal.Text = ""
    End Sub

End Class

Public Class Form1
    'Declares 2 arrays with a maximum of 4 entries
    Dim strtotals(3) As String
    Dim strsales(3) As String
    Dim intPasswordCounter As Integer = 0


    Private Sub btnDisplayTotals_Click(sender As System.Object, e As System.EventArgs) Handles btnDisplayTotals.Click
        ' Variables for handing data
        Dim strPassword As String
        Dim strIncomes2(3) As String
        Dim sngSalary(3) As Single
        Dim sngMaximum As Single
        Dim sngCurSal As Single
        Dim strEmployee As String
        Dim strTotal(3) As String
        Const Commission As Decimal = 0.015
        Const Pay As Single = 400
        strEmployee = ""

        'Code to prompt user for password 

        strPassword = InputBox("Please Enter a Valid Password", "Password Input")
        If strPassword = "admin" Then
            intPasswordCounter = 0
            sngCurSal = 0
            For i = 0 To 3

                'Calculations

                If strsales(i) <> 0 Then
                    strTotal(i) = Str(strsales(i))
                    sngSalary(i) = Pay + Int(strsales(i)) * Commission
                Else
                    strTotal(i) = 0
                    sngSalary(i) = Pay
                End If
                strIncomes2(i) = Str(sngSalary(i))
                If sngSalary(i) > sngCurSal Then
                    sngMaximum = sngSalary(i)
                    strEmployee = lstNames.Items(i)
                End If
                sngCurSal = sngSalary(i)
                strtotals(i) = "Sales Total for " + lstNames.Items(i) + " is $" + strTotal(i) + " Salary is $" + strIncomes2(i) + vbNewLine
            Next
            lblMessage1.Text = strtotals(0) + strtotals(1) + strtotals(2) + strtotals(3) + "The Highest Salary was $" + Str(sngMaximum) + " by " + strEmployee

            'Password counter code

        Else
            intPasswordCounter += 1
            If intPasswordCounter < 3 Then
                MsgBox("Incorrect Password Please Try Again")       'Message box that appears when the user inputs an incorrect password
            Else

                MsgBox("Too many attempts. Closing...")             'Message box that appears when the user inputs an incorrect password 3 times
                End
            End If
        End If


    End Sub

    Private Sub btnSale_Click(sender As System.Object, e As System.EventArgs) Handles btnSale.Click
        'Sale(lstNames.SelectedIndex).intSales += Val(txtSales.Text)
        For i = 0 To 3
            If lstNames.SelectedIndex = i Then
                strsales(i) = txtSales.Text                   'Stores Sales data with the selected list name
                txtSales.Text = ""
            End If
        Next
    End Sub

    Private Sub btnEnd_Click(sender As System.Object, e As System.EventArgs) Handles btnEnd.Click
        End
    End Sub
End Class

I'm trying to import an EXCEL table into an SQL Server Table. Although new to SQL, I've done it several times. However for the first time I'm having to import a column that is a date. I'm not sure how the EXCEL column should be formatted so that it can be easily inserted into the sql table. Should the EXCEL column be formated as a 'Date'? If so, in what format ('mm/dd/yyyy', 'yyyy/mm/dd', 'mmddyyyy', 'yyyymmdd', etc.)?

In advance, thanks for all the help.

Don

it exports to csv, which is then imported into access, and needs to be exported into a csv or excel.
Right now it looks like:

|Emp Number| |Deduction1| |Deduction2| |Deduction3|

and the format I need to turn it into:

|Emp Number| |Deduction1|
|Emp Number| |Deduction2|
|Emp Number| |Deduction3|

I've got everything loaded into datagrids in VB, but can't figure out how to get it from one format to the next. Anyone?

I've created a template and storyboard that applies to all buttons in my application. When you click the button, it drops to the right and down a bit, then snaps back up.

The problem is, when I handle the click in code, it executes before (or during?) the click event. The animation never happens in any case.

This is in my Application.xaml

        <Style TargetType="{x:Type Button}">
            <Style.Resources>
                <Storyboard x:Key="OnClick1">
                    <DoubleAnimationUsingKeyFrames Storyboard.TargetProperty="(UIElement.RenderTransform).(TransformGroup.Children)[3].(TranslateTransform.X)" Storyboard.TargetName="{x:Null}">
                        <EasingDoubleKeyFrame KeyTime="0" Value="2"/>
                        <EasingDoubleKeyFrame KeyTime="0:0:0.1" Value="0"/>
                    </DoubleAnimationUsingKeyFrames>
                    <DoubleAnimationUsingKeyFrames Storyboard.TargetProperty="(UIElement.RenderTransform).(TransformGroup.Children)[3].(TranslateTransform.Y)" Storyboard.TargetName="{x:Null}">
                        <EasingDoubleKeyFrame KeyTime="0" Value="2"/>
                        <EasingDoubleKeyFrame KeyTime="0:0:0.1" Value="0"/>
                    </DoubleAnimationUsingKeyFrames>
                </Storyboard>
            </Style.Resources>
            <Style.Triggers>
                <EventTrigger RoutedEvent="ButtonBase.Click">
                    <BeginStoryboard x:Name="OnClick1_BeginStoryboard" Storyboard="{StaticResource OnClick1}"/>
                </EventTrigger>
            </Style.Triggers>
            <Setter Property="RenderTransformOrigin" Value="0.5,0.5"/>
            <Setter Property="RenderTransform">
                <Setter.Value>
                    <TransformGroup>
                        <ScaleTransform/>
                        <SkewTransform/>
                        <RotateTransform/>
                        <TranslateTransform/>
                    </TransformGroup>
                </Setter.Value>
            </Setter>
            <Setter Property="SnapsToDevicePixels" Value="true"/>
            <Setter Property="OverridesDefaultStyle" Value="true"/>
            <Setter Property="MinHeight" Value="20"/>
            <Setter Property="MinWidth" Value="20"/>
            <Setter Property="Template">
                <Setter.Value>
                    <ControlTemplate TargetType="{x:Type Button}">
                        <Border Name="Border"  
                        CornerRadius="2" 
                        BorderThickness="0"
                        Background="{TemplateBinding Background}"
                        BorderBrush="#404040">
                            <ContentPresenter Margin="2" 
                                      HorizontalAlignment="Center"
                                      VerticalAlignment="Center" 
                                      RecognizesAccessKey="True"/>
                        </Border>
                    </ControlTemplate>
                </Setter.Value>
            </Setter>
            <Setter Property="Background">
                <Setter.Value>
                    <ImageBrush Stretch="None"/>
                </Setter.Value>
            </Setter>
        </Style>

And this is in my MainServices.xaml.vb

    Private Sub Button_New_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles Button_New.Click
        kioskConfirmIdentity.ShowMe(kioskNew_Scan)
        Me.Hide()
    End Sub

If I put nothing in my codebehind it works just fine, but if the Click event is fired the animation doesn't happen.

I've learned to find the index number of a specific character within a string by writing

dIndex = myText.IndexOf("|")

Obviously, this start counting left to right. But I'd like to do the same but start counting from the right side of the string to the left to find the character. Can this be done in VB?

If not, here's my delima:

I'm using a ComboBox that will house a list of printers to choose from. This will be populated from info in a data table. In the string of information in the ComboBox, I've put a "|" to indicate that the next character(s) will be the PrinterID (key) from the data table. Preceeding this character are multiple spaces so these characters won't be seen when the user uses the ComboBox. Since I don't know if the PrinterID will be '1' or '10' or '100', I've got to parse this number out.

In thinking out loud, if I can find the length of the string (lets call this 'sLength') and then the number of characters to the "|" (dIndex), I can do simple subtraction to find the number of "right" characters.

So, is there a "length" command to find the total number of characters in the string?

In advance, thanks.

Don

However, when the new performance scores are available in year 2014 and the user opens this application, I need it to create a new, identical Access DB (with no records) for 2014 and fill those values from the new CSV. Then I need the user to be able to select a year and have VB.NET connect to the appropriate DB so the user can look up historic values.

The key here is not the CSV read or the DB write, it is the creation of the new year's DB and the dynamic re-link of the dataset to the new DB.

Any thoughts on how to approach this? Thanks ahead of time!

this is my select query where I concatenated the firstname, lastname, and middle initial..(and display it on the data grid)

  Private Sub DisplayListOfPosition()
    query = "SELECT profNo as 'No', CONCAT(profFName,', ', profLName, ' ', profMI,'.') as 'Name', profAddress 
    as 'Address', gender as 'Gender' FROM tbl_professor_bs"
    FillDBGrid(query, Me.dgvProfessor_bs)
    Me.txtProfNo_bs.Enabled = False
  End Sub

I used cellclick on the other forms so that the data in the grid would display in textboxes.. my problem is, how would I display the concatenated columns in different textboxes?
this is my code(unfinished):

Private Sub dgvProfessor_bs_CellClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgvProfessor_bs.CellClick
        DefaultValue()
        Me.txtProfNo_bs.Text = Me.dgvProfessor_bs.Rows(e.RowIndex).Cells(0).Value.ToString()
        Me.txtProfFName_bs.Text = Me.dgvProfessor_bs.Rows(e.RowIndex).Cells(1).Value.ToString()
    End Sub

thank you in advance for your help! :)

my case is
I want to convert to txt with delimited | and then insert to Mysql table.
basically I can separate delimited csv using excel and then insert to mysql by import.
I hope I can create a program using vb.net and you can available to give me some code, please.

Thank you

Could somebody explain why this code snippet is not working?
The arrow (<----) points to where it's going wrong. It goes wrong when building, with the error of:
"An error occurred creating the form. See Exception.InnerException for details. The error is: Index was out of range. Must be non-negative and less than the size of the collection."

 Private Sub DataTable_CellChanged(sender As Object, e As DataGridViewCellEventArgs) Handles DataTable.CellValueChanged
        If (e.ColumnIndex = 1) Then
            If (IsNumeric(DataTable.Rows(e.RowIndex).Cells(e.ColumnIndex).Value) <----) Then
                DataTable.Item(e.ColumnIndex, e.RowIndex).Value = 5
                DataTable.Item(e.ColumnIndex, e.RowIndex).Style.BackColor = Color.Red
            End If
        End If
    End Sub

Imports System.Text

Partial Public Class frmReservations
    Inherits Form
    Const pricePerNight As Integer = 115
    Public Sub New()
        InitializeComponent()
    End Sub
    Private Sub frmReservations_Load(sender As Object, e As EventArgs)
        txtDepart.Text = DateTime.Today.ToString("d")
        txtArrive.Text = DateTime.Today.AddDays(3).ToString("d")
    End Sub
    Private Sub btnCalculate_Click(sender As System.Object, e As System.EventArgs) Handles btnCalculate.Click

        Dim dtDepart As DateTime
        Dim dtArrive As DateTime
        If String.IsNullOrEmpty(txtDepart.Text) OrElse Not DateTime.TryParse(txtDepart.Text, dtDepart) Then
            MessageBox.Show("Invalid departure date!")
            Return
        End If
        If String.IsNullOrEmpty(txtArrive.Text) OrElse Not DateTime.TryParse(txtArrive.Text, dtArrive) Then
            MessageBox.Show("Invalid arrival date!")
            Return
        End If
        dtDepart = dtDepart.[Date]

        dtArrive = dtArrive.[Date]
        If dtDepart < DateTime.Today Then
            MessageBox.Show("The departure date cannot be before today")
            Return
        End If

        If dtArrive > dtDepart Then
            MessageBox.Show("The departure date cannot be before the departure date")
            Return
        End If

        Dim dtUpperBoundary As DateTime = DateTime.Today.AddDays(365 * 5)
        If dtDepart > dtUpperBoundary Then
            MessageBox.Show("The departure date is more than 5 years in the future")
            Return
        End If
        If dtArrive > dtUpperBoundary Then
            MessageBox.Show("The arrival date is more than 5 years in the future")
            Return
        End If

        If dtArrive = dtDepart Then
            MessageBox.Show("You cannot depart and arrive on the same date")
            Return
        End If
        'At this point the dates should be good
        Dim duration As Integer = Convert.ToInt32(Math.Ceiling(Math.Abs(dtArrive.Subtract(dtDepart).TotalDays))) + 1
        Dim price As Integer = duration * pricePerNight
        Dim sNumberOfDays As String = duration.ToString()
        Dim sArrivalDate As String = dtArrive.ToString("d")
        Dim sDeparture As String = dtDepart.ToString("d")
        Dim sTotalPrice As String = price.ToString("C2")
        Dim sb As New StringBuilder()
        sb.AppendLine("Number of days: " + sNumberOfDays)
        sb.AppendLine("Arrival Date: " + sArrivalDate)
        sb.AppendLine("Departure Date: " + sDeparture)
        sb.AppendLine("Total Price: " + sTotalPrice)
        MessageBox.Show(sb.ToString())

    End Sub
    Private Sub btnExit_Click(sender As Object, e As EventArgs) Handles btnExit.Click
        Me.Close()
    End Sub
End Class

I'm trying to write the commands to update a row within a SQL table. I've written the following:

USE DATADESIGNSOLUTIONS
SET IDENTITY_INSERT LocationID ON
INSERT INTO LOCATIONS_SETUP(LocationID, LocationNumber, LocationName, LocationAddress1, LocationAddress2, LocationAddress3, LocationCity, LocationState, LocationZipCode, LocationZipCodeExt, PhoneNumber, FaxNumber, BillToAnswer, BillToLocation)
VALUES(10, 1, 'Traditions in Tile / Buford RDC', '4325 Hamilton Mill Rd', '', '', 'Buford', 'GA', '30518', '', '(770) 831-5324', '(770) 831-6774', 'N', 36)
GO

I'm getting the following error:

"Cannot find the object "LocationID" because it does not exist or you do not have permissions."

I've confirmed the LocationID exists:

LocationID  LocationNumber  LocationName                                LocationAddress1        LocationAddress2    LocationAddress3    LocationCity    LocationState   LocationZipCode LocationZipCodeExt  PhoneNumber         FaxNumber           BillToAnswer    BillToLocation
1           7               Traditions in Tile / Alpharetta Showroom    3065 Trotters Parkway                                           Alpharetta      GA              30004                               (770) 569-1883      (770) 569-9383      N               36
2           36              Traditions in Tile / Corporate              3065 Trotters Parkway                                           Alpharetta      GA              30004                               (770) 569-5232      (770) 569-9383      Y               36
10          1               Traditions in Tile / Buford RDC             4325 Hamilton Mill Rd                                           Buford          GA              30518                               (770) 831-5324      (770) 831-6774      N               36

Am I writing this correctly to allow the edit? If I need "permissions", how is it that I get these?

In advance, thanks for your help.

Don

I'm working to use a second for to do task that will be populate texts boxes in the first form. However I'm getting an error that says, "An error occurred creating the form. See Exception.InnerException for details. The error is: Object reference not set to an instance of an object.

In Form1, where the code starts, the code looks like this:

Public Sub cbxEditLocation_Click(sender As Object, e As System.EventArgs) Handles cbxEditLocation.Click
        cbxDeleteLocation.Checked = False
        cbxNewEntry.Checked = False
        cbxEditLocation.Checked = True
        sTask = 1
        Popup_LocationEdit.ShowDialog()
    End Sub

Form2 never opens, but it looks like this:

Private Sub Popup_LocationEdit_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        If sTask = 1 Then
            txbFormType.Text = "Enter the Location to Edit"
        End If
        If sTask = 2 Then
            txbFormType.Text = "Enter the Location to Delete"
        End If
    End Sub

I've tried using "Popup_LocationEdit.Show()" with the same error message. Can someone tell me what's going on here and how to fix it? I know I've done this before. But I don't recall having this kind of error.

Thanks for your help.

Don

The line was initially written as lblMinMonthly.Text = ("The minimum monthly rainfall was " & intMinRainfall.ToString() & "(" & strMonths(Me.intCount) & ")") but received an index out of range exception error. Any suggestions on how to correct?

My second issue is that the btnClear_Click event clears my list box and labels (begins line 84), but the array does not reset itself. In order to enter a new set of monthly statistics I have to exit and rerun. Is there a simple fix?

Thanks

Public Class Form1
    'Class level declarations
    Const intMAX_SUBSCRIPT As Integer = 11              'Upper subscript
    Dim intRainfall(intMAX_SUBSCRIPT) As Integer        'Holds rainfall array
    Dim strMonths() As String = {"January", "February", "March", "April", "May", "June", "July", "August", "September", "October", "November", "December"}
    Dim intCount As Integer                             'Loop Counter

    Private Sub btnInput_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnInput.Click
        'Prepare use for data entry
        MessageBox.Show("Please enter rainfall by month as an integer beginning with January.")

        Do While intCount <= intMAX_SUBSCRIPT
            Try
                'Get monthly rainfall from user and store in an array
                intRainfall(intCount) = CInt(InputBox("Enter the rainfall for " & strMonths(intCount)))

                'Increment intCount
                intCount += 1

            Catch ex As Exception
                'Error message for invalid input
                MessageBox.Show("Enter monthly rainfall as in integer.")
            End Try
        Loop

        'Clear the list box of its current contents
        lstRainfall.Items.Clear()

        'Display the rainfall listbox header
        lstRainfall.Items.Add("Monthly Rainfall Input")
        lstRainfall.Items.Add("--------------------------------")

        'Display each months rainfall
        For Me.intCount = 0 To strMonths.Length - 1
            lstRainfall.Items.Add(intRainfall(intCount).ToString() & " for " & strMonths(intCount))
        Next
    End Sub

    Private Sub btnDisplay_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDisplay.Click
        Dim intTotalRainfall As Integer                     'Total annual rainfall
        Dim dblAverageRainfall As Double                    'Average annual rainfall
        Dim intMinRainfall As Integer                       'Mininum monthly rainfall
        Dim intMaxRainfall As Integer                       'Maximum monthly rainfall


        'Calculate and display the total annual rainfall
        For Me.intCount = 0 To (intRainfall.Length - 1)
            intTotalRainfall += intRainfall(intCount)
        Next

        lblTotalAnnual.Text = ("The total annual rainfall was " & intTotalRainfall.ToString())

        'Calculate and display the average annual rainfall
        dblAverageRainfall = intTotalRainfall / intRainfall.Length
        lblAveMonthly.Text = ("The average monthly rainfall was " & dblAverageRainfall.ToString())

        'Calculate and display the minimum  monthly rainfalls
        'Get first month's rainfall
        intMinRainfall = intRainfall(0)

        'Search for lowest monthly rainfall
        For Me.intCount = 1 To (intRainfall.Length - 1)
            If intRainfall(Me.intCount) < intMinRainfall Then
                intMinRainfall = intRainfall(Me.intCount)
            End If
        Next

        lblMinMonthly.Text = ("The minimum monthly rainfall was " & intMinRainfall.ToString() & " (" & strMonths.ToString(intCount) & ")")

        'Calculate and display the maximum monthly rainfalls
        'Get first month's rainfall
        intMaxRainfall = intRainfall(0)

        'Search for highest monthly rainfall
        For Me.intCount = 1 To (intRainfall.Length - 1)
            If intRainfall(Me.intCount) > intMaxRainfall Then
                intMaxRainfall = intRainfall(Me.intCount)
            End If
        Next
        lblMaxMonthly.Text = ("The maximum monthly rainfall was " & intMaxRainfall.ToString() & " (" & strMonths.ToString(intCount) & ")")

    End Sub

    Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click
        'Clear the list box and statistics
        lstRainfall.Items.Clear()
        lblTotalAnnual.Text = String.Empty
        lblAveMonthly.Text = String.Empty
        lblMinMonthly.Text = String.Empty
        lblMaxMonthly.Text = String.Empty
    End Sub

    Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
        'Close the form
        Me.Close()
    End Sub
End Class

I am just wondering is this is doable. I've tried searching it in google but still no luck. I want to merge my 2 CSV files by column. For example:

File: coded.csv

"Header A","Header B","Header C"
"Data A","Data B","Data C"
"Data A","Data B","Data C"
"Data A","Data B","Data C"
"Data A","Data B","Data C"

File: truth.csv

"Header D","Header E","Header F"
"Data D","Data E","Data F"
"Data D","Data E","Data F"
"Data D","Data E","Data F"
"Data D","Data E","Data F"

Output should be: Final.csv

"Header A","Header B""Header C","Header D","Header E","Header F"
"Data A","Data B","Data C","Data D","Data E","Data F"
"Data A","Data B","Data C","Data D","Data E","Data F"
"Data A","Data B","Data C","Data D","Data E","Data F"
"Data A","Data B","Data C","Data D","Data E","Data F"

Thanks in advance.

-renzlo

If TreeView1.SelectedNode.Name = "wood" Then
            main.background*.BackgroundImage=
        End If

*PictureBox

Module DataGridViewPrinter

    Public DataGridViewToPrint As New DataGridView

    Public DefaultPageSettings As PageSettings = New PageSettings()

    Public WithEvents DocToPrint As New PrintDocument

    Private lPageNo As String = ""
    Private sPageNo As String = ""
    Private oStringFormat As StringFormat
    Private oStringFormatComboBox As StringFormat
    Private oButton As Button
    Private oCheckbox As CheckBox
    Private oComboBox As ComboBox
    Private nTotalWidth As Int16
    Private nRowPos As Int16
    Private NewPage As Boolean
    Private nPageNo As Int16
    Private Header As String
    Private FooterComment As String = ""

    Public Sub StartPrint(ByVal GridToPrint As DataGridView, ByVal PrintAsLandscape As Boolean, ByVal ShowPrintPreview As Boolean, ByVal HeaderToPrint As String, ByVal CommentToPrint As String)

        DataGridViewToPrint = GridToPrint
        Header = HeaderToPrint
        FooterComment = CommentToPrint

        'DataGridViewToPrint.Columns(2).Visible = False ' Use to hide a col. (index no.)

        ' Set up Default Page Settings
        DocToPrint.DefaultPageSettings.Landscape = PrintAsLandscape

        DocToPrint.DefaultPageSettings.Margins.Left = 25
        DocToPrint.DefaultPageSettings.Margins.Right = 75
        DocToPrint.DefaultPageSettings.Margins.Top = 25
        DocToPrint.DefaultPageSettings.Margins.Bottom = 75

        DocToPrint.OriginAtMargins = True ' takes margins into account 

        If ShowPrintPreview = True Then

            Dim dlgPrintPreview As New EnhancedPrintPreviewDialog

            dlgPrintPreview.ClientSize = New System.Drawing.Size(600, 600)
            dlgPrintPreview.Document = DocToPrint ' Previews print
            dlgPrintPreview.ShowDialog()

        Else

            '  Allow the user to choose a printer and specify other settings.
            Dim dlgPrint As New PrintDialog

            With dlgPrint
                .AllowSelection = False
                .ShowNetwork = False
                .AllowCurrentPage = True
                .AllowSomePages = True
                .Document = DocToPrint
            End With

            '  If the user clicked OK, print the document.
            If dlgPrint.ShowDialog = Windows.Forms.DialogResult.OK Then
                DocToPrint.Print()
            End If

        End If

    End Sub

    Public Sub DocToPrint_BeginPrint(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintEventArgs) Handles DocToPrint.BeginPrint

        oStringFormat = New StringFormat
        oStringFormat.Alignment = StringAlignment.Near
        oStringFormat.LineAlignment = StringAlignment.Center
        oStringFormat.Trimming = StringTrimming.EllipsisCharacter

        oStringFormatComboBox = New StringFormat
        oStringFormatComboBox.LineAlignment = StringAlignment.Center
        oStringFormatComboBox.FormatFlags = StringFormatFlags.NoWrap
        oStringFormatComboBox.Trimming = StringTrimming.EllipsisCharacter

        oButton = New Button
        oCheckbox = New CheckBox
        oComboBox = New ComboBox

        nTotalWidth = 0

        For Each oColumn As DataGridViewColumn In DataGridViewToPrint.Columns
            If oColumn.Visible = True Then ' Prints only Visible columns
                nTotalWidth += oColumn.Width
            End If
        Next

        nPageNo = 1
        NewPage = True
        nRowPos = 0

    End Sub

    Public Sub DocToPrint_EndPrint(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintEventArgs) Handles DocToPrint.EndPrint
        'Not currently used
    End Sub

    Public Sub DocToPrint_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles DocToPrint.PrintPage

        Static oColumnLefts As New ArrayList
        Static oColumnWidths As New ArrayList
        Static oColumnTypes As New ArrayList
        Static nHeight As Int16

        Dim nWidth, i, nRowsPerPage As Int16
        Dim nTop As Int16 = e.MarginBounds.Top
        Dim nLeft As Int16 = e.MarginBounds.Left

        If nPageNo = 1 Then

            oColumnLefts.Clear()
            oColumnWidths.Clear()
            oColumnTypes.Clear()

            For Each oColumn As DataGridViewColumn In DataGridViewToPrint.Columns
                If oColumn.Visible = True Then
                    nWidth = CType(Math.Floor(oColumn.Width / nTotalWidth * nTotalWidth * (e.MarginBounds.Width / nTotalWidth)), Int16)

                    nHeight = e.Graphics.MeasureString(oColumn.HeaderText, oColumn.InheritedStyle.Font, nWidth).Height + 11

                    oColumnLefts.Add(nLeft)
                    oColumnWidths.Add(nWidth)
                    oColumnTypes.Add(oColumn.GetType)
                    nLeft += nWidth
                End If
            Next

        End If

        Do While nRowPos < DataGridViewToPrint.Rows.Count - 1

            Dim oRow As DataGridViewRow = DataGridViewToPrint.Rows(nRowPos)

            If nTop + nHeight >= e.MarginBounds.Height + e.MarginBounds.Top Then

                DrawFooter(e, nRowsPerPage)

                NewPage = True
                nPageNo += 1
                e.HasMorePages = True
                Exit Sub

            Else

                If NewPage Then

                    ' Draw Header
                    e.Graphics.DrawString(Header, New Font(DataGridViewToPrint.Font, FontStyle.Bold), Brushes.Black, e.MarginBounds.Left, e.MarginBounds.Top - e.Graphics.MeasureString(Header, New Font(DataGridViewToPrint.Font, FontStyle.Bold), e.MarginBounds.Width).Height - 13)

                    ' Draw Columns
                    nTop = e.MarginBounds.Top
                    i = 0
                    For Each oColumn As DataGridViewColumn In DataGridViewToPrint.Columns
                        If oColumn.Visible = True Then
                            e.Graphics.FillRectangle(New SolidBrush(Drawing.Color.LightGray), New Rectangle(oColumnLefts(i), nTop, oColumnWidths(i), nHeight))
                            e.Graphics.DrawRectangle(Pens.Black, New Rectangle(oColumnLefts(i), nTop, oColumnWidths(i), nHeight))
                            e.Graphics.DrawString(oColumn.HeaderText, oColumn.InheritedStyle.Font, New SolidBrush(oColumn.InheritedStyle.ForeColor), New RectangleF(oColumnLefts(i), nTop, oColumnWidths(i), nHeight), oStringFormat)
                            i += 1
                        End If

                    Next
                    NewPage = False

                End If

                nTop += nHeight
                i = 0
                For Each oCell As DataGridViewCell In oRow.Cells
                    If oCell.Visible = True Then
                        If oColumnTypes(i) Is GetType(DataGridViewTextBoxColumn) OrElse oColumnTypes(i) Is GetType(DataGridViewLinkColumn) Then

                            e.Graphics.DrawString(oCell.Value.ToString, oCell.InheritedStyle.Font, New SolidBrush(oCell.InheritedStyle.ForeColor), New RectangleF(oColumnLefts(i), nTop, oColumnWidths(i), nHeight), oStringFormat)

                        ElseIf oColumnTypes(i) Is GetType(DataGridViewButtonColumn) Then

                            oButton.Text = oCell.Value.ToString
                            oButton.Size = New Size(oColumnWidths(i), nHeight)
                            Dim oBitmap As New Bitmap(oButton.Width, oButton.Height)
                            oButton.DrawToBitmap(oBitmap, New Rectangle(0, 0, oBitmap.Width, oBitmap.Height))
                            e.Graphics.DrawImage(oBitmap, New Point(oColumnLefts(i), nTop))

                        ElseIf oColumnTypes(i) Is GetType(DataGridViewCheckBoxColumn) Then

                            oCheckbox.Size = New Size(14, 14)
                            oCheckbox.Checked = CType(oCell.Value, Boolean)
                            Dim oBitmap As New Bitmap(oColumnWidths(i), nHeight)
                            Dim oTempGraphics As Graphics = Graphics.FromImage(oBitmap)
                            oTempGraphics.FillRectangle(Brushes.White, New Rectangle(0, 0, oBitmap.Width, oBitmap.Height))
                            oCheckbox.DrawToBitmap(oBitmap, New Rectangle(CType((oBitmap.Width - oCheckbox.Width) / 2, Int32), CType((oBitmap.Height - oCheckbox.Height) / 2, Int32), oCheckbox.Width, oCheckbox.Height))
                            e.Graphics.DrawImage(oBitmap, New Point(oColumnLefts(i), nTop))

                        ElseIf oColumnTypes(i) Is GetType(DataGridViewComboBoxColumn) Then

                            oComboBox.Size = New Size(oColumnWidths(i), nHeight)
                            Dim oBitmap As New Bitmap(oComboBox.Width, oComboBox.Height)
                            oComboBox.DrawToBitmap(oBitmap, New Rectangle(0, 0, oBitmap.Width, oBitmap.Height))
                            e.Graphics.DrawImage(oBitmap, New Point(oColumnLefts(i), nTop))
                            e.Graphics.DrawString(oCell.Value.ToString, oCell.InheritedStyle.Font, New SolidBrush(oCell.InheritedStyle.ForeColor), New RectangleF(oColumnLefts(i) + 1, nTop, oColumnWidths(i) - 16, nHeight), oStringFormatComboBox)

                        ElseIf oColumnTypes(i) Is GetType(DataGridViewImageColumn) Then

                            Dim oCellSize As Rectangle = New Rectangle(oColumnLefts(i), nTop, oColumnWidths(i), nHeight)
                            Dim oImageSize As Size = CType(oCell.Value, Image).Size
                            e.Graphics.DrawImage(oCell.Value, New Rectangle(oColumnLefts(i) + CType(((oCellSize.Width - oImageSize.Width) / 2), Int32), nTop + CType(((oCellSize.Height - oImageSize.Height) / 2), Int32), CType(oCell.Value, Image).Width, CType(oCell.Value, Image).Height))

                        End If

                        e.Graphics.DrawRectangle(Pens.Black, New Rectangle(oColumnLefts(i), nTop, oColumnWidths(i), nHeight))

                        i += 1
                    End If
                Next

            End If

            nRowPos += 1
            nRowsPerPage += 1

        Loop

        DrawFooter(e, nRowsPerPage)

        e.HasMorePages = False

    End Sub

    Public Sub DrawFooter(ByVal e As System.Drawing.Printing.PrintPageEventArgs, ByVal RowsPerPage As Int32)

        Dim sPageNo As String = nPageNo.ToString + " of "

        If nPageNo = "1" Then

            lPageNo = Math.Ceiling((DataGridViewToPrint.Rows.Count - 1) / RowsPerPage).ToString()
            sPageNo = nPageNo.ToString + " of " + lPageNo

        Else

            sPageNo = nPageNo.ToString + " of " + lPageNo

        End If

        ' Right Align - User Name
        e.Graphics.DrawString(FooterComment, DataGridViewToPrint.Font, Brushes.Black, e.MarginBounds.Left + (e.MarginBounds.Width - e.Graphics.MeasureString(FooterComment, DataGridViewToPrint.Font, e.MarginBounds.Width).Width), e.MarginBounds.Top + e.MarginBounds.Height + 7)

        ' Left Align - Date/Time
        e.Graphics.DrawString(Now.ToLongDateString + " " + Now.ToShortTimeString, DataGridViewToPrint.Font, Brushes.Black, e.MarginBounds.Left, e.MarginBounds.Top + e.MarginBounds.Height + 7)

        ' Center - Page No. Info
        e.Graphics.DrawString(sPageNo, DataGridViewToPrint.Font, Brushes.Black, e.MarginBounds.Left + (e.MarginBounds.Width - e.Graphics.MeasureString(sPageNo, DataGridViewToPrint.Font, e.MarginBounds.Width).Width) / 2, e.MarginBounds.Top + e.MarginBounds.Height + 7)

    End Sub

End Module

Anyone who can help me?

I want to insert <font color="#fontcode"> before the selected text in rtb(richtextbox) and </font> at the end of the selected text. This code adds the <font....> for only 3 characters from right. Please let me know what mistake i am making. Thank you

Private Sub btnLoadFromText_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLoadFromText.Click
        'declare the database
        Dim db As New dbUpdt
        Dim strRecord As String    ' for each line (record) from the CSV file
        Dim aryFields() As String ' array to contain fields
        Dim strID As String       ' for the station ID
        'declare the source of the database file

        'create connection to the database
        db.openConnection("weather.mdb")
        'open & read text
        Dim stationsFile As StreamReader = File.OpenText("stationsIn.csv")
        ' continue processing until I hit the end of CSV file
        Do Until stationsFile.EndOfStream

            ' read a record and split into fields
            strRecord = stationsFile.ReadLine
            aryFields = Split(strRecord, ",")

            ' Determine the value of the key field
            strID = aryFields(0)
            db.addRecord("stations", "StationID", "aryFields(0)")
            db.setField("stations", "StationID", "aryFields(0)", "StationName", "aryFields(1)")
            db.setField("stations", "StationID", "aryFields(0)", "State", "aryFields(2)")
        Loop
        ' read one line and store in database
    End Sub

heres my code

  Private Sub btn_Add_Click(sender As System.Object, e As System.EventArgs) Handles btn_Add.Click
        DataGridView1.Rows.Add(cbox_Product.Text, tbox_Sale_Price.Text, tbox_Qty.Text, tbox_Discount.Text, tbox_SubTotal.Text)

        If DataGridView1.Rows.Count > 0 Then
            tbox_Gross.Text = total().ToString("c")
        End If


    End Sub


Private Function Total() As Double
        Dim tot As Double = 0
        Dim i As Integer = 0
        For i = 0 To DataGridView1.Rows.Count - 1
            tot += Convert.ToDouble(DataGridView1.Rows(i).Cells(4).Value)
        Next i
        Return tot
    End Function

any ideas guys?
cheers :)

i hope someone can help me to solve my problem, i already put my database on datagridview, but my boss dont want it in standard color, so now i dont now how to change it, can i change the color using datagridview or i need to use another tools like listview?

Our form has 3 buttons.

1. Clear Database (Working)
2. Load database from Text File
3. Load listbox from database (I have this working)

Our project has 2 forms, one being the form which handles the button click events as well as the listbox selection event. We made a template (dbUpdt) that will process a text file using the functions and subs.

My question: In the selectindexchanged event directly below, what do I have to do to get the label text properties to display the field contents of the record? I know "_dbDR" is not right, but I'm killing myself and I cant figure it out.

       Private Sub lstStations_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lstStations.SelectedIndexChanged
        Dim db As New dbUpdt
        ' setup Variables

        Dim strSQL As String      ' for the SQL command
        ' establish a connection to the DB and open it
        db.openConnection("weather.mdb")
        ' establish a connection to the DB
        ' set up the SQL statement and execute it
        strSQL = "SELECT * FROM stations " & _
           "WHERE StationName='" & lstStations.SelectedItem.ToString & "'"
        ' feed the database the SQL command and execute it
        db.query(strSQL)
        ' if the record is found, display it in the text boxes
        If _dbDR.Read Then
            lblStationID.Text = _dbDR.Item("StationID").ToString
            lblStationName.Text = _dbDR.Item("StationName").ToString
            lblState.Text = _dbDR.Item("State").ToString
        Else
            MessageBox.Show("Record not found " & lstStations.SelectedItem.ToString)
        End If

        ' close the database
        db.close()
    End Sub

dbUpdt class

Imports System.Data.OleDb
''' <summary>
''' the dbUpdt class that we implement the Trmplate we created in order to process the text files and to add, create orr append a database
''' </summary>
Public Class dbUpdt



    'Declare the necessary class level variables
    Dim _strSrc As String
    Dim _strConn As String
    Dim _dbConn As New OleDbConnection
    Dim _dbCmd As New OleDbCommand
    Dim _dbDR As OleDbDataReader

    ''' <summary>
    ''' This event opens the connection to the database.
    ''' </summary>
    ''' <param name="strVar">the source of the database file</param>
    ''' <remarks></remarks>
    Public Sub openConnection(ByVal strVar As String)
        'initializes strSrc to the database file
        _strSrc = strVar

        _strConn = "Provider=Microsoft.Jet.OLEDB.4.0" & _
            ";Data Source=" & _strSrc & _
            ";User ID=admin;Password="
        'opens the database
        _dbConn.ConnectionString = _strConn
        _dbConn.Open()
        _dbCmd.Connection = _dbConn
    End Sub

    ''' <summary>
    ''' closes the database
    ''' </summary>
    Public Sub close()
        'close database
        _dbConn.Close()
    End Sub


    ''' <summary>
    ''' This method will clear the database
    ''' </summary>
    ''' <param name="strTable">the string of the table</param>
    ''' <remarks></remarks>
    Public Sub deleteAll(ByVal strTable As String)
        'create a variable for the SQL statement
        Dim strSQL As String
        ' set up the SQL statement and execute it
        strSQL = "DELETE FROM stations"
        _dbCmd.CommandText = strSQL
        _dbCmd.ExecuteNonQuery()
        'close the database
        _dbConn.Close()
    End Sub

    ''' <summary>
    ''' This method will query the database base of the SQL string that is used
    ''' </summary>
    ''' <param name="strSQL">a string that will be used to execute a SQL statement</param>
    Public Sub query(ByVal strSQL As String)
        'use SQL statement to retrieve desired records
        _dbCmd.CommandText = strSQL
        'reads the database
        _dbDR = _dbCmd.ExecuteReader()
    End Sub

    ''' <summary>
    ''' This function checks to see if there are more records to add to the database.
    ''' </summary>
    ''' <returns>_dbDR.Read</returns>
    ''' <remarks></remarks>
    Public Function moreRecords() As Boolean
        Return _dbDR.Read
    End Function

    ''' <summary>
    ''' this method will return the contents of a specific field in the curtrent record
    ''' </summary>
    ''' <param name="strFieldName"></param>
    ''' <returns>StrRet: the field contents </returns>
    ''' <remarks></remarks>
    Public Function getField(ByVal strFieldName As String) As String
        'declare the tempory variable
        Dim strRet As String
        'if there is no record to read
        If IsDBNull(_dbDR.Item(strFieldName)) Then
            'strRet will be empty
            strRet = ""
        Else
            'otherwise the strRet will be initialized with the derired field from the record
            strRet = CStr(_dbDR.Item(strFieldName))
        End If
        'returns the field contents
        Return strRet
    End Function

    ''' <summary>
    ''' This method will execute a SQL command that will add a record into the database
    ''' </summary>
    ''' <param name="strTable">the name of a table</param>
    ''' <param name="strKeyName">the value that we are using as a key</param>
    ''' <param name="strKeyContents">the value that we used as a key</param>
    ''' <remarks></remarks>
    Public Sub addRecord(ByVal strTable As String, _
     ByVal strKeyName As String, _
     ByVal strKeyContents As String)
        'declare the SQL string
        Dim strSQL As String
        'insert the record
        strSQL = "INSERT INTO " & strTable & _
           " (" & strKeyName & ") VALUES ('" & strKeyContents & "')"
        'execute the SQL string
        _dbCmd.CommandText = strSQL
        'write to the database
        _dbCmd.ExecuteNonQuery()
    End Sub

    ''' <summary>
    ''' This method is used to write to a specific field in a specific record
    ''' </summary>
    ''' <param name="strTable">name of the table</param>
    ''' <param name="strKeyName">The name of the field that is used as a key</param>
    ''' <param name="strKeyContents">The value that you are looking for in the key</param>
    ''' <param name="strFieldName">The name of the field to be updated</param>
    ''' <param name="strFieldContents">The new value of the field to be updated</param>
    Public Sub setField(ByVal strTable As String, _
     ByVal strKeyName As String, _
     ByVal strKeyContents As String, _
     ByVal strFieldName As String, _
     ByVal strFieldContents As String)
        'declare the SQL string
        Dim strSQL As String
        ' get rid of any stray quote marks
        strFieldContents = strFieldContents.Replace("'", "")
        'the SQL string that will write the field
        strSQL = "UPDATE " & strTable & " SET " & _
           strFieldName & "='" & strFieldContents & "' " & _
           "WHERE " & strKeyName & "='" & strKeyContents & "'"
        'execute the SQL string
        _dbCmd.CommandText = strSQL
        'write to the database
        _dbCmd.ExecuteNonQuery()
    End Sub


End Class

I want to replace a button with another yet different button (eg. Maximise with RestoreDown). How can I do this?
The code above is for making a custom button.

Thanks in advance!

Private Sub btnLoadFromText_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLoadFromText.Click
        ' setup Variables
        Dim myRecord As String    ' for each line (record) from the CSV file
        Dim aryFields() As String ' array to contain fields
        Dim strID As String       ' for the station ID
        Dim strSQL As String      ' for the SQL command

        ' Open the CSV File
        Dim myFile As New StreamReader(_strFilePath)

        ' establish a connection to the DB and open it
        _dbConn.ConnectionString = _strConn
        _dbConn.Open()
        _dbCmd.Connection = _dbConn

        ' continue processing until I hit the end of CSV file
        Do Until myFile.EndOfStream

            ' read a record and split into fields
            myRecord = myFile.ReadLine

            aryFields = Split(myRecord, ",")

            ' Determine the value of the key field
            strID = aryFields(0)

            ' add a blank record into the database with a key field
            strSQL = "INSERT INTO stations (stationID) VALUES ('" & strID & "')"
            _dbCmd.CommandText = strSQL
            _dbCmd.ExecuteNonQuery()

            ' update the StationName
            strSQL = "UPDATE stations SET stationName='" & aryFields(1) & "' WHERE stationID='" & strID & "'"
            _dbCmd.CommandText = strSQL
            _dbCmd.ExecuteNonQuery()

            ' update the State
            strSQL = "UPDATE stations SET state='" & aryFields(2) & "' WHERE stationID='" & strID & "'"
            _dbCmd.CommandText = strSQL
            _dbCmd.ExecuteNonQuery()

        Loop

        ' Close the database
        _dbConn.Close()
    End Sub

Public Shared Function FromRtf(ByVal rtf As RichTextBox) As String
        Dim b, i, u As Boolean
        b = False : i = False : u = False
        Dim fontfamily As String = "Arial"
        Dim fontsize As Integer = 12
        Dim htmlstr As String = String.Format("<html>{0}<body>{0}<div style=""text-align: left;""><span style=""font-family: Arial; font-size: 12pt;"">", vbCrLf)
        Dim x As Integer = 0
        While x < rtf.Text.Length
            rtf.Select(x, 1)
            If rtf.SelectionFont.Bold AndAlso (Not b) Then
                htmlstr &= "<b>"
                b = True
            ElseIf (Not rtf.SelectionFont.Bold) AndAlso b Then
                htmlstr &= "</b>"
                b = False
            End If
            If rtf.SelectionFont.Italic AndAlso (Not i) Then
                htmlstr &= "<i>"
                i = True
            ElseIf (Not rtf.SelectionFont.Italic) AndAlso i Then
                htmlstr &= "</i>"
                i = False
            End If
            If rtf.SelectionFont.Underline AndAlso (Not u) Then
                htmlstr &= "<u>"
                u = True
            ElseIf (Not rtf.SelectionFont.Underline) AndAlso u Then
                htmlstr &= "</u>"
                u = False
            End If
            If fontfamily <> rtf.SelectionFont.FontFamily.Name Then
                htmlstr &= String.Format("</span><span style=""font-family: {0}; font-size: {0}pt;"">", rtf.SelectionFont.FontFamily.Name, fontsize)
                fontfamily = rtf.SelectionFont.FontFamily.Name
            End If
            If fontsize <> rtf.SelectionFont.SizeInPoints Then
                htmlstr &= String.Format("</span><span style=""font-family: {0}; font-size: {0}pt;"">", fontfamily, rtf.SelectionFont.SizeInPoints)
                fontsize = rtf.SelectionFont.SizeInPoints
            End If
            Dim curchar As String = rtf.SelectedText
            Select Case curchar
                Case vbCr, vbLf : curchar = "<br />"
                Case "&" : curchar = "&amp;" : x += "&amp;".Length - 1
                Case "<" : curchar = "&lt;" : x += "&lt;".Length - 1
                Case ">" : curchar = "&gt;" : x += "&gt;".Length - 1
                Case " " : curchar = "&nbsp;" : x += "&nbsp;".Length - 1
            End Select
            rtf.SelectedText = curchar
            x += 1
        End While
        Return htmlstr & String.Format("</span>{0}</body>{0}</html>", vbCrLf)
    End Function

Where do I call this function? How do use this function? Please help,its urgent!

[IMG]http://i45.tinypic.com/9zxbvt.png[/IMG]

Thank You

I recognize the today, most people navigate from control to control within a form with their mouse. However some old school people may want to use a "enter" key or a up, down, left or right arrow. I'm curious to know if these kinds of events (if that's the right word to describe the use of these keys) can realistically used in Visual Basic.

As an example, I (or the user) can use the tab key to move from one box to the next. But I have no way of going back one box (or two or three....) except by using the mouse to point and click. What options are available within VB to do such? Is this something that can be set in the properties on the controls? Is this a "keydown" event that I'll need to write code for?

I'm interested in your thoughts and ideas as well as ways to to easily accomplish (if such exists) using these various keys to navigate with.

In advance, thanks for helping this newbie!

Don

I'm working with a ListView box for the first time. I've figured out how to populate it with data from a database. I now want to click one line of that ListView and have it return each of the five cells from that line into 5 textboxes. I've written the following code that is failing:

Private Sub lvPrinterSetup_Click(sender As Object, e As System.EventArgs) Handles lvPrinterSetup.Click
        Dim values As New List(Of String)
        If lvPrinterSetup.SelectedItems.Count > 0 Then
            For Each item As ListViewItem.ListViewSubItem In lvPrinterSetup.SelectedItems(0).SubItems
                values.Add(item.Text)
                txbRow.Text = Convert.ToString(lvPrinterSetup.SelectedItems(0))
                txbPrinterName.Text = Convert.ToString(lvPrinterSetup.SelectedItems(1))
                txbPrinterName.Text = Convert.ToString(lvPrinterSetup.SelectedItems(2))
                txbPrinterNo.Text = Convert.ToString(lvPrinterSetup.SelectedItems(3))
                txbPrinterAddress.Text = Convert.ToString(lvPrinterSetup.SelectedItems(4))
            Next

        End If
End Sub

This is failing with error notes saying the .SelectedItems(1) "InvalidArgument=Value of '1' is not valid for 'index'. Parameter name: index"

I'm sure that 2 - 4 will fail as well too. Clearly I've written this incorrectly. This is where my lack of programming knowledge and experience is showing up!!

So how do I get these 5 items from one line that I've clicked into the various textboxes?

In advance, thanks for your assistance

Don

here's the code

If errorMsgLbl.Text = "Password match" Then
                sqlCmd = New SqlCommand("INSERT INTO registered_cust_tbl([customer_fname], [customer_lname], [customer_DoB], [customer_Contact], [customer_Email], " & _
                " [customer_Address], [customer_Gender], [customer_Ailments], [customer_Username], [customer_Password], " & _
                " [customer_Secret_Question], [customer_Secret_Answer], [customer_Purpose], [customer_weightRcnt], [customer_heightRcnt], [customer_bmi], [customer_weightLossGain], [customer_weightUpdt]) " & _
                " VALUES ('" & firstNameTb.Text.Trim & "', '" & lastNameTb.Text.Trim & "', '" & DoBdtp.Text & "', '" & customerMPNo.Text & "', '" & _
                               emailTb.Text.Trim & "', '" & addressRtb.Text.Trim & "', '" & gender & "', '" & ailmentstxtBx.Text.Trim & "', '" & _
                               usernameTF.Text.Trim & "', '" & passwordTF.Text & "', '" & SecQuesBox.Text & "', '" & SecAnsBox.Text.Trim & "', '" & _
                               purpose & "', '" & numWeight.Text & " " & TypeOfWeight.Text & "', '" & numHeight.Text & " " & TypeOfHeight.Text & "', '" & TotalBmi.Text & "', '" & "0" & "' , '" & "0" & "' )", getConnect())

                errorMsgLbl.Text = "Password match"
                msgLbl.Text = "Password match"
                msgLbl.ForeColor = Color.DarkGreen
                errorMsgLbl.ForeColor = Color.DarkGreen

                'sqlCmd.ExecuteNonQuery()
                MsgBox("You have successfully registered.")
                getConnect.Close()
            Else
            End If

I don't know the problem here.

im tring to insert a picture with some information to the database
when i run the progaram it will display the bellow message

NullRefaranceExprasion was Unhandle
Object reference not set to an instance of an object.

this is my full code
is there is any mistake?

Imports System.IO
Imports System.Configuration
Public Class Form8
    Dim A As String = ConfigurationSettings.AppSettings("Datapath")
    Dim con1 As New OleDb.OleDbConnection(A)
    Dim com111 As OleDb.OleDbCommand
    Dim dar As OleDb.OleDbDataReader
    Dim sqlrt As String




    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        TabControl1.SelectTab(TabPage1)
        Me.Hide()
        Form3.Show()

    End Sub

    Private Sub Form8_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Module1.connrtol()
    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        Dim fsreader As New FileStream(OpenFileDialog1.FileName, FileMode.Open, FileAccess.Read)
        Dim breader As New BinaryReader(fsreader)

        Dim imgbuffer(fsreader.Length) As Byte
        breader.Read(imgbuffer, 0, fsreader.Length)
        fsreader.Close()


        sqlrt = "INSERT INTO Employee(EId,DNo,FName,MName,LName,Address_Line1,Address_Line2,Address_Line3,NIC,DOB,Gender,Telephone,E_mail,Emp_Photo)VALUES(@dtaEId,@dtaDNo,@dtaFname,@dtaMName,@dtaLName,@dtaAddress1,@dtaAddress2,@dtaAddress3,@dtaNIC,@dataDOB,@dtaGender,@datTele,@dtaEmail,@dtaPhoto) "
        com1.CommandText = sqlrt
        com1.Connection = con1
        com1.Parameters.AddWithValue("@dtaEId", ECODEMasked1.Text)
        com1.Parameters.AddWithValue("@dtaDNo", DEPcodeMasked.Text)
        com1.Parameters.AddWithValue("@dtaFname", TextBox3.Text)
        com1.Parameters.AddWithValue("@dtaMName", TextBox4.Text)
        com1.Parameters.AddWithValue("@dtaLName", TextBox5.Text)
        com1.Parameters.AddWithValue("@dtaAddress1", TextBox6.Text)
        com1.Parameters.AddWithValue("@dtaAddress2", TextBox7.Text)
        com1.Parameters.AddWithValue("@dtaAddress3", TextBox8.Text)
        com1.Parameters.AddWithValue("@dtaNIC", EMasked2.Text)
        com1.Parameters.AddWithValue("@dataDOB", EDOBPicker1.Value.Date)
        com1.Parameters.AddWithValue("@dtaGender", ComboBox3.SelectedItem)
        com1.Parameters.AddWithValue("@datTele", ETELEMasked3.Text)
        com1.Parameters.AddWithValue("@dtaEmail", TextBox10.Text)
        com1.Parameters.AddWithValue("@dtaPhoto", imgbuffer)
        com1.ExecuteNonQuery()
        MsgBox("Successsfuly Inserted", MsgBoxStyle.Information)
        con.Close()


        'com1 = New OleDb.OleDbCommand("INSERT INTO Employee(EId,DNo,FName,MName,LName,Address_Line1,Address_Line2,Address_Line3,NIC,DOB,Gender,Telephone,E_mail,Emp_Photo)VALUES('" + ECODEMasked1.Text + "','" + DEPcodeMasked.Text + "','" + TextBox3.Text + "','" + TextBox4.Text + "','" + TextBox5.Text + "','" + TextBox6.Text + "','" + TextBox7.Text + "','" + TextBox8.Text + "','" + EMasked2.Text + "' ,'" + EDOBPicker1.Value.Date + "','" + ComboBox3.SelectedItem + "','" + ETELEMasked3.Text + "','" + TextBox10.Text + "'," + imgbuffer. + ")", con1)

        ''Dim com4 As New OleDb.OleDbCommand("INSERT INTO Employee(E-mail)VALUES('" + TextBox9.Text + "')", con1)
        'Debug.WriteLine(com1)
        'com1.ExecuteNonQuery()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        OpenFileDialog1.Filter = "Image File (* .jpg, *.bmp, *.png) | *.jpg; *.bmp; *.png| all files (*.*) | *.* "
        If OpenFileDialog1.ShowDialog <> Windows.Forms.DialogResult.Cancel Then
            PictureBox1.Image = Image.FromFile(OpenFileDialog1.FileName)
        End If
    End Sub

    Private Sub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk

    End Sub
End Class

Public conn As OleDbConnection = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0; Data Source= .\Adigrat.accdb;Persist Security Info=False")

I've been playing with a ListView and I'm struggling to get it to populated with info in a database. I'm hoping you may see something in my code that is creating the error.

        Dim con As New SqlConnection
        Dim cmd As New SqlCommand
        Dim rdr As SqlDataReader = cmd.ExecuteReader

        con.ConnectionString = ("Data Source=DON-PC;Initial Catalog=DataDesignSolutions;Integrated Security=True;User ID=DON-PC;Password=be67011;")
        Dim command As New SqlCommand("", con)
        command.CommandText = "SELECT * FROM PRINTERMAINT"
        lvPrinterSetup.Items.Clear()
        con.Open()
        rdr = cmd.ExecuteReader
        Do While rdr.Read()
            lvPrinterSetup.Items.Add(New ListViewItem({rdr(0), rdr(1), rdr(2), rdr(3), rdr(4)}))
        Loop
        rdr.Close()
        con.Close()

To clarify, there are 5 columns in this data table (PRINTERMAINT). They are "PrinterID", "PrinterName", "PrinterNumber", "PrinterLocation" and "PrinterAddress".

Currently, I've attempted to push up at least 3 records. While I've not confirmed they are there, I believe they are.

If you see something that may be creating the failure, please speak up. I'm not getting any kind of error message. I'm just not getting any data to display in the ListView.

Thanks for your help.

Don

I've been working for several hours trying to correctly write to a database file. Here are the parameters:

Database Name: DATADESIGNSOLUTIONS
Table Name: PRINTERMAINT
Column Names: PrinterID (primary Key), PrinterName, PrinterNumber, PrinterLocation, PrinterAddress

I've been working at this two ways: through the Visual Basic code and through SQL Server Management. I'm getting the same errors in both places. The error reads:

Invalid column name 'printName'.
Invalid column name 'printNo'.
Invalid column name 'printLoc'.
Invalid column name 'printAdd'.

Here's the code I've written"

Try
                con.ConnectionString = "Data Source=DON-PC;Initial Catalog=DATADESIGNSOLUTIONS;Integrated Security = True;User ID=DON-PC;Password=be67011;"
                con.Open()
                cmd.Connection = con
                cmd.CommandText = "INSERT INTO PRINTERMAINT(PrinterName, PrinterNumber, PrinterLocation, PrinterAddress) " & _
                "VALUES (printName, printNo, printLoc, printAdd)"
                cmd.ExecuteNonQuery()

            Catch ex As Exception
                MessageBox.Show("Error while inserting record on table..." & ex.Message, "Insert Records")
            Finally
                con.Close()
            End Try

By the way,

INSERT INTO PRINTERMAINT(PrinterName, PrinterNumber, PrinterLocation, PrinterAddress)

doesn't work in SQL Server Management either. It keeps telling me these are invalid column names.

Can someone point out to me what I'm doing wrong?

In advance, thanks for the help.

Don

I am trying to get a bunch of sub-keys and values from the registry in vb 2010 and i remember in vb6 this was quite easy. Can anyone share code to help? Or a link where I can go? I've been searching for nearly 8 hours on line and can't find anything I can use. The microsoft sites don't really help and most of the articles I find are for vb 7, or vb 6. Any help would be appreciated.

./x86

Within one form, I need to run a routine twice. Obviously, I can write the code twice in the two places it needs to run. Isn't there a way to write the routine one time and the call it in two places within the form? Would this be a "Function"?

What I need to write is a fairly large datareader routine. Assuming it is a Function, I'm not sure how to write the event correctly. I can use some help.

In advance, thanks.

Don

        'Get the parts cost from user.
        If Decimal.TryParse(txtParts.Text, decParts) Then
            'Validate the parts costs.
            If decParts >= 0 Then
                'display parts
                lblParts.Text = decParts.ToString("c")


                'Get the labor cost from user
                If Decimal.TryParse(txtLabor.Text, decLabor) Then
                    'Validate the labor cost.
                    If decLabor >= 0 Then
                        'add labor to the hidden service label
                        lblLabor.Text = decLabor.ToString("c")
                    Else
                        'Error:  labor prices are missing or negative
                        MessageBox.Show("Labor must be 0 or a positive number.")
                    End If
                Else
                    'Error: labor prices are missing or negative.
                    MessageBox.Show("Labor must be 0 or a positive number.")
                End If

                'Get the parts tax
                decTax = decParts * decTAX_RATE

                decServiceLabor = OilLube() + Flushes() + Misc() + decParts + decLabor
                decTotal = decServiceLabor + decParts + decTax

                lblServiceLabor.Text = decServiceLabor.ToString("c")
                lblTax.Text = decTax.ToString("c")
                lblTotal.Text = decTotal.ToString("c")

            Else
                'Error: parts prices are missing or negative
                MessageBox.Show("Parts must be 0 or a positive number.")
            End If
        Else
            'Error: parts prices are missing or negative.
            MessageBox.Show("Parts must be 0 or a positive number.")
        End If

Imports System.IO

Public Class Form1


    Dim colWeather As New Collection
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load


    'Add listbox items upon form load.
    With lstAltitudes.Items
        .Add("03000")
        .Add("06000")
        .Add("09000")
        .Add("12000")
        .Add("18000")
        .Add("24000")
        .Add("30000")
        .Add("34000")
        .Add("39000")
    End With
End Sub

Private Sub ReadStationsToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ReadStationsToolStripMenuItem.Click
    With ofdOpenFile
        .Title = "Open Stations File"
        .InitialDirectory = Application.StartupPath
        .Filter = "Text Files (*.txt)|*.txt"
        .ShowDialog()
    End With
    If ofdOpenFile.ShowDialog() = Windows.Forms.DialogResult.OK Then
        cboLocations.Items.Clear()
        Dim stationsFile As StreamReader = File.OpenText("stations.txt")
        Dim strStations As String = stationsFile.ReadLine()
        Do While stationsFile.Peek >= 0
            cboLocations.Items.Add(stationsFile.ReadLine)
        Loop
    cboLocations.Enabled = True
    End If
End Sub

Private Sub ReadWeatherToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ReadWeatherToolStripMenuItem.Click
    Dim inputFile As StreamReader 'Object Variable
    Dim strWeather As String 'Station line
    Dim strFileName As String = "weather.txt"
    Dim intCount As Integer 'Loop counter
    Dim key As Integer 'Key

    'OpenFileDialog
    With ofdOpenFile
        .Filter = "Text Files (*.txt)|*.txt" ' Opens text files only
        .InitialDirectory = Application.StartupPath() 'Initial directory
        .Title = "Open Weather File"
        .FileName = strFileName


        If .ShowDialog() = Windows.Forms.DialogResult.OK Then
            Try
                'Clears collection
                colWeather.Clear()

                'Opens the weather File
                inputFile = File.OpenText(strFileName)

                'Read each line after first seven lines
                For intCount = 8 To CInt(inputFile.Peek = -1)
                    strWeather = inputFile.ReadLine()
                Next
                inputFile.Close()

                '********ERROR IS IN THIS LINE BELOW**********
                'extract the first three characters as a key
                key = CInt((*strWeather*.Substring(1, 3)))

                'store the entire line in the collection
                colWeather.Add(inputFile.ReadLine(), CStr(key))


                'Enables listbox
                lstAltitudes.Enabled = True


            Catch
                MessageBox.Show("File Does not exist")
            End Try

        End If
    End With

End Sub

End Class

I've finally figured out how in WPF to template all my buttons so they all behave they way I want. Basically, I want all my buttons, when clicked, to drop down and to the right a few pixels then pop back up.

The problem is, I can't set the image on the buttons. I created this in Blend, but I can only seem to set the image inside Blend causing all the buttons to have the same image.

<Application x:Class="Application"
    xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
    xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
    StartupUri="Splash.xaml">
    <Application.Resources>
        <!-- Resources scoped at the Application level should be defined here. -->
        <Style TargetType="{x:Type Button}">
            <Setter Property="Template">
                <Setter.Value>
                    <ControlTemplate TargetType="{x:Type Button}">
                        <ControlTemplate.Resources>
                            <Storyboard x:Key="WhenClicked">
                                <DoubleAnimationUsingKeyFrames Storyboard.TargetProperty="(UIElement.RenderTransform).(TransformGroup.Children)[3].(TranslateTransform.X)" Storyboard.TargetName="rectangle">
                                    <EasingDoubleKeyFrame KeyTime="0" Value="2"/>
                                    <EasingDoubleKeyFrame KeyTime="0:0:0.2" Value="0"/>
                                </DoubleAnimationUsingKeyFrames>
                                <DoubleAnimationUsingKeyFrames Storyboard.TargetProperty="(UIElement.RenderTransform).(TransformGroup.Children)[3].(TranslateTransform.Y)" Storyboard.TargetName="rectangle">
                                    <EasingDoubleKeyFrame KeyTime="0" Value="2"/>
                                    <EasingDoubleKeyFrame KeyTime="0:0:0.2" Value="0"/>
                                </DoubleAnimationUsingKeyFrames>
                            </Storyboard>
                        </ControlTemplate.Resources>
                        <Grid>
                            <Rectangle x:Name="rectangle" RenderTransformOrigin="0.5,0.5">
                                <Rectangle.RenderTransform>
                                    <TransformGroup>
                                        <ScaleTransform/>
                                        <SkewTransform/>
                                        <RotateTransform/>
                                        <TranslateTransform X="1" Y="1"/>
                                    </TransformGroup>
                                </Rectangle.RenderTransform>
                            </Rectangle>
                            <ContentPresenter HorizontalAlignment="{TemplateBinding HorizontalContentAlignment}" RecognizesAccessKey="True" SnapsToDevicePixels="{TemplateBinding SnapsToDevicePixels}" VerticalAlignment="{TemplateBinding VerticalContentAlignment}"/>
                        </Grid>
                        <ControlTemplate.Triggers>
                            <EventTrigger RoutedEvent="Mouse.MouseDown" SourceName="rectangle">
                                <BeginStoryboard Storyboard="{StaticResource WhenClicked}"/>
                            </EventTrigger>
                            <Trigger Property="IsFocused" Value="True"/>
                            <Trigger Property="IsDefaulted" Value="True"/>
                            <Trigger Property="IsMouseOver" Value="True"/>
                            <Trigger Property="IsEnabled" Value="False"/>
                        </ControlTemplate.Triggers>
                    </ControlTemplate>
                </Setter.Value>
            </Setter>
        </Style>
    </Application.Resources>
</Application>

This is my Application.XML which changes all the buttons to a rectangle. The click events work great, but when I'm in the VS designer I cant set the image. Any hints?

bridgenumber = TextBox1.Text.ToString()
            bridgename = TextBox2.Text
            districtname = ComboBox1.Text
            sectionname = ComboBox2.Text
            roadsegmentname = ComboBox3.Text
            bridgetype = ComboBox4.Text
            bridgespan1 = TextBox3.Text
            bridgecondition = ComboBox5.Text
            acquisitionyear1 = ComboBox6.Text
            evaluationyear1 = ComboBox7.Text
            endofdesign1 = ComboBox8.Text
            bridgeasset1 = Label12.Text
            Dim str As String
            Dim conn As OleDbConnection = GetDbConnection()
            Dim cmd As OleDbCommand
            str = "INSERT INTO AdigratT (Bridge_Number,Bridge_Name,District_Name,Section_Name,Road_Segment_Name,Bridge_Type,Bridge_Span,Bridge_Condition,Acquisition_Year,Evaluation_Year,End_of_Design_Life_Year,Bridge_Asset_Value) VALUES (" &
                "'" & bridgenumber & "','" & bridgename & "','" & districtname & "','" & sectionname & "','" & _
                    roadsegmentname & "','" & bridgetype & "','" & bridgespan1 & "','" & bridgecondition & "','" & acquisitionyear1 & "','" & _
                    evaluationyear1 & "','" & endofdesign1 & "','" & bridgeasset1 & "')"
            'and CInt is used to convert number, to string
            cmd = New OleDbCommand(str, conn)
            Dim obj As Object = cmd.ExecuteNonQuery()
            If Not (obj Is Nothing) Then
                MsgBox("Record has been inserted sucessfully", vbInformation, "Bridge Asset Management")
            End If
            conn.Close()
            conn.Dispose()
            conn = Nothing
        End If
        filllistview()

When i omitted the fields(Bridge_Number,Bridge_Name...)it works perfect but when i tried to insert the fields an exption is thrown.
"The INSERT INTO statement contains the following unknown field name: 'Bridge_Number'. Make sure you have typed the name correctly, and try the operation again."
Do i just simply not write the field names?

I'm trying to perform a mysql database from vb.net. I use this code:

 Process.Start("C:\Program Files (x86)\MySQL\MySQL Workbench CE 5.2.44\mysqldump.exe", "--user=root --password=mypassword " _
                      & "--host=127.0.0.1 --databases MySQL databasename -r ""C:\GreatestHR Backup\BackUpDataBase.sql""")

When this code runs, a command prompt window opens and goes away immediately that i can't even read what it says. When I go to the output folder specified in the code, there is really BackupDatabase.sql but with only 0Kb, while the actual database has data in it. What could be the problem?

I repeat, I use mysql database in Mysql Workbenc 5.2.

F1 please.

please be informed that I used the same way in other applications and worked very fine.
I'm confused.

Thanks in advance.

        Dim SSQl As String = "select * from viruses_analysis"
        Dim SAdapter As New OleDbDataAdapter(SSQl, Con)
        Dim SDataSet As New DataSet
        Dim RowsCount As Integer
        Dim dsNewRow As DataRow

        If Con.State = ConnectionState.Closed Then
            Con.Open()
            SAdapter.Fill(SDataSet, "SavingSalaryDetails")
            RowsCount = SDataSet.Tables("SavingSalaryDetails").Rows.Count
            dsNewRow = SDataSet.Tables("SavingSalaryDetails").NewRow()

            dsNewRow.Item("VirDate") = dtDate.Value.Date
            dsNewRow.Item("VirDay") = dtDate.Value.Day
            dsNewRow.Item("VirMonth") = dtDate.Value.Month
            dsNewRow.Item("VirYear") = dtDate.Value.Year
            dsNewRow.Item("PatID") = PatID
            dsNewRow.Item("PatName") = PatName
            dsNewRow.Item("HIV") = cmbHIV.Text
            dsNewRow.Item("HBSAG") = cmbHBSAG.Text
            dsNewRow.Item("HCV") = cmbHCV.Text
            dsNewRow.Item("VDRL") = cmbVDRL.Text
            dsNewRow.Item("COST") = Val(txtCost.Text)
            dsNewRow.Item("PAID") = Val(txtPaidValue.Text)
            dsNewRow.Item("user") = "Admin"

            ' Apply the new row
            Dim cb As New OleDb.OleDbCommandBuilder(SAdapter)
            SDataSet.Tables("SavingSalaryDetails").Rows.Add(dsNewRow)
            SAdapter.Update(SDataSet, "SavingSalaryDetails")
            Con.Close()
            SDataSet.Reset()
            ClearControls()

        Else
            SAdapter.Fill(SDataSet, "SavingSalaryDetails")
            RowsCount = SDataSet.Tables("SavingSalaryDetails").Rows.Count
            dsNewRow = SDataSet.Tables("SavingSalaryDetails").NewRow()

            dsNewRow.Item("VirDate") = dtDate.Value.Date
            dsNewRow.Item("VirDay") = dtDate.Value.Day
            dsNewRow.Item("VirMonth") = dtDate.Value.Month
            dsNewRow.Item("VirYear") = dtDate.Value.Year
            dsNewRow.Item("PatID") = PatID
            dsNewRow.Item("PatName") = PatName
            dsNewRow.Item("HIV") = cmbHIV.Text
            dsNewRow.Item("HBSAG") = cmbHBSAG.Text
            dsNewRow.Item("HCV") = cmbHCV.Text
            dsNewRow.Item("VDRL") = cmbVDRL.Text
            dsNewRow.Item("COST") = Val(txtCost.Text)
            dsNewRow.Item("PAID") = Val(txtPaidValue.Text)
            dsNewRow.Item("user") = "Admin"

            ' Apply the new row
            Dim cb As New OleDb.OleDbCommandBuilder(SAdapter)
            SDataSet.Tables("SavingSalaryDetails").Rows.Add(dsNewRow)
            SAdapter.Update(SDataSet, "SavingSalaryDetails")
            Con.Close()
            SDataSet.Reset()
            ClearControls()
        End If

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        Dim str As String
        Dim conn As OleDbConnection = GetDbConnection()
        Dim cmd As OleDbCommand
        Dim selectedItem As Integer = ListView1.SelectedIndices(0)
        str = "DELETE FROM AdigratT WHERE Bridge_Number = '" & ListView1.Items(selectedItem).SubItems(0).Text & "'"
        cmd = New OleDbCommand(str, conn)
        cmd.ExecuteNonQuery()
        MsgBox("Record Removed Successfully")
        conn.Close()
    End Sub

I've been working on project for the past few days now, and have come across a bump, that i am unable to pass.
The project, when finished, will do the following:

1. Select DBF file from computer location (Default C:)
2. Import the database file into a DataGridView
3. Export the Datagridview into a file type of choice (For the meantime it will be an .XSLX file)

Now i know there are many software out there that do this already, however i require this one for unique capabilities within my workplace.

Currently, i can open a OpenFileDialog, select the file i need, and import it. However the Datagridview stays empty. and i recieve no error.

Im very interested to see why/how this happens - and hoping somebody can point out where i have gone wrong.

The following code executes when the file has been chosen and the user hits 'btnNext':

    If txtFileName.Text = "" Then
         MsgBox("Error! You must choose a file!")
         Return
    End If
    dbfiledir = ofdFileSearch.FileName.ToString()
    dbfilename = ofdFileSearch.SafeFileName.ToString().Split(".")(0)
    dbfilefolder = dbfiledir.Substring(0, 3)
    Me.Hide()
    MsgBox(dbfilefolder) 'The 3 messagebox's are a part of my testing.
    MsgBox(dbfilename)
    MsgBox(dbfiledir)
    frmStepTwo.visible = True

Now when frmStepTwo appears the following gets executed:

    Dim cnn As New System.Data.OleDb.OleDbConnection
    Dim da As New System.Data.OleDb.OleDbDataAdapter
    Dim theDataSet As New DataSet

    cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbfilefolder & ";Extended Properties=dBASE IV;User ID=Admin;Password=;"
    Try
        cnn.Open()
        da.SelectCommand = New System.Data.OleDb.OleDbCommand("select * from [" & dbfilename & "]", cnn)
        da.Fill(theDataSet)
        DataGridView1.DataSource = theDataSet
        DataGridView1.Refresh()
    Catch ex As Exception
        MsgBox("Error while connecting to databse." & vbNewLine & ex.Message & vbNewLine & ex.ToString)
    End Try

This is all well and good, however no results in the database. I did some research to see if it had anything to do with the connectionstring. And i beleive this is the correct statement.

Any help with this issue, is greatly appreciated.

Regards

Error 3 Type 'Microsoft.Office.InteropExcel.Application' is not defined. P:\ASG\VB Backup\Current Programs\ALL SUS TRAINING\WindowsApplication2\Form1.vb 5 23 WindowsApplication2

My code below is the header I've used since first release.

Imports Microsoft.Office.Interop
Imports Microsoft.Office.Interop.Excel

Public Class frmImportDoc
    Dim trFile As New Microsoft.Office.InteropExcel.Application
    Dim trSheet As New Microsoft.Office.InteropExcel.Worksheet

So far, I have tried deleting and re-importing all of the office references (both Office and Excel Object Libraries).

If anyone has any ideas on this, I would greatly appreciate the help!

I need to use Function keys within a form I've created. The problem I'm having is determing the correct routine to fire it off. Here's what I'm attempting to do:

In Form1 (actually called "OrderEntry2"), I want to give the user the option of keying in a part number into the "txbPartNo" textbox. Or, if they don't know the part number, I want to allow them to hit 'F5' to bring up Form2 (called "Popup_PartNo) to find that part number based on the beginning characters that they will enter on that form.

Likewise, should the user not know the beginning characters of the part number, I'd want to give them the option of finding the part number based on a word within the part description. Again I want to allow them to hit 'F5' to bring up Form2 (called "Popup_PartNo) to perform the routine.

My first inclination was to allow the user to give FOCUS to either "txbPartNo" textbox or "txbDescription" textbox to choose which way they want to search. So I wrote the following:

Public Sub txbPartNo_GotFocus(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txbPartNo.GotFocus
        If e.KeyValue = Keys.F5 Then
            FuncKeysModule(e.KeyValue)
            e.Handled = True
        End If

    End Sub

    Public Sub txbDesc_GotFocus(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txbDesc.GotFocus
        If e.KeyValue = Keys.F5 Then
            FuncKeysModule(e.KeyValue)
            e.Handled = True
        End If

    End Sub

    Public Sub FuncKeysModule(ByVal value As Keys)


        'Check what function key is in a pressed state, and then perform the corresponding action.
        Select Case value
            Case Keys.F5
                Dim searchtype As Integer
                If txbPartNo.Focused = True Then
                    Popup_PartNumbers.Label1.Text = "Enter the beginning characters of the Part Number to search"
                    searchtype = 1
                    txbSearchType.Text = searchtype
                End If
                If txbDesc.Focused = True Then
                    Popup_PartNumbers.Label1.Text = "Enter a word from the Part Number Description to search"
                    searchtype = 2
                    txbSearchType.Text = searchtype
                End If
                Popup_PartNumbers.ShowDialog()
        End Select

    End Sub

As it stands right now, 'F5' doesn't bring up the Popup_PartNumbers form.

So, several questions:

1) Can I use this one function key ('F5') for both routines (albeit I'm trying to choose one or the other)?
2) Am I using the correct event (GotFocus) to fire this of?
3) Is the code "If txbDesc.Focused = True Then" being correctly used (see above)?
4) If I'm using the wrong events, can you suggest what would be better to use?

In advance, thanks for your help.

Don

I'm declaring a variable in one form that I need to make available in a second form. My code in Form1 looks like this:

Public Sub FuncKeysModule(ByVal value As Keys)

        Select Case value
            Case Keys.F5
                Dim searchtype As Integer
                If txbPartNo.Focused = True Then
                    Popup_PartNumbers.Label1.Text = "Enter the beginning characters of the Part Number to search"
                    searchtype = 1
                End If
                If txbDesc.Focused = True Then
                    Popup_PartNumbers.Label1.Text = "Enter a word from the Part Number Description to search"
                    searchtype = 2
                End If
                Popup_PartNumbers.ShowDialog()
        End Select

    End Sub

The variable "searchtype" (1 or 2) needs to be read in Form2 to run either one of two routines. How should this be written in Form1 and then how do I read it in Form2.

In advance, thanks for your help.

Don

I'm having an issue with SQL Server that has me baffled. I need help.

When I originally loaded SQL Server 2008 Express and created my database, I called it "DataDesignSolutions". The tables were created through VB Studio 2010 Express. It's path was "C:\User\Don\Documents\DataDesignSolutions.mdf". I'm not sure how, but somewhere along the way that path name stuck.

I assumed that was an easy fix. So through SQL Server Manager 2008 Express, I changed the name to "DataDesignSolutions".

Now here's the problem: When testing my program that has a link to this database, it's failing saying the password is incorrect. Assuming the password had somehow been changed, I opened SQL Server manager and find there is a "second" database. The interesting thing is, this "database" is empty. There is absolutely nothing in it. Further, it's name is "DataDesignSolutions". The database that has all the tables is now called "C:\User\Don\Documents\DataDesignSolutions.mdf". Can someone tell me what's going on? How do I fix this?

In advance, thanks for you help.

Don

I'm thinking I may want to use the Date data type in SQL Server. However I'm still very unclear how to read, write and compare using this kind of data type. I realize this has a time component which is of no importance right now (it will be later though). Can someone help me understand how to use this? Here are some of my question:

1) is there a way to create a "null" or blank date?
2) Visual Basic has the Today.Date commands. I'll need to compare a date created by the user to what will be in the date field of the data table (formated as a date data type). How is this done?
3) If I have the user enter the date manually, in what format does it need to be in? yyyymmdd?

Feel free to elaborate. I clearly don't understand enough about this kind of data type to really ask good questions.

Thanks,

Don

The table tblpayments has columns (studentid,class and some contributions/payments names) I want to filter these contirbution/payments because some are valid for some classes only.

I have tried the following codes:

        SQL = "SELECT ( SELECT tblstudents.FirstName,tblstudents.MiddleName,tblstudents.Surname, tblpayments.* " _
                & "FROM tblstudents INNER JOIN tblpayments ON " _
                & "tblpayments.studentid = tblstudents.studentid " _
                & "WHERE tblpayments.class = @class AND tblpayments.studentid= @studentid"

but this did not deal with the first WHERE condition (tblpayments.class = @class), it brought results regardless of the @class.
I tried this code:

       SQL = "SELECT (SELECT tblstudents.FirstName,tblstudents.MiddleName,tblstudents.Surname " _
                & "FROM tblstudents WHERE tblpayments.studentid= @studentid) " _
                & "(SELECT tblpayments.* " _
                & "WHERE tblpayments.class = @class)"

but VB said there was an error with the code.
I tried this solution from Daniweb to no avail.

I will appreciate any help please.
Thanks.

I'm trying to bring up a table of data using a select query to create a DataSet that I'm displaying in a datagrid. When I use

SELECT * FROM myTable

it works fine, but when I only want the specific columns

SELECT URN, 'CanX Reason', 'Date to take effect?' FROM myTable

it doesn't.

The URNs are displaying fine but the other columns are not

    URN         Expr1001        Expr1002
    221203      CanX Reason     Date to take effect?
    224774      CanX Reason     Date to take effect?
    225311      CanX Reason     Date to take effect?
    221184      CanX Reason     Date to take effect?
    222699      CanX Reason     Date to take effect?
    223932      CanX Reason     Date to take effect?

Is there a way to correct this behaviour?

wonder where i got this error. it got error after it reads the runcompleted process. here is my code

Hi Everyone,

Hope you could help me with this. I got an exception error saying "Exception has been thrown by the target of an invocation."

here is my code:

Imports System.Data.SqlClient
Imports System.Data
Imports System.ComponentModel
Public Class Form1

    Dim m_countTo As Integer = 0
    Dim bolUpc As Boolean
    Dim cn As SqlConnection

    Private WithEvents m_bg As New BackgroundWorker

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Label3.Text = ""
    End Sub
    Private Sub txtcode_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtcode.TextChanged
        bolUpc = False
        If bolUpc = False Then
            Me.dgv1.DataSource = Nothing
            Me.btnSelectAll.Text = "Select All"
            Me.btnSelectAll.Enabled = False
            Label3.Text = ""
        End If
    End Sub

    Private Sub txtcode_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtcode.KeyDown


        If e.KeyCode = 13 Then

            Try

                cn = New SqlConnection(GetConnectionString)
                Dim SQL As String = "Select vp.upc from vendor_products vp join vendor_profile v on vp.vendor_id = v.id where vp.id not in (Select id from [192.168.180.104].Store.dbo.Vendor_products) and v.code = '" & txtcode.Text & "'order by vp.upc "


                m_bg.RunWorkerAsync(SQL)




            Catch ex As Exception
                Me.m_bg.CancelAsync()
                MsgBox(ex.Message)
            End Try
            btnSelectAll.Enabled = True

        End If
    End Sub

    Private Sub OpenSqlConnection()

        Dim connectionstring As String = GetConnectionString()

        Using connection As New SqlConnection(connectionstring)
            connection.Open()
        End Using

    End Sub

    Private Function GetConnectionString() As String

        Return "Data Source = (local);Database=Store;User Id=sa;Asynchronous processing = true;"
    End Function

    Private Sub btnSelectAll_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSelectAll.Click
        Dim intI As Integer
        Dim ctl As New Control

        intI = 0

        If btnSelectAll.Text = "Select All" Then
            For Each row As DataGridViewRow In dgv1.Rows
                If row.Cells("check").Value = False Then
                    dgv1.Rows(intI).Cells(0).Value = True
                    intI += 1
                End If
            Next
            btnSelectAll.Text = "Unselect All"
            Exit Sub
        Else
            For Each row As DataGridViewRow In dgv1.Rows
                If row.Cells("check").Value = True Then
                    dgv1.Rows(intI).Cells(0).Value = False
                    intI += 1
                End If
            Next
            btnSelectAll.Text = "Select All"
        End If
    End Sub

    Private Sub m_bg_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles m_bg.DoWork

        Dim SQL As String = e.Argument.ToString

        OpenSqlConnection()

        Dim dt As New DataTable


        Using da As SqlClient.SqlDataAdapter = New SqlClient.SqlDataAdapter(SQL, cn)


            Dim count As Integer = da.Fill(dt)

            For i As Integer = 0 To count

                If Me.m_bg.CancellationPending Then
                    e.Cancel = True
                    Exit For
                End If

                System.Threading.Thread.Sleep(250)
                Me.m_bg.ReportProgress(CInt((i / count) * 100))
                SetLabeltext_Threadsafe(Me.Label2, FormatPercent(i / count, 2))

            Next

        End Using
        e.Result = dt

    End Sub

    Private Sub m_bg_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles m_bg.ProgressChanged
        Me.ProgressBar1.Value = e.ProgressPercentage
    End Sub

    Private Sub m_bg_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles m_bg.RunWorkerCompleted
        'If e.Cancelled Then
        '    Me.Label2.Text = "Cancelled"
        'Else

        Dim dt As DataTable = e.Result

        dgv1.DataSource = dt

        'Me.Label2.Text = "Completed"
        'End If

    End Sub

    Delegate Sub SetLabeltext_Delegate(ByVal [Label] As Label, ByVal [text] As String)

    Private Sub SetLabeltext_Threadsafe(ByVal [Label] As Label, ByVal [text] As String)

        If [Label].InvokeRequired Then
            Dim MyDelegate As New SetLabeltext_Delegate(AddressOf SetLabeltext_Threadsafe)
            Me.Invoke(MyDelegate, New Object() {[Label], [text]})
        Else
            [Label].Text = [text]
        End If

    End Sub

End Class

Public Class Form1

    Dim drag As Boolean
    Dim mousex As Integer
    Dim mousey As Integer

    Private Sub CloseButton1_Click(sender As Object, e As EventArgs) Handles CloseButton1.Click
        System.Environment.Exit(1)
    End Sub

    Private Sub MaximiseButton1_Click(sender As Object, e As EventArgs) Handles MaximiseButton1.Click
        If Me.WindowState = FormWindowState.Normal Then
            Me.Height = Screen.PrimaryScreen.WorkingArea.Height
            Me.Width = Screen.PrimaryScreen.WorkingArea.Width
            Me.Left = (Screen.PrimaryScreen.WorkingArea.Width - Me.Width) / 2
            Me.Top = (Screen.PrimaryScreen.WorkingArea.Height - Me.Height) / 2
        Else
            Me.WindowState = FormWindowState.Normal
        End If
    End Sub

    Private Sub MinimiseButton1_Click(sender As Object, e As EventArgs) Handles MinimiseButton1.Click
        Me.WindowState = FormWindowState.Minimized
    End Sub

    Private Sub DesireWB1_Click(sender As Object, e As EventArgs) Handles DesireWB1.Click
        Form2.Show()
    End Sub

    Private Sub PictureBox1_MouseDown() Handles PictureBox1.MouseDown
        drag = True
        mousex = Windows.Forms.Cursor.Position.X - Me.Left
        mousey = Windows.Forms.Cursor.Position.Y - Me.Top
    End Sub

    Private Sub PictureBox1_MouseMove() Handles PictureBox1.MouseMove
        Me.Top = Windows.Forms.Cursor.Position.Y - mousey
        Me.Left = Windows.Forms.Cursor.Position.X - mousex
    End Sub

    Private Sub PictureBox1_MouseUp() Handles PictureBox1.MouseUp
        drag = False
    End Sub
End Class

After asking what seems to be a thousand questions, clearly there is so much more to learn about Visual Basic. So this prompts my "Today's Question":

Are there some good online courses or classes at a local college that I can take?

By the way..... I live in the north metro area of Atlanta.

I have taken 2 continuing education courses online through the local college here. Both were very good at introducing Visual Basic programming and gave me a reasonable understanding of how things work. What it didn't do is explain the "how to's" and "why's" of things such as what a user control is and what a module does, and how to write the "background" code that can be used in every form of the program.

To put my question another way, I want greatly to learn more. I've tried to look online for such courses or colleges. But I'm not sure what exactly to look for. Consequently, I'll appreciate greatly your input.

Thanks again for all ya'll do.

Don

Private Sub btnDivide_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
dim x as integer
dim y as integer
dim tbox as integer

tbox = (Textbox1.Text)
x = (y / tbox) * 100

if (x >= 50) then
'do something

end if
End Sub

when i press button it keeps saying that conversion from string "" to type 'Integer' is not valid!
how do i fix it?
i've tried
tbox = CInt(Textbox1.Text)
and
tbox = Ctype(Textbox1.Text, Integer)
but its not working :(

        Dim importsFileList As New ArrayList
        Dim sFile As String
        Dim extension As String
        Dim newExtension As String
        Dim file As IO.FileStream
        Dim oXL As Excel.Application
        Dim oWB As Excel.Workbook

        sFile = Dir$("C:\Users\filePath" & "\*.*", vbDirectory)
        Do Until sFile = vbNullString
            If sFile <> "." Then ' relative path meaning this directory
                If sFile <> ".." Then ' relative path meaning parent directory 
                    extension = IO.Path.GetExtension(sFile)
                    If extension = ".xls" Or extension = ".xlsx" Then
                        newExtension = IO.Path.ChangeExtension(sFile, ".csv")
                        oXL = CreateObject("Excel.Application")
                        oXL.Visible = False
                        oXL.UserControl = False
                        oWB = oXL.Workbooks.Open("C:\Users\filePath\" & sFile)
                        oWB.SaveAs("C:\Users\filePath\" & newExtension)
                        oWB.Close()
                        oXL.Quit()
                        oWB = Nothing
                        oXL = Nothing
                        'file = IO.File.Create("C:\Users\filePath\" & newExtension)
                        'file.Close()
                        'IO.File.Delete("C:\Users\filePath\" & sFile)
                        'My.Computer.FileSystem.RenameFile("C:\Users\filePath\" & sFile, newExtension)
                    End If
                End If
            End If
            sFile = Dir$()
        Loop

        sFile = Dir$("C:\Users\filePath" & "\*.*", vbDirectory)
        Do Until sFile = vbNullString
            If sFile <> "." Then ' relative path meaning this directory
                If sFile <> ".." Then ' relative path meaning parent directory 
                    extension = IO.Path.GetExtension(sFile)
                    If extension = ".csv" Then
                        importsFileList.Add(sFile)
                    End If
                End If
            End If
            sFile = Dir$()
        Loop

        For Each importedFile In importsFileList
            ImportFiles.Items.Add(importedFile)
        Next

Does anyone have any other suggestions?

wondered if someone could help please?
in my customer form i have managed to pull in the data from the table to the right txtboxes, and i can move forwards and backwards ("happy days") but now im trying to update a record, this one has seem to thrown me, because in a different form (login) i managed to pull data from lbls and insert it into the database, i thought it would be similar, but im guessing im wrong lol
here's my code
i did try and follow another users problem (INSERT ERROR) but i couldnt follow his code clearly
any ideas?

 Private Sub btn_Update_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Update.Click
        Dim con As New OleDb.OleDbConnection                     '"con" variable holds the Connection Object
        Dim dbProvider As String                                 'creates provider variable
        Dim dbSource As String

        dbProvider = "Provider = Microsoft.ACE.OLEDB.12.0;"      'specifies the provider technology
        dbSource = "Data Source = C:\Users\ComputerFirstAde\Desktop\Computer First Ade VB.net\Computer First Ade\Computer First Ade\CFA_DB.mdb" 'specifies the path to the Database

        con.ConnectionString = dbProvider & dbSource             'creates the connection string

        'ds.Tables.Add(dt)

        con.Open()

        Dim Connection As New OleDb.OleDbConnection("Provider = Microsoft.ACE.OLEDB.12.0" & _
        "Data Source = C:\Users\ComputerFirstAde\Desktop\Computer First Ade VB.net\Computer First Ade\Computer First Ade\CFA_DB.mdb")

        'Connection.Open()

        Dim InsertCommand As New OleDb.OleDbCommand("UPDATE INTO tbl_Customers(cust_Company)" & _
                "VALUES(@custCompany)", con)

        InsertCommand.Parameters.Add(New OleDb.OleDbParameter("@cust_Company", Cust_CompanyTextBox.Text))

        InsertCommand.ExecuteNonQuery()
        con.Close()

        lbl_Cust_Form.Text = "Updated Record"

    End Sub

I'm taking a different approach to importing the csv to access and trying to import the csv to the dataset.

I've found the following code but it's giving me an error

Dim fileToOpen As String
        Dim da As New OleDbDataAdapter()
        Dim ds As New DataSet()

        fileToOpen = ImportFiles.SelectedItem

        If fileToOpen <> "" Then
            Dim cn As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\myFilePath\;Extended Properties=" & _
            ControlChars.Quote & "Text;HDR=YES;FMT=Delimited" & ControlChars.Quote)
            Dim cmd As OleDbCommand = New OleDbCommand("SELECT * FROM C:\Users\myFilePath\" & fileToOpen, cn)

            cn.Open()

            da.SelectCommand = cmd
            da.Fill(ds)

            cn.Close()

            Me.DataGridView1.DataSource = ds.Tables(0)
        Else
            MsgBox("Please choose a file to open from the list below!")
        End If

The error: Syntax error in FROM clause

I can't figure out why it is producing this error.

it will display the INSERT INTO Syntax error messaage
any one can help me....

wondering if someone could help me please, this is probably easy for most, but im a beginner :)

i want to make an array from my dataset

dataset is from (tbl_Employees)

i want the array to hold 3 columns/items = item 1 (Username), item 2 (password) item 3 (Position)

i think i pretty much have the loop figgered out in my head, but i cant seem to fathom on how to build the array, any ideas?

many thanks guys

I'm trying to change the file extensions of some excel files to csv and add the file names to a list box. The box is coming up blank however.

My code is as follows:

Private Sub Project_Load(sender As Object, e As EventArgs) Handles Me.Load

        Dim importsFileList As New ArrayList
        Dim sFile As String
        Dim extension As String
        Dim newExtension As String

        sFile = Dir$("C:\Users\filepath" & "\*.*", vbDirectory)
        Do Until sFile = vbNullString
            If sFile <> "." Then ' relative path meaning this directory
                If sFile <> ".." Then ' relative path meaning parent directory 
                    extension = IO.Path.GetExtension(sFile)
                    If extension = ".xls" Or extension = ".xlsx" Then
                        Dim fInfo As IO.FileInfo = New IO.FileInfo(sFile)
                        newExtension = IO.Path.ChangeExtension(sFile, ".csv")
                        fInfo.MoveTo(newExtension)
                    End If
                End If
            End If
            sFile = Dir$()
        Loop

        sFile = Dir$("C:\Users\filepath" & "\*.*", vbDirectory)
        Do Until sFile = vbNullString
            If sFile <> "." Then ' relative path meaning this directory
                If sFile <> ".." Then ' relative path meaning parent directory 
                    extension = IO.Path.GetExtension(sFile)
                    If extension = ".csv" Then
                        importsFileList.Add(sFile)
                    End If
                End If
            End If
            sFile = Dir$()
        Loop

        For Each importedFile In importsFileList
            ImportFiles.Items.Add(importedFile)
        Next

Where am I going wrong?

Thanks in advance for any suggestions offered.

No value given for one or more required parameters.
the it highlights the da.fill(dt)

Dim da As New OleDbDataAdapter("Select * from Government_BAU where Months like January", con)
        da.Fill(dt)

In reviewing the data in one of my SQL Server tables, I noticed that my nchar or nvarchar fields have additional spaces added to the end of the record. Is there a way to stop this? Should I be using a different data type?

In advance, thanks for your responses.

Don

Greetings!

Is this doable? I have a textbox for email address entry, now, when I type the email address and reach the @ character, there will be a dropdown suggesting common domains like msn.com,hotmail.com, aol.com, yahoo.com and etc.

I hope you can help me. Thanks in advance.

thanks

I have been working on a time clock application, and I'm trying to be able to select an employee from the DataGridView and populate their information into text boxes. I have done some research and what I have found works . . . sometimes. So sometimes when I click on an employee it will show their name in the box other times I have to click around alot to do it. Any suggestions on a better way to do this?

~Scarlett~
Here's my code:

  Private Sub dgvEmployee_CellContentClick(sender As System.Object, e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgvEmployee.CellContentClick

        Dim dgvRow As DataGridViewRow
        For Each dgvRow In dgvEmployee.SelectedRows
            txtName.Text = dgvRow.Cells("Employee").Value.ToString
        Next

    End Sub

I need to know why this isn't working... I have tried many different things but still can't get it to work. (And, yes, I have replaced the MYPASSHERE with my password but it always says I have not registered yet...)

Imports System.Net
Imports System.IO
Imports System.Text
Public Class Form1

    Dim logincookies As CookieContainer

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim PostData As String = "action=do_login&url=http%3A%2F%2Fhighqualityforums.com%2F&quick_login=1&quick_username=yorkiebar15&quick_password=MYPASSHERE&submit=Login&quick_remember=yes"
        Dim TempCookies As New CookieContainer 'Temp Cookies
        Dim Encoding As New UTF8Encoding 'Declaring it
        Dim ByteData As Byte() = Encoding.GetBytes(PostData) 'Converting since it can't read VB.Net strings

        Dim postReq As HttpWebRequest = DirectCast(WebRequest.Create("http://highqualityforums.com/member.php"), HttpWebRequest)
        postReq.Method = "POST" 'The method is to "POST" the Login Data
        postReq.KeepAlive = True 'No timeouts
        postReq.CookieContainer = tempCookies 'Use Temp Cookies, you'll see why later.
        postReq.ContentType = "application/x-www-form-urlencoded" 'It's an HTML Form
        postReq.Referer = "http://highqualityforums.com/"
        postReq.UserAgent = "Mozilla/5.0 (Windows; U; Windows NT 6.1; ru; rv:1.9.2.3) Gecko/20100401 Firefox/4.0 (.NET CLR 3.5.30729)"
        postReq.ContentLength = ByteData.Length 'Counts ByteData Length

        Dim postreqstream As Stream = postReq.GetRequestStream()
        postreqstream.Write(ByteData, 0, ByteData.Length)
        postreqstream.Close()
        Dim postresponse As HttpWebResponse

        postresponse = DirectCast(postReq.GetResponse(), HttpWebResponse)
        TempCookies.Add(postresponse.Cookies) 'We want those cookies
        logincookies = TempCookies ' Will let us browse with it later
        Dim postreqreader As New StreamReader(postresponse.GetResponseStream())

        Dim ThePage As String = postreqreader.ReadToEnd 'We now have a string with the page.

        WebBrowser1.DocumentText = ThePage
    End Sub
End Class

      Private Sub Add_History()

        Dim cb5 As New OleDb.OleDbCommandBuilder(da5)
        Dim dsNewRow5 As DataRow

        Dim sql5 As String
        sql5 = "SELECT * FROM tblHistory order by ID"

        dsNewRow5 = ds5.Tables("History").NewRow()

        ds5.Tables("History").Rows.Add(dsNewRow5)

        da5.Update(ds5, "History")

        da5.Dispose()
        ds5.Clear()
        da5 = New OleDb.OleDbDataAdapter(sql5, con)
        da5.Fill(ds5, "History")

        da5.Update(ds5, "History")

        New_hist()
errr:
    End Sub

      Private Sub New_hist()

        Dim cb5 As New OleDb.OleDbCommandBuilder(da5)
        Dim x
        On Error GoTo errr

        ds5.Tables("History").Rows(Hist_Rows - 1).Item(6) = contactID
        ds5.Tables("History").Rows(Hist_Rows - 1).Item(1) = DateTime.Now
        ds5.Tables("History").Rows(Hist_Rows - 1).Item(3) = username

da5.Update(ds5, "History")

    End Sub

Its the da5.Fill(ds5, "History") that takes about 10 seconds to fill. If there are no new updates, ie I dont use

            dsNewRow5 = ds5.Tables("History").NewRow()

            ds5.Tables("History").Rows.Add(dsNewRow5)

            da5.Update(ds5, "History")

then it fills instantly. It seems that when you want to add a record the fill takes forever.

Anyone got any ideas how I can speed this process up.

I have already removed the one datatable that was within this dataset. I now want to eliminate this completely. How do I go about doing this? I haven't seen a "delete" option when right-clicking that specific dataset.

Help!!

In advance, thanks for the help.

Don

If e.KeyChar = Microsoft.VisualBasic.ChrW(keys.enter) Then
    MsgBox("Enter key is pressed")
End If

but what i want to do is that i want to make the keyword "keys.enter" to become a variable name so that the whole code can be called upon as a subroutine to handle all types of letter being pressed by the user so that i dont have to repeat the whole code for the keys needed. Thanks in advance

However I'm having some trouble with the following scenario. I have a 'tblUser' table with fields: Name, Name_id, Firstname and Surname. I have a tblAsset' table with fields: 'AssetNo' and 'Description'. On form I have 4 controls: 2 x cbo and 2 x txt. Now, there is no direct link between Asset and User tables, because our administrators don't put the current user User IDs or names in the Asset container in AD!...at least not in their own field... Just some daft free text field called 'Description', which has the current user of an asset as part of the description string, eg "SOH-12345, Room 2b, Melanie Jones". So what I successfully did in access was use a LIKE statement to get (eg) all the 'Jones' entries in a combobox (using the Surname field on the form) then select the correct one, and use the related AssetNo. (The reason for this was so I could use the resulting AssetNo as the value to remote control a PC using Remote Access/MSRA in Windows). So basically the SQL says something like SELECT tblAsset.Description WHERE Description LIKE "" & txtSurname & "".

I'm a bit stumped, and I guess it's a lack of knowledge about creating a dataset from this query, i'm not sure. What I need to do is use cboUser to select a user (Eg Mel Jones), that user's Surname appears in txtSurname. Then cboUserAsset needs to display all the 'Jones's' entries in the 'Description' field of the Asset table, and I select the one that says "SOH-54321, Room 2b, Mel Jones". When I select that, txtAsset is populated with "SOH-54321", and I can use that to run a connect command in MSRA.

So it looks like cboUser would fire off the SQL string and populate cboUserAsset, but I'm not sure how to get that data in that control. Sorry this is long-winded. I'm looking all over, and will continue to, but can anyone shed some light on what I'm not 'getting'? Many Thanks.

(For Info, I use VB express 10, and connect to my tables using the programme datasources function.)

        .Combo_Main_AM.Items.Clear()
        Dim da As New OleDbDataAdapter("Select * from Table1", con)
        da.Fill(dt)
        For Each myRow In dt.Rows
            .Combo1.Items.Add(myRow.Item(0))
        Next

so it will add up the combo1

Jessie
James
Nick

now the question is how can i get the that name to be used in my query?
using loop?
i will use it to be the name of my table i want to search.

da.fill(dt)
Dim da As New OleDbDataAdapter("Select * from dt", con)
    'Code here
Next

I hope you understand what i mean.

My problem: I am currently developing a toolkit that needs the user to insert information and put it into a database system. After that, I need to extract and analyse the data and present it in graphical form (pareto, histogram, and pie chart) also in VB.

I am not familiar with VB, and based from what I've studied and from my research, there are few options. So, my questions are,

a) Is it possible for me to use VB stand alone as the database and perform all the required actions needed using it?

or,

b) is it better to use Excel and link it to my VB program?

or,

c) use Microsoft Access instead, and link it to my VB program?

Please help me on this matter. Thank you in advance.