連接資料庫並將資料顯示在DataGride中 Imports System.Data.SqlClient Public Class Form1 Private connectionString As String = "Server=YOUR_SERVER;Database=YOUR_DATABASE;User Id=YOUR_USER;Password=YOUR_PASSWORD;" Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load Using conn As New SqlConnection(connectionString) conn.Open() Dim query As String = "SELECT TOP 10 * FROM YourTable" Dim cmd As New SqlCommand(query, conn) Dim reader As SqlDataReader = cmd.ExecuteReader() ' 直接將 DataReader 轉為 DataSource' Dim dt As New DataTable() dt.Load(reader) DataGridView1.DataSource = dt End Using End Sub End Class 參考網址: By Hao★
VB.Net使用Distinct Imports System.Linq Dim values As New List(Of Integer) Dim val1 As Integer = 0 Dim val2 As Integer = 1 Dim val3 As Integer = 1 values.Add(val1) values.Add(val2) values.Add(val3) ' 判斷 List 是否有重複數字' If values.Count <> values.Distinct().Count() Then Console.WriteLine("發現重複數值") Else Console.WriteLine("順序未重複") End If 參考網址: By Hao★
使用 ClosedXML將DataGridView 匯出至 Excel Imports ClosedXML.Excel Public Sub ExportToExcel() Using stream As FileStream = New FileStream("D:\01.Project\Template.xlsx", FileMode.Open, FileAccess.ReadWrite) Using memoryStream As New MemoryStream() ' 初始化ExcelPackage,並讀取模板' Using workbook As New XLWorkbook(stream) Dim ws As IXLWorksheet = workbook.Worksheet(1) ' 假設操作第一個工作表' ' 匯出 DataGridView 標題' For col As Integer = 0 To DataGridView1.Columns.Count - 1 ws.Cell(1, col + 1).Value = DataGridView1.Columns(col).HeaderText Next ' 匯出 DataGridView 內容' For row As Integer = 0 To DataGridView1.Rows.Count - 1 For col As Integer = 0 To DataGridView1.Columns.Count - 1 Dim cellValue = DataGridView1.Rows(row).Cells(col).Value ws.Cell(row + 2, c...
留言
張貼留言
歡迎留言