Imports System.ComponentModel
Imports System.Web.UI
Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.OleDb
Partial Class Transpose_YaAllah_bantu_kami
Inherits System.Web.UI.Page
Dim con As OleDbConnection
Dim dbProvider As String
Dim dbSource As String
Dim SumRep_B As OleDbDataAdapter
Dim SumRep_S As OleDbDataAdapter
Dim SumRep_SS As OleDbDataAdapter
Dim ds1 As DataSet
Dim ds2 As DataSet
Dim ds3 As DataSet
Public Sub page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
con = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("CSG.mdb"))
dbProvider = "PROVIDER=Microsoft.Jet.OLEDB.4.0;"
dbSource = "Data Source =C:\Users\MC-dy\Desktop\CSG\CSG.mdb"
con.ConnectionString = dbProvider & dbSource
con.Open()
SumRep_B = New OleDbDataAdapter("Select * From SummTabb_Crosstab_Board", con)
SumRep_S = New OleDbDataAdapter("Select * From SummTabb_Crosstab_S", con)
SumRep_SS = New OleDbDataAdapter("Select * From SummTabb_Crosstab_SS", con)
ds1 = New DataSet()
ds2 = New DataSet()
ds3 = New DataSet()
SumRep_B.Fill(ds1, "Table1")
SumRep_S.Fill(ds2, "Table1")
SumRep_SS.Fill(ds3, "Table1")
ds1.Merge(ds2, False, MissingSchemaAction.Add)
ds1.Merge(ds3, False, MissingSchemaAction.Add)
'Me.GridView1.Visible = True
GridView1.DataSource = ds1
'GridView1.DataMember = "Table1"
GridView1.DataBind()
con.Close()
End Sub
End Class