Imports system.data
Imports system.data.oledb
Imports System.data.SqlClient
Imports System.data.SqlClient.SqlDataReader
Partial Class testALert
Inherits System.Web.UI.Page
Dim con As New OleDb.OleDbConnection
Dim dbProvider As String
Dim dbSource As String
Dim detReport As OleDbCommand
Dim drRef As OleDbDataReader
Dim dg As DataGrid
Dim resultDSO As Double
Private Sub Detailreport_Click()
dbProvider = "PROVIDER=Microsoft.Jet.OLEDB.4.0;"
dbSource = "Data Source = C:\Users\MC-dy\Desktop\CSGFunctionalitiesMadiNyerPart\DoItTryIt\CSG1.2.mdb"
con.ConnectionString = dbProvider & dbSource
Try
con.Open()
detReport = New OleDbCommand("select r.StockLongName, r.StockCode, r.Board, r.Sector, r.SubSector, r.FYE, q.MarketCapLocal FROM referential r inner join quarter q on r.stockcode = q.stockcode", con)
'Select Referential.StockCode, Referential.StockLongName,Quarter.TotalCurrentAsset, Quarter.CurrentLiabilities, Format(Quarter.TotalCurrentAssets / Quarter.CurrentLiabilities, "\0.00"\)AS CurrentRatio From Referential INNER JOIN Quarter ON Referential.StockCode = Quarter.StockCode WHERE(Quarter.CurrentLiabilities <> \""\;\
drRef = detReport.ExecuteReader()
GridView1.DataSource = drRef
GridView1.DataBind()
con.Close()
Catch ex As Exception
MsgBox("cannot open connection")
End Try
End Sub
End Class