teacherwhe.blogg.se

Export datagridview to text file vb.net
Export datagridview to text file vb.net












Dim xlApp As .Application Dim xlWorkBook As .Workbook Dim xlWorkSheet As .Worksheet Dim misValue As Object System.

export datagridview to text file vb.net

Imports System.DataImports Excel = Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click Dim cnn As SqlConnection Dim connectionString As String Dim sql As String connectionString = "data source=servername " & _ "initial catalog=databasename user id=username password=password " cnn = New SqlConnection(connectionString) cnn.Open() sql = "SELECT * FROM Product" Dim dscmd As New SqlDataAdapter(sql, cnn) Dim ds As New DataSet dscmd.Fill(ds) DataGridView1.DataSource = ds.Tables(0) cnn.Close() End Sub Private Sub Button2_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button2.Click Dim xlApp As Excel.Application Dim xlWorkBook As Excel.Workbook Dim xlWorkSheet As Excel.Worksheet Dim misValue As Object = Dim i As Integer Dim j As Integer xlApp = New Excel.ApplicationClass xlWorkBook = (misValue) xlWorkSheet = xlWorkBook.Sheets("sheet1") For i = 0 To DataGridView1.RowCount - 2 For j = 0 To DataGridView1.ColumnCount - 1 xlWorkSheet.Cells(i + 1, j + 1) = _ DataGridView1(j, i).Value.ToString() Next Next xlWorkSheet.SaveAs("C:\vbexcel.xlsx") xlWorkBook.Close() xlApp.Quit() releaseObject(xlApp) releaseObject(xlWorkBook) releaseObject(xlWorkSheet) MsgBox("You can find the file C:\vbexcel.xlsx") End Sub Private Sub releaseObject(ByVal obj As Object) Try .ReleaseComObject(obj) obj = Nothing Catch ex As Exception obj = Nothing Finally GC. public class form1 private sub form1load (sender as system.object, e as system.eventargs) handles mybase.load me.binddata () end sub protected sub binddata () dim con as sqlconnection new sqlconnection (nnectionstrings ('constring'). I found this code: How to export datagridview to excel using vb.net I was wondering if someone could explain me this code: VB.














Export datagridview to text file vb.net