45 lines
958 B
Text
45 lines
958 B
Text
' Gambas class file
|
|
|
|
Private hResult1 As Result
|
|
Private hResult2 As Result
|
|
|
|
Public Sub _new(sType As String)
|
|
|
|
Dim hConn As Connection
|
|
|
|
hConn = Connections["Connection1"]
|
|
hConn.Type = sType
|
|
If hConn.Type = "sqlite" Then hConn.Host = User.Home
|
|
Try hConn.Open
|
|
If Not hConn.Opened Then
|
|
Message.Error(("You have to create the test database with the <b>Database</b> example."))
|
|
Return
|
|
Endif
|
|
'Report.Debug = True
|
|
hResult1 = db.Exec("select distinct firstname from test")
|
|
|
|
ReportPanel1.DataCount = hResult1.Count
|
|
|
|
End
|
|
|
|
Public Sub ReportLabel1_Data(Index As Integer)
|
|
|
|
hResult2.MoveTo(Index)
|
|
Last.data = hResult2!name
|
|
|
|
End
|
|
|
|
Public Sub ReportPanel1_BeforeData()
|
|
|
|
hResult1.MoveTo(Last.dataindex)
|
|
hResult2 = db.Exec("Select * From test where firstname=&1", hResult1!firstname)
|
|
ReportHBox1.DataCount = hResult2.Count
|
|
|
|
End
|
|
|
|
Public Sub ReportLabel2_Data(Index As Integer)
|
|
|
|
hResult1.MoveTo(Index)
|
|
Last.data = hResult1!firstname
|
|
|
|
End
|