Visual Basic

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

        Try
            OpenConnection()
            qry = "SELECT * FROM customer"
            dbcommand.Connection = DbConn.conn
            dbcommand.CommandText = qry
            dbadapter.SelectCommand = dbcommand
            dbadapter.Fill(stdata, "Customer")

            Dim objRpt As New CustomerRpt
            objRpt.SetDataSource(stdata.Tables("Customer"))
            rptViewer.ReportSource = objRpt
            rptViewer.RefreshReport()
        Catch ex As Exception
            MsgBox(ex.Message)
        Finally
            CloseConnection()
        End Try

    End Sub

Public Class Form1
    Dim cursorX, cursorY As Integer
    Dim dragging As Boolean
    Dim labelno As Integer = 1

    Private Sub Control_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label1.MouseDown
        dragging = True
        cursorX = e.X
        cursorY = e.Y


        Dim label2 As New Label
        labelno += 1
        label2.Location = New Point(Label1.Location.X, Label1.Location.Y)
        label2.Name = "Label" + labelno.ToString
        label2.Text = label2.Location.ToString
        Me.Controls.Add(label2)

    End Sub

    Private Sub Control_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label1.MouseUp
        dragging = False
    End Sub

    Private Sub control_MouseMOve(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label1.MouseMove
        If dragging Then
            Dim ctrl As Control = CType(sender, Control)
            ctrl.Left = (ctrl.Left + e.X) - cursorX
            ctrl.Top = (ctrl.Top + e.Y) - cursorY
            ctrl.BringToFront()
        End If
    End Sub

If you have clarification please inform me.



Thanks

-----------------------------
| ARIZONA               | \/ | <-- Autocomplete Combobox (Autocompletemode = Suggest)
---------------------------------------------------------
| ARIZONA		|     	16	|	D16	|
| ALBAMA		|	18	|	A28	| <-- 3 Column Dropdown
| ALASKA		|	12	|	C34	|
---------------------------------------------------------

Private Sub LoadCombo()
        Dim dcommand As New MySqlCommand
        Dim dadapter As New MySqlDataAdapter
        Dim stdata As New DataTable
        qry = "SELECT * FROM statedetails"
        Try
            OpenConnection()
            dcommand.Connection = conn
            dcommand.CommandText = qry
            dadapter.SelectCommand = dcommand
            dadapter.Fill(stdata)
            
            Dim dbreader As MySqlDataReader = dcommand.ExecuteReader
            While dbreader.Read
                For i = 0 To stdata.Rows.Count - 1
                    cmb.Items.Add(stdata.Rows(i).Item("State"))
                    cmb.Items.Add(stdata.Rows(i).Item("OfficeId"))
                    cmb.Items.Add(stdata.Rows(i).Item("CityId"))
                Next
                cmb.DisplayMember = "State"
                cmb.ValueMember = "StateId"
            End While
            cmb.AutoCompleteMode = AutoCompleteMode.Suggest
            cmb.AutoCompleteSource = AutoCompleteSource.CustomSource
        Catch ex As Exception
            MsgBox(ex.Message)
        Finally
            CloseConnection()
        End Try
    End Sub

-----------------------
| ARIZONA        | \/ | <-- Autocomplete Combobox (Autocompletemode = Suggest)
-----------------------
| ARIZONA	|
|16		|
|D16		|
| ALBAMA	|
|18		| <-- 1 Column Dropdown
|A28		|
| ALASKA	|
|12		|
|C34		|
-----------------

Dim s As New StreamReader(fiTemp.FullName, System.Text.Encoding.ASCII)
Dim vba As String = s.ReadToEnd()
s.Close()

Dim s1 As New StreamWriter(fiTemp.FullName, False, System.Text.Encoding.ASCII)
s1.Write(newvba)
s1.Close()

(DataType : Date /*Primary Key*/)

(DataType : DOUBLE(10,3) )

Private Sub FormMdi_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim d As Date = Date.Today
    qry = "SELECT * FROM Rate WHERE CurrentDate =" & d & ""
    Try
        OpenConnection()
        Dim dbcommand As New MySqlCommand
        dbcommand.Connection = conn
        dbcommand.CommandText = qry
        Dim dbread As MySqlDataReader = dbcommand.ExecuteReader
        While (dbread.Read())
            If dbread("CurrentDate") = "" Then
                Dim f As New FormRate '// This is the form associated with the table
                f.Show()
                f.Owner = Me
            End If
        End While
    Catch ex As Exception
        MsgBox(ex.Message)
    Finally
        CloseConnection()
    End Try
End Sub

Finally
            CloseConnection()

While (dbread.Read())

If dbread("CurrentDate") = "" Then
                    Dim f As New Rate '// This is the form associated with the table
                    f.Show()
                    f.Owner = Me
                End If

Private Sub LblCoCau_Err_Click(sender As System.Object, e As System.EventArgs) Handles LblCoCau_Err.Click
       Dim newThread As New Thread(New ThreadStart(AddressOf ThreadMethod))
       newThread.SetApartmentState(ApartmentState.STA)
       newThread.Start()
   End Sub
   Private Shared Sub ThreadMethod()
       Dim dlg As New OpenFileDialog()
       dlg.ShowDialog()
       MessageBox.Show(dlg.FileName)
   End Sub

Attempted to read or write protected memory. This is often an indication that other memory is corrupt.