Simple Vlookup from 1 DatagridView to another DatagridView .

Question

Simple Vlookup from 1 DatagridView to another DatagridView.
DatagridView1.
Output Required:
DatagridView2.
If i Type Drake in A1 Result should be 2222222 in B2.
Imp: Dont want to Open Excel sheet ,do Vlookup and close, is there any other way to Vlookup from 1 DatagridView to another DatagridView .
Need the easiest and Fastest way to Vlookup.
Just for Info:
DatagridView1 Source
 cn.ConnectionString = "provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Application.StartupPath & "\Track.xls;Extended Properties=Excel 8.0;"
            cn.Open()
            With cm
                .Connection = cn
                .CommandText = "insert into [ABC$]values('" & wk1 & " ','" & wk2 & "'')"
                .ExecuteNonQuery()
                cn.Close()
            End With

Answer 1

Hello,
A VLookup works only in Excel, not in a DataGridView. If you want to search in a DataGridView for example where the data source is a DataTable there are several methods of the DataTable to locate data
Not sure what you mean with the lines following DataGridView1 Source as that code is for inserting data.
If you want to search and get the range and row index
Public Sub SearchExcelWorkSheet(
ByVal FileName As String,
ByVal SheetName As String,
ByVal SearchItem As String,
ByVal Column As String,
Optional ByVal LastRow As Int32 = 100)
Dim xlApp As Excel.Application = Nothing
Dim xlWorkBooks As Excel.Workbooks = Nothing
Dim xlWorkBook As Excel.Workbook = Nothing
Dim xlWorkSheet As Excel.Worksheet = Nothing
Dim xlWorkSheets As Excel.Sheets = Nothing
Dim xlTargetRange As Excel.Range = Nothing
Dim Result As Excel.Range = Nothing
xlApp = New Excel.Application
xlApp.Visible = False
xlApp.DisplayAlerts = False
xlWorkBooks = xlApp.Workbooks
xlWorkBook = xlWorkBooks.Open(FileName)
Dim Proceed As Boolean = False
xlWorkSheets = xlWorkBook.Sheets
For x As Integer = 1 To xlWorkSheets.Count
xlWorkSheet = CType(xlWorkSheets(x), Excel.Worksheet)
If xlWorkSheet.Name = SheetName Then
Proceed = True
Exit For
End If
Runtime.InteropServices.Marshal.FinalReleaseComObject(xlWorkSheet)
xlWorkSheet = Nothing
Next
If Proceed Then
Dim RangeToWorkFind As String = String.Format("{0}1:{0}{1}", Column, LastRow)
xlTargetRange = xlWorkSheet.Range(RangeToWorkFind)
Result = xlTargetRange.Find(SearchItem, , , Excel.XlLookAt.xlPart, Excel.XlSearchOrder.xlByColumns)
If Result IsNot Nothing Then
MessageBox.Show(String.Format("Found [{0}] on row [{1}] range [{2}]", SearchItem, Result.Row, RangeToWorkFind))
Marshal.FinalReleaseComObject(Result)
Result = Nothing
GC.Collect()
Else
MessageBox.Show(String.Format("Did not find [{0}] in range [{1}]", SearchItem, RangeToWorkFind))
End If
Else
' --- Sheet not located in Excel file
MessageBox.Show(String.Format("{0} was not located in {1}", SheetName, FileName))
End If
xlWorkBook.Close()
xlApp.UserControl = True
xlApp.Quit()
If Not Result Is Nothing Then
Marshal.FinalReleaseComObject(Result)
Result = Nothing
GC.Collect()
End If
If Not xlTargetRange Is Nothing Then
Marshal.FinalReleaseComObject(xlTargetRange)
xlTargetRange = Nothing
End If
If Not xlWorkSheets Is Nothing Then
Marshal.FinalReleaseComObject(xlWorkSheets)
xlWorkSheets = Nothing
End If
If Not xlWorkSheet Is Nothing Then
Marshal.FinalReleaseComObject(xlWorkSheet)
xlWorkSheet = Nothing
End If
If Not xlWorkBook Is Nothing Then
Marshal.FinalReleaseComObject(xlWorkBook)
xlWorkBook = Nothing
End If
If Not xlWorkBooks Is Nothing Then
Marshal.FinalReleaseComObject(xlWorkBooks)
xlWorkBooks = Nothing
End If
If Not xlApp Is Nothing Then
Marshal.FinalReleaseComObject(xlApp)
xlApp = Nothing
End If
End Sub
Please remember to mark the replies as answers if they help and unmark them if they provide no help, this will help others who are looking for solutions to the same or similar problem.