คล้ายแบบที่ 2 แต่ใช้ DataView
Dim ds As New DataSet
Dim dt As New DataTable
Dim dv As DataView
DA.Fill(ds, "Table1")
dt = ds.Tables("Table1")
dv = dt.DefaultView
dv.Sort = "Column1 DESC, Column2"
dv.RowFilter = "Column2 > 800000"
GridView1.DataSource = dv
GridView1.DataBind()
Showing posts with label DataBase Connection. Show all posts
Showing posts with label DataBase Connection. Show all posts
Sunday, June 24, 2012
ASP.Net : SQL Data Connection แบบที่ 3
ASP.Net : SQL Data Connection แบบที่ 2
คล้ายแบบที่ 1 แต่ใช้ Data Table
Dim ds As New DataSet
Dim dt As New DataTable
DA.Fill(ds, "Table1")
dt = ds.Tables("Table1")
GridView1.DataSource = dt
Dim ds As New DataSet
Dim dt As New DataTable
DA.Fill(ds, "Table1")
dt = ds.Tables("Table1")
GridView1.DataSource = dt
Friday, June 22, 2012
ASP.Net : SQL Data Connection แบบที่ 1
การติดต่อฐานข้อมูลมีหลายวิธี บางครั้งก็นึกคำสั่งไม่ออกก็เลยเอามาบันทึกไว้ใช้ดังนี้
1.สร้าง Class ซึ่งจะถูกเก็บไว้ที่ โพลเดอร์ App_Code สมมุติชื่อ DBConnection ดังนี้
Imports Microsoft.VisualBasic
Public NotInheritable Class DBConnection
Public Shared DB1ConString As String = "Data Source=x.x.x.x;Initial Catalog=DB1;Persist Security Info=True;User ID=x;Pwd=x"
Public Shared DB2ConString As String = "Data Source=x.x.x.x;Initial Catalog=DB2;Persist Security Info=True;User ID=x;Pwd=x"
End Class
2.นำไปใช้ใน Page ที่ต้องการ
Imports System.Data.SqlClient
Partial Class TestPage
Inherits System.Web.UI.Page
Dim Conn As SqlConnection
Dim cmd As String
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Conn = New SqlConnection(DBConnection.DB1ConString)
cmd = "SELECT * from Table1 "
Dim DA As New SqlDataAdapter(cmd, Conn)
Dim ds As New DataSet
DA.Fill(ds)
GridView1.DataSource = ds
GridView1.DataBind()
Catch ex As Exception
End Sub
End Class
1.สร้าง Class ซึ่งจะถูกเก็บไว้ที่ โพลเดอร์ App_Code สมมุติชื่อ DBConnection ดังนี้
Imports Microsoft.VisualBasic
Public NotInheritable Class DBConnection
Public Shared DB1ConString As String = "Data Source=x.x.x.x;Initial Catalog=DB1;Persist Security Info=True;User ID=x;Pwd=x"
Public Shared DB2ConString As String = "Data Source=x.x.x.x;Initial Catalog=DB2;Persist Security Info=True;User ID=x;Pwd=x"
End Class
2.นำไปใช้ใน Page ที่ต้องการ
Imports System.Data.SqlClient
Partial Class TestPage
Inherits System.Web.UI.Page
Dim Conn As SqlConnection
Dim cmd As String
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Conn = New SqlConnection(DBConnection.DB1ConString)
cmd = "SELECT * from Table1 "
Dim DA As New SqlDataAdapter(cmd, Conn)
Dim ds As New DataSet
DA.Fill(ds)
GridView1.DataSource = ds
GridView1.DataBind()
Catch ex As Exception
End Sub
End Class
Subscribe to:
Posts (Atom)