01.Imports System.Data
02.Imports MySql.Data.MySqlClient
03.Public Class GIS_RoutestationMin
04. Inherits System.Web.UI.Page
05.
06. Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
07.
08. End Sub
09.
10. Protected Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
11. Dim connectionString As String = "Server=......;Port=1234;Database=......;Uid=.....;Pwd=............;"
12. Dim connection As New MySqlConnection(connectionString)
13. If connection.State.Equals(ConnectionState.Closed) Then
14. connection.Open()
15. End If
16. Dim QueryString As New StringBuilder()
17. QueryString.Append("SELECT routestation.subrouteid,isgo,seqid)
18. QueryString.Append(" FROM routestation ")
19. QueryString.Append(" GROUP BY routestation.subrouteid, isgo")
20. Response.Write(QueryString.ToString())
21.
22. Dim OracleAdapter As New MySqlDataAdapter(QueryString.ToString(), connection)
23. Dim DataTable As New DataTable("TestTable")
24. OracleAdapter.Fill(DataTable)
25. GridView1.DataSource = DataTable
26. GridView1.DataBind()
27. GridView1.Visible = True
28. Response.Write(DataTable.Rows.Count.ToString())
29. End Sub
30.End Class
