Excel Forum

Code: Select all

Imports System.IO
Imports System.Data.OleDb
Public Class Form6
    Dim cn As New OleDbConnection
    Dim da As OleDbDataAdapter
    Dim dt As New DataTable
    Dim a As StreamReader
    Dim b As String

    Private Sub FillDataGridView(ByVal Query As String)
        da = New OleDbDataAdapter(Query, cn)
        dt.Clear()
        da.Fill(dt)
        With DataGridView1
            .DataSource = dt
            .Columns(0).HeaderText = "Model"
            .Columns(1).HeaderText = "ModelNumber"
            .Columns(2).HeaderText = "Suffix"
            .Columns(3).HeaderText = "SD Card Number"
            .Columns(4).HeaderText = "Quantity"
            .Columns(5).HeaderText = "Where Keep"
            .Columns(6).HeaderText = "Receive Date"
            .Columns(7).HeaderText = "Return Date"
            .Columns(8).HeaderText = "FCT1"
            .Columns(9).HeaderText = "FW"
            .Columns(10).HeaderText = "FCT2"
            .Columns(11).HeaderText = "Remark"
            .Columns(12).HeaderText = "Bank"
            .Columns(0 To 12).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
        End With
        'DataGridView1.FirstDisplayedScrollingRowIndex = 1
    End Sub
    Private Sub btnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClose.Click
        Form5.Show()
        Me.Close()
    End Sub

    Private Sub btnCheck_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCheck.Click
        cn.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=C:\SD Card Ricoh\Ricoh_SDCard.xls;extended properties=excel 8.0;"
        cn.Open()
        FillDataGridView("select * from [All SD Card$] where ModelNumber='" & TextBox1.Text & "'")
        cn.Close()
    End Sub