Register Register Member Login Member Login Member Login Forgot Password ??
PHP , ASP , ASP.NET, VB.NET, C#, Java , jQuery , Android , iOS , Windows Phone
 

Registered : 107,992

HOME > .NET Framework > Forum > [VB] [SQL Server] ตัวแปร myRepeater จาก code vb.net ตัวนี้คือ DataGridViewใช่รึเปล่าครับ



 

[VB] [SQL Server] ตัวแปร myRepeater จาก code vb.net ตัวนี้คือ DataGridViewใช่รึเปล่าครับ

 



Topic : 072096



โพสกระทู้ ( 84 )
บทความ ( 0 )



สถานะออฟไลน์




ผมเห็นจาก link ASP.NET SQL Server List Record
https://www.thaicreate.com/asp.net/asp.net-sql-server-list-record.html

คือผมจะนำ code นี้ไปใช้ใน vb2008
อยากทราบว่าตัวแปร "myRepeater" ใน code นี้ เป็น DataGridView ใช่รึเปล่าครับ
ถ้าใช่แล้วในหน้า Designer เราต้องวาง DataGridView ไว้ 1 ตัว
แล้วเราก็เปลี่ยน Name ของ DataGridView จาก "DataGridView1" เป็น "myRepeater" ใช่รึเปล่าครัลบ

Code (VB.NET)
<%@ Import Namespace="System.Data"%>
<%@ Import Namespace="System.Data.SqlClient"%>
<%@ Page Language="VB" %>
<script runat="server">
	Dim objConn As System.Data.SqlClient.SqlConnection
	Dim objCmd As System.Data.SqlClient.SqlCommand

    Sub Page_Load(sender As Object, e As EventArgs)
		Dim strConnString As String
		strConnString = "Server=localhost;UID=sa;PASSWORD=;database=mydatabase;Max Pool Size=400;Connect Timeout=600;"
		objConn = New System.Data.SqlClient.SqlConnection(strConnString)
		objConn.Open()

		BindData()
    End Sub

	Sub BindData()
		Dim strSQL As String
		strSQL = "SELECT * FROM customer"

		Dim dtReader As System.Data.SqlClient.SqlDataReader
		objCmd = New System.Data.SqlClient.SqlCommand(strSQL, objConn)
		dtReader = objCmd.ExecuteReader()
		
		'*** BindData to Repeater ***'
		myRepeater.DataSource = dtReader
		myRepeater.DataBind()

		dtReader.Close()
		dtReader = Nothing

	End Sub

	Sub Page_UnLoad()
		objConn.Close()
		objConn = Nothing
	End Sub

</script>
<html>
<head>
<title>ThaiCreate.Com ASP.NET - System.Data.SqlClient</title>
</head>
<body>
	<form id="form1" runat="server">
    <asp:Repeater id="myRepeater" runat="server">
	<HeaderTemplate>
		<table border="1">
			<tr>
				<th>CustomerID</th>
				<th>Name</th>
				<th>Email</th>
				<th>CountryCode</th>
				<th>Budget</th>
				<th>Used</th>
			</tr>
	</HeaderTemplate>
	<ItemTemplate>
		<tr>
			<td align="center"><%#Container.DataItem("CustomerID") %></td>
			<td><%#Container.DataItem("Name") %></td>
			<td><%#Container.DataItem("Email") %></td>
			<td align="center"><%#Container.DataItem("CountryCode") %></td>
			<td align="right"><%#Container.DataItem("Budget") %></td>
			<td align="right"><%#Container.DataItem("Used") %></td>
		</tr>			
	</ItemTemplate>
	</asp:Repeater>
	</form>
</body>
</html>




Tag : .NET, Ms SQL Server 2008, VB.NET, VS 2008 (.NET 3.x)







Move To Hilight (Stock) 
Send To Friend.Bookmark.
Date : 2012-01-17 09:37:38 By : zoberranger View : 973 Reply : 4
 

 

No. 1



โพสกระทู้ ( 74,042 )
บทความ ( 838 )

สมาชิกที่ใส่เสื้อไทยครีเอท

สถานะออฟไลน์
Twitter Facebook

ครับ DataGridView ก็สามารถใช้ DataSource ของ Data Reader ได้ครับ






แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2012-01-17 09:42:15 By : webmaster
 


 

No. 2



โพสกระทู้ ( 74,042 )
บทความ ( 838 )

สมาชิกที่ใส่เสื้อไทยครีเอท

สถานะออฟไลน์
Twitter Facebook

ลองดูแบบนี้ครับ

Code (VB.NET)
        '*** BindData From Database **'
        Dim objConn As OleDbConnection
        Dim dtAdapter As OleDbDataAdapter
        Dim dt As New DataTable

        Dim strConnString As String
        strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=mydatabase.mdb"
        objConn = New OleDbConnection(strConnString)
        objConn.Open()

        Dim strSQL As String
        strSQL = "SELECT * FROM customer"

        dtAdapter = New OleDbDataAdapter(strSQL, objConn)
        dtAdapter.Fill(dt)

        dtAdapter = Nothing
        objConn.Close()
        objConn = Nothing

        Me.myDgv.DataSource = dt

        '******************************'
        Me.myDgv.Columns.Clear()

        With myDgv.ColumnHeadersDefaultCellStyle
            .BackColor = Color.Navy
            .ForeColor = Color.White
            .Font = New Font(songsDataGridView.Font, FontStyle.Bold)
        End With

        Dim ColumnTextBox As DataGridViewTextBoxColumn




        '*** Column (Select) ***'
        Dim ColumnCheckBox As New DataGridViewCheckBoxColumn()
        ColumnCheckBox.Width = 30
        ColumnCheckBox.DataPropertyName = "Select"
        Me.myDgv.Columns.Add(ColumnCheckBox)

        '*** Checkbox in Header ***'
        Dim ckBox As New CheckBox()
        Dim rect As Rectangle = myDgv.GetCellDisplayRectangle(0, -1, True)
        ckBox.Size = New Size(18, 18)
        rect.X = rect.Location.X + (rect.Width / 4)
        ckBox.Location = rect.Location
        AddHandler ckBox.CheckedChanged, New EventHandler(AddressOf ckBox_CheckedChanged)
        Me.myDgv.Controls.Add(ckBox)

        myDgv.Columns(0).Frozen = False

        '*** Column (CustomerID) ***'
        ColumnTextBox = New DataGridViewTextBoxColumn()
        ColumnTextBox.DataPropertyName = "CustomerID"
        ColumnTextBox.HeaderText = "CustomerID"
        ColumnTextBox.HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        ColumnTextBox.Width = 100
        Me.myDgv.Columns.Add(ColumnTextBox)

        '*** Column (Name) ***'
        ColumnTextBox = New DataGridViewTextBoxColumn()
        ColumnTextBox.DataPropertyName = "Name"
        ColumnTextBox.HeaderText = "Name"
        ColumnTextBox.HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        ColumnTextBox.Width = 100
        Me.myDgv.Columns.Add(ColumnTextBox)

        '*** Column (Email) ***'
        ColumnTextBox = New DataGridViewTextBoxColumn()
        ColumnTextBox.DataPropertyName = "Email"
        ColumnTextBox.HeaderText = "Email"
        ColumnTextBox.HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        ColumnTextBox.Width = 100
        Me.myDgv.Columns.Add(ColumnTextBox)

        '*** Column (CountryCode) ***'
        ColumnTextBox = New DataGridViewTextBoxColumn()
        ColumnTextBox.DataPropertyName = "CountryCode"
        ColumnTextBox.HeaderText = "CountryCode"
        ColumnTextBox.HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        ColumnTextBox.Width = 100
        Me.myDgv.Columns.Add(ColumnTextBox)

        '*** Column (Budget) ***'
        ColumnTextBox = New DataGridViewTextBoxColumn()
        ColumnTextBox.DataPropertyName = "Budget"
        ColumnTextBox.HeaderText = "Budget"
        ColumnTextBox.HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        ColumnTextBox.Width = 100
        Me.myDgv.Columns.Add(ColumnTextBox)

        '*** Column (Used) ***'
        ColumnTextBox = New DataGridViewTextBoxColumn()
        ColumnTextBox.DataPropertyName = "Used"
        ColumnTextBox.HeaderText = "Used"
        ColumnTextBox.HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        ColumnTextBox.Width = 100
        Me.myDgv.Columns.Add(ColumnTextBox)

แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2012-01-17 09:45:38 By : webmaster
 

 

No. 3



โพสกระทู้ ( 84 )
บทความ ( 0 )



สถานะออฟไลน์


ตอนนี้ยังรันไม่ได้ครับ ขอถามหน่อยนะครับ
ตอนแรก เกิด error ตรงบรรทัด
DataGridView1.DataBind()

แล้วขึ้นว่า 'DataBind is not a mmember of 'System.Forms.DataGridview.''
ผมเลย comment มันออกไป ปรากฎว่าไม่มี error
แต่พอ run แล้วไม่มี output บน Gridview เลยครับ




Code (VB)
Imports System.Data
Imports System.Data.SqlClient

Public Class Form1
    Dim objConn As System.Data.SqlClient.SqlConnection
    Dim objCmd As System.Data.SqlClient.SqlCommand

    Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)
        Dim strConnString As String
        strConnString = "Data Source=PC-WAT\SQLEXPRESS;Initial Catalog=mydatabase;Integrated Security=True;"
        objConn = New System.Data.SqlClient.SqlConnection(strConnString)
        objConn.Open()

        BindData()
    End Sub

    Sub BindData()
        Dim strSQL As String
        strSQL = "SELECT * FROM customer"

        Dim dtReader As System.Data.SqlClient.SqlDataReader
        objCmd = New System.Data.SqlClient.SqlCommand(strSQL, objConn)
        dtReader = objCmd.ExecuteReader()

        '*** BindData to Repeater ***'
        DataGridView1.DataSource = dtReader
        'DataGridView1.DataBind()

        dtReader.Close()
        dtReader = Nothing

    End Sub

    Sub Page_UnLoad()
        objConn.Close()
        objConn = Nothing
    End Sub
End Class

แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2012-01-17 10:05:27 By : zoberranger
 


 

No. 4



โพสกระทู้ ( 84 )
บทความ ( 0 )



สถานะออฟไลน์


เด๋วขอลองดูก่อนครับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2012-01-17 10:44:09 By : zoberranger
 

   

ค้นหาข้อมูล


   
 

แสดงความคิดเห็น
Re : [VB] [SQL Server] ตัวแปร myRepeater จาก code vb.net ตัวนี้คือ DataGridViewใช่รึเปล่าครับ
 
 
รายละเอียด
 
ตัวหนา ตัวเอียง ตัวขีดเส้นใต้ ตัวมีขีดกลาง| ตัวเรืองแสง ตัวมีเงา ตัวอักษรวิ่ง| จัดย่อหน้าอิสระ จัดย่อหน้าชิดซ้าย จัดย่อหน้ากึ่งกลาง จัดย่อหน้าชิดขวา| เส้นขวาง| ขนาดตัวอักษร แบบตัวอักษร
ใส่แฟลช ใส่รูป ใส่ไฮเปอร์ลิ้งค์ ใส่อีเมล์ ใส่ลิ้งค์ FTP| ใส่แถวของตาราง ใส่คอลัมน์ตาราง| ตัวยก ตัวห้อย ตัวพิมพ์ดีด| ใส่โค้ด ใส่การอ้างถึงคำพูด| ใส่ลีสต์
smiley for :lol: smiley for :ken: smiley for :D smiley for :) smiley for ;) smiley for :eek: smiley for :geek: smiley for :roll: smiley for :erm: smiley for :cool: smiley for :blank: smiley for :idea: smiley for :ehh: smiley for :aargh: smiley for :evil:
Insert PHP Code
Insert ASP Code
Insert VB.NET Code Insert C#.NET Code Insert JavaScript Code Insert C#.NET Code
Insert Java Code
Insert Android Code
Insert Objective-C Code
Insert XML Code
Insert SQL Code
Insert Code
เพื่อความเรียบร้อยของข้อความ ควรจัดรูปแบบให้พอดีกับขนาดของหน้าจอ เพื่อง่ายต่อการอ่านและสบายตา และตรวจสอบภาษาไทยให้ถูกต้อง

อัพโหลดแทรกรูปภาพ

Notice

เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ
อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง

   
  เพื่อความปลอดภัยและการตรวจสอบ กระทู้ที่แทรกไฟล์อัพโหลดไฟล์จากที่อื่น อาจจะถูกลบทิ้ง
 
โดย
อีเมล์
บวกค่าให้ถูก
<= ตัวเลขฮินดูอารบิก เช่น 123 (หรือล็อกอินเข้าระบบสมาชิกเพื่อไม่ต้องกรอก)







Exchange: Voake, Comcube, รับทำเว็บไซต์ รับเขียนโปรแกรม

Load balance : Server 00
ThaiCreate.Com Logo
© www.ThaiCreate.Com. 2003-2019 All Rights Reserved.
ไทยครีเอทบริการ จัดทำดูแลแก้ไข Web Application ทุกรูปแบบ (PHP, .Net Application, VB.Net, C#)
[Conditions Privacy Statement] ติดต่อโฆษณา 081-987-6107 , 08-9968-0655 อัตราราคา คลิกที่นี่