Visual Basic

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    Dim acsconn As OleDbConnection = New OleDbConnection _
    ("provider=SQLOLEDB;data source=DBserver;database=myDB;user ID=user;password=mypassword;")
    acsconn.Open()
    If acsconn.State = ConnectionState.Open Then
        MsgBox("Connected")

        Dim strsql As String = "insert into tran_log(hw_name,[type],[status],wh_function,[user],check_out_date)values(?,?,?,?,?,?);"

        Dim objcmd As New System.Data.OleDb.OleDbCommand(strsql, acsconn) ' the oledbcommand

        With objcmd
            .Parameters.AddWithValue("@ComboBox1", ComboBox1.SelectedItem)
            .Parameters.AddWithValue("@TextBox1", TextBox1.SelectedText)
            .Parameters.AddWithValue("@ComboBox2", ComboBox2.SelectedItem)
            .Parameters.AddWithValue("@ComboBox3", ComboBox3.SelectedItem)
            .Parameters.AddWithValue("@ComboBox4", ComboBox4.SelectedItem)
            .Parameters.AddWithValue("@DateTimePicker1", DateTimePicker1)


        End With
        Try
            objcmd.Connection.Open()
            Dim rowsAffected As Integer = objcmd.ExecuteNonQuery()
            Console.WriteLine("RowsAffected: {0}", rowsAffected)

        Catch ex As Exception
            Console.WriteLine(ex.Message)
        End Try

        'objcmd.ExecuteNonQuery()
        objcmd.Dispose()
        MsgBox("Saved")

    End If
    acsconn.Close()
End Sub

Dim strcom1 As String = ComboBox1.SelectedText
       Dim strcom2 As String = TextBox1.SelectedText
       Dim strcom3 As String = ComboBox2.SelectedText
       Dim strcom4 As String = ComboBox3.SelectedText
       Dim strcom5 As String = ComboBox4.SelectedText
       Dim strcom6 As New DateTimePicker()

       Dim objconnection As OleDb.OleDbConnection = Nothing
       Dim objcmd As OleDb.OleDbCommand = Nothing
       Dim strconnection As String, strSQL As String


       'connection string
       strconnection = "provider=SQLOLEDB;data source=DBserver;database=myDB;user ID=user;password=mypassword;"

       objconnection = New OleDb.OleDbConnection(strconnection)
       objconnection.ConnectionString = strconnection
       objconnection.Open()

       strSQL = "insert into tran_log(hw_name,[type],[status],wh_function,[user],check_out_date)values(@ComboBox1,@TextBox1,@ComboBox2,@ComboBox3,@ComboBox4,@DateTimePicker);"
       objcmd = New OleDb.OleDbCommand(strSQL, objconnection)
       objcmd.Parameters.Add(New System.Data.OleDb.OleDbParameter("@ComboBox1", strcom1))
       objcmd.Parameters.Add(New System.Data.OleDb.OleDbParameter("@TextBox1", strcom2))
       objcmd.Parameters.Add(New System.Data.OleDb.OleDbParameter("@ComboBox2", strcom3))
       objcmd.Parameters.Add(New System.Data.OleDb.OleDbParameter("@ComboBox3", strcom4))
       objcmd.Parameters.Add(New System.Data.OleDb.OleDbParameter("@ComboBox4", strcom5))
       objcmd.Parameters.Add(New System.Data.OleDb.OleDbParameter("@DateTimePicker", strcom6))
       'objcmd.ExecuteNonQuery()

       'close connection
       objconnection.Close()
       MessageBox.Show("Entered Successfully!")

MDIForm1.loadReportinPDF "select iw.agn,ih.item_name,iw.no_of_bundle,sw.rack_name,sw.store_no from Inward iw,item_master ih,store_master sw where iw.deleted_status=ih.deleted_status", "STOCK PURCHASE-SAMPLE"

Private Sub Timer3_Tick(sender As Object, e As EventArgs) Handles Timer3.Tick
Dim name As String
       Dim number As String


           If i < TblContactsDataGridView.Rows.Count - 1 Then 'stay within bounds
           Me.TblContactsBindingSource.MoveNext()
           i = i + 1 ' for all rows except Row0

               TblContactsDataGridView.Rows(i - 1).DefaultCellStyle.BackColor = Color.White ' restore previous highlight
               TblContactsDataGridView.Rows(i).DefaultCellStyle.BackColor = Color.Blue 'new highlight

               name = Me.TblContactsDataGridView.Rows(i).Cells(0).Value.ToString()
               number = Me.TblContactsDataGridView.Rows(i).Cells(1).Value.ToString()

               Me.TblContactsDataGridView.ClearSelection() 'optional
               Me.TblContactsDataGridView.Rows(i).DefaultCellStyle.BackColor = Color.LimeGreen 'otherwise you have to wait 5 seconds for first one



               Try
                   If objclsSMS.sendMsg(Me.port, number, txtMessage.Text) Then
                       'MessageBox.Show("Message has sent successfully");
                       Me.lblStatus.Text = "Message has sent successfully"
                       'Else
                       'MessageBox.Show("Failed to send message");
                       Me.lblStatus.Text = "Failed to send message"

                   End If
               Catch ex As Exception

               End Try

       Else
           Dim a As Integer 'to count number of contacts
           a = Me.TblContactsBindingSource.Count()
           lblStatus.Text = "Message has sent successfully to " & a & " contacts"

           Me.DbSMSDataSet.Clear()

       End If
End sub

PictureBox1.Image = My.Resources.ImageName