การติดต่อกับฐานข้อมูล

Imports System.Data.SqlClient

Public Class ConnectionDataBase

Dim ConnString As String = "Server = .\SQLExpress;Database=Telephone Friend;Trusted_Connection = Yes;"

Dim ObjConn As New SqlConnection

Dim ObjAdapter As SqlDataAdapter

Dim Objcomm As SqlCommand

Dim ObjDataSet As DataSet

Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click

' การติดต่อกับฐานข้อมูล

ObjConn.ConnectionString = ConnString

ObjConn.Open()

Dim sqlString As String = ""

' การจัดเก็บหรือบันทึกข้อมูลลงใน DataBase

sqlString = "INSERT INTO tblTelephoneNumber VALUES ( ' " & txtFriendID.Text.Trim & " ' , ' " & txtFriendName.Text.Trim & " ' , ' " & txtTelephoneNumber.Text.Trim & " ' , ' " & txtGroupFriend.Text.Trim & " ' ) "

Objcomm = New SqlCommand(sqlString, ObjConn)

Objcomm.ExecuteNonQuery()

' การเรียกดูข้อมูลที่จัดเก็บไว้ใน DataBase

sqlString = "SELECT * FROM tblTelephoneNumber"

ObjAdapter = New SqlDataAdapter(sqlString, ObjConn)

ObjDataSet = New DataSet

ObjAdapter.Fill(ObjDataSet, "Telephone")

grdShowData.DataSource = ObjDataSet.Tables("Telephone")

' ·ทำให้ใน Textbox ว่างหลังจากบันทึกข้อมูลเสร็จ

txtFriendID.Text = ""

txtFriendName.Text = ""

txtTelephoneNumber.Text = ""

txtGroupFriend.Text = ""

End Sub

End Class