Visual Basic

Public Sub excelconn(ByVal exlpath As String)<br />
        exconn = New System.Data.OleDb.OleDbConnection("provider=Microsoft.Jet.OLEDB.4.0; " & "data source='" & exlpath & "'; Extended Properties=Excel 8.0;")<br />
        exconn.Open()<br />
        Dim da As OleDbDataAdapter<br />
        da = New OleDbDataAdapter("select * from [Sheet1$]", exconn)<br />
        da.Fill(ds)<br />
    End Sub

*Muskan* wrote:

Can someone give me the code of my project?

*Muskan* wrote:

Can someone give me the code of my project?

Dave Kreskowiak wrote:

Treat this board as if your prof is reading it.

ESTANNY wrote:

It smell like homework

cstrader232 wrote:

It's my impression that the MTA threading is a different animal entirely...that the GUI is based on calls from STA threads.

Am I wrong about that?

Imports System.Threading
 
Public Class Form1
 
    Private Delegate Sub UpdateTextBoxDelegate(ByVal Message As String)
 
    Private Sub UpdateTextBox(ByVal Message As String)
        TextBox1.AppendText(message & Environment.NewLine)
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
        Handles Button1.Click
        For x As Integer = 1 To 20
            Dim t As New Thread(AddressOf GenerateData)
            t.SetApartmentState(ApartmentState.MTA)
            t.Start()
        Next
    End Sub
 
    Private Sub GenerateData()
        Dim callback As New UpdateTextBoxDelegate(AddressOf UpdateTextBox)
 
        For x As Integer = 1 To 10
            TextBox1.Invoke(callback, New Object() { _
                String.Format("Thread Id: {0}  Apartment: {1}  Message: {2}", _
                    Thread.CurrentThread.ManagedThreadId, _
                    Thread.CurrentThread.GetApartmentState().ToString(), _
                    x)})
        Next
    End Sub
End Class