วันนี้เราจะมานำเสนอวิธีการส่ง E-mail ง่าย ๆ โดยการใช้ class MailMessage และ SmtpClient 
โดยการส่งเมล์นี้จะใช้ Protocol SMTP ในการส่ง 
1.การประกาศตัวแปลของ Object MailMessage
Dim mailClient As New MailMessage 
2.การกำหนด E-mail ผู้ส่ง
 mailClient.From = New MailAddress(address Asstring)
Ex. mailClient.From =New MailAddress(“Bill_Gate@hotmail.com“) 
3.การใส่ E-mail Address ปลายทาง 
mailClient.To.Add(address Asstring)
Ex. mailClient.To.Add(“steve_job@apple.com“) 
4การใส่ Suject และ Body
mailClient.Subject = subject
mailClient.Body = body 
5.การประกาศตัวแปรของ SmtpClient
Dim sendMail As New SmtpClient(“Mail Server”, port)
“Mail Server” คือ Host SMTP ที่เราจะให้เค้าส่ง Mail ไปใช้
port Default คือ 25sendMail.Credentials [...]

• 0 Comments

พอดีมีงานที่ต้องเขียนเชื่อมต่อฐานข้อมูลของ SQL Server ซึ่งไปอ่าน ๆ ดูก็ง่าย ๆ (Oracle, MySQL ก็เขียนคล้ายกันมาก)
ตัวอย่างผมใช้ VB.NET เขียนนะครับ
เริ่มแรกก็ Import ก่อนเลย
Imports System.Data.SqlClient
จากนั้นก็ตามด้วย Code ตัวอย่าง อย่างง่าย ๆ
Private Sub readDataTOListView(ByVal lv As ListView)
Dim sqlServerConnect As SqlConnection
Dim sqlCommand As SqlCommand
Dim dr As SqlDataReader
sqlServerConnect = New SqlConnection(“server=localhost;uid=sa;pwd=123456;database=myDatbase”)
Try
sqlServerConnect.Open()
sqlCommand = New SqlCommand(“Select * from mytable”, sqlServerConnect)
dr = sqlCommand.ExecuteReader()
If dr.HasRows Then
While dr.Read()
With lv.Items.Add(dr.Item(“ID”).ToString())
.SubItems.Add(dr.Item(“Data1″))
.SubItems.Add(dr.Item(“Data2″))
End With
End While
End If
dr.Close()
Catch ex As Exception
MessageBox.Show(ex.ToString())
End [...]

• 0 Comments