[VB.Net] msgbox用法

  


留言

張貼留言

歡迎留言

熱門文章

[C#] 使用Gmail發送信件

使用Gmail發送信件   using System; using System.Collections.Generic; public void SendMail(string Subject, string Body, IEnumerable ToUser) { string account = "XXX@gmail.com";//登入Mail Server的帳號 string password = "*******";//登入Mail Server的密碼 string from = "XXX@gmail.com";//實際發送信件的Mail地址 string host = "smtp.gmail.com";//發Mail的Server位置 string port = "587";//發Mail的Server位置使用的Port bool enableSsl = true;//是否啟用SSL憑證 System.Net.Mail.MailMessage MyMail = new System.Net.Mail.MailMessage(); MyMail.From = new System.Net.Mail.MailAddress(from); foreach (var i in ToUser) { MyMail.To.Add(i.ToString());//設定收件者Email } MyMail.Subject = Subject; MyMail.Body = Body; //設定信件內容 MyMail.IsBodyHtml = true; //是否使用html格式 System.Net.Mail.SmtpClient MySMTP = new System.Net.Mail.SmtpClient(host, Int32.Parse(port)); MySMTP.Credentials = new System.Net.NetworkCredential(account, password); MySMTP...
閱讀完整內容

[VB.Net] 連接資料庫並將資料顯示在DataGride中

    連接資料庫並將資料顯示在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] 使用ClosedXML匯出資料到 Excel

  匯出 DataGridView 資料到 Excel   Imports ClosedXML.Excel Using stream As FileStream = New FileStream(filePath, FileMode.Open, FileAccess.ReadWrite) Using memoryStream As New MemoryStream() ' 初始化ExcelPackage，並讀取模板' Using workbook As New XLWorkbook(stream) Dim worksheet = workbook.Worksheet(1) ' 假設操作第一個工作表' #Region "塞入欄位" worksheet.Cells("A6").Value = "需填入的值" #End Region '儲存 Excel 文件到 MemoryStream' workbook.SaveAs(memoryStream) End Using Dim sfd As New SaveFileDialog() sfd.Filter = "Excel(*.xlsx)|*.xlsx" ' 設定預設檔案名稱' sfd.FileName = "檔案名稱" + ".xlsx" If (sfd.ShowDialog() = DialogResult.OK) Then '將 MemoryStream 位置重設為 0 (從頭開始讀取)' memoryStream.Position = 0 '將 Stream 轉換為 Byte 陣列並寫入檔案' My.Computer.FileSyst...
閱讀完整內容