Dim sysconfig As String = WebConfigurationManager.ConnectionStrings("ConnectionString").ConnectionString
ตอนดึงมาใช้งาน
Code (VB.NET)
Private Sub LoadCarData()
Try
Dim strLoad As String
strLoad = "----คำสั่ง SQL----"
daCar = New SqlDataAdapter(strLoad, [color=green]sysconfig)
Dim dt As New DataTable
daCar.Fill(dt)
gvCarData.DataSource = dt
gvCarData.DataBind()
Catch ex As Exception
gvCarData.EmptyDataText = "Load data fail."
End Try
End Sub
ลองดูครับ ประมาณนี้แหละ
Date :
2012-09-27 11:02:39
By :
Nebula
No. 2
Guest
เพิ่มเติมครับ ลืมบอกไปว่าทำเป็นแบบ function ไว้ จากด้านบน ชื่อ function คือ LoadCarData()
ตอนเราจะใช้ก็เอาไปวางตาม event ต่าง ๆ ได้เลย เช่น
Code (VB.NET)
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
LoadCarData()
End Sub
หรือตอนกดปุ่ม
Code (VB.NET)
Protected Sub btLoad_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles btLoad.Click
LoadCarData()
End Sub