Visual Basic

programmerwantabe wrote:

1) Select some text let's say in App 1.
2) Switch to App 2, but as the switch occurs, copy the selected text from App 1 to the clipboard without the user pressing Ctrl-C.

Delegate Sub callDel()

Private Sub OnChanged(ByVal source As Object, ByVal e As FileSystemEventArgs)

Dim del As callDel

del = New callDel(AddressOf UpdateGrid)

del.Invoke()

   <code>     Private Sub OnChanged(ByVal source As Object, ByVal e As FileSystemEventArgs)
        
          If firstTruck = True Then
                updateTimer.Stop()

                del = New callDel(AddressOf UpdateGrid)
              
                del.Invoke()
               
                del = New callDel(AddressOf UpdateList)
                del.Invoke()

                updateTimer.Start()
                firstTruck = False
            End If
</code>

Public Sub UpdateGrid()
If display = "All Trucks" Then
            Me.TransactionTableTableAdapter.Fill(Me.MyTestDataSet.TransactionTable)

        Else
            Me.TransactionTableTableAdapter.FillBy(Me.MyTestDataSet.TransactionTable)
        End If

        '  Me.newDataGrid.Refresh()
    End Sub

Private Sub SetText(ByVal [text] As String)

      ' InvokeRequired required compares the thread ID of the
      ' calling thread to the thread ID of the creating thread.
      ' If these threads are different, it returns true.
      If Me.textBox1.InvokeRequired Then
          Dim d As New SetTextCallback(AddressOf SetText)
          Me.Invoke(d, New Object() {[text]})
      Else
          Me.textBox1.Text = [text]
      End If
  End Sub

GetConnectionString()

Public Class DatabaseLayer
    Private Shared Function GetConnectionString(ByVal filename As String) As String
        ' Build the full path to the specified database file and see if this
        ' file exists
        Dim fullPath As String = Path.Combine(Application.StartupPath, filename)
        If Not File.Exists(fullPath) Then
            Throw New FileNotFoundException("Unable to locate the database file {0} in the application folder.")
        End If
 
        ' Get the connection string template
        Dim connStringTemplate As String = My.Settings.ConnectionString
 
        ' Build and return the completed connection string
        Return String.Format(connStringTemplate, Path.Combine(Application.StartupPath, filename))
    End Function
 
    Private Shared Function CreateDatabaseConnection(ByVal filename As String) As OleDbConnection
        ' Get a connection string for the specified database file
        Dim connString As String = GetConnectionString(filename)
 
        ' Return an OleDbConnection object
        Return New OleDbConnect(connString)
    End Function
 
    Private Shared Function GetFileExcludeTableSelectCommand() As OleDbCommand
        Dim selectSql As String = "SELECT " & _
                "ExcludeID, ExcludePath, ExcludeFileName FROM tblExclude"
        Return New OleDbCommand(selectSql)
    End Function
 
    Private Shared Function CreateFileExcludeTableDataAdapter(ByVal selectCommand As OleDbCommand, ByVal connection As OleDbConnection) As OleDbDataAdatper
        Dim da As New OleDbDataAdapter(comm, conn)
        ' Put code here to add any command parameters and use the OleDbCommandBuilder
        ' to finish building the DataAdpters UPDATE, DELETE, and INSERT commands.
        Return da
    End Function
 
    Public Shared Function GetFileExcludeTable() As DataTable
        Dim dt As New DataTable("FileExcludeTable")
        Dim conn As OleDbConnection = CreateDatabaseConnection("File.mdb")
        Dim comm As OleDbCommand = GetFileExcludeTableSelectCommand()
 
        Using da As OleDbDataAdapter = CreateFileExcludeTableDataAdapter(comm, conn)
            da.Fill(dt)
        End Using
 
        Return dt
    End Function

jds1207 wrote:

this is very helpful but it still does not solve the problem.

somunu wrote:

How To use a component that is present outside the current working environment.

somunu wrote:

How deos the DataAdpter,DataSet work together in establishing connection between VB.NET and SqlServer2005.Explain with example

Vuyiswamb wrote:

it should have the correct mappings?

Dave Kreskowiak wrote:
|What do you expect the "correct mappings" to be?? 

Dave Kreskowiak wrote:
Where did you want the database to be??

Dave Kreskowiak wrote:
What does the code look like that builds the file path to the database?? 

Vuyiswamb wrote:

used a Wizard to achieve this, so i did not hardcode the DB mappings

<font color="#008000">'/// say i wanted to remove item 15 in the array<br />
'/// i'd specify the Array to remove it from as 1st parameter ( arrBooks )<br />
'/// i'd specify the index of the item to remove as 2nd parameter ( 15 in this case )<br />
'/// i'd specify the amount of items to remove from that point as 3rd parameter ( ie: 1 item to remove just position 15 )</font><br />
Array.Clear(arrBooks, 15, 1)<br />
<font color="#008000">'/// then if you wish to resize the arrBooks to account for the deleted item ( s )</font> <br />
Array.Resize(arrBooks, " the new size here as an integer " )