1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42
| Option Explicit
'===============================================================================================================
Sub CreationTableProvisoire()
Dim Connection as Object, RequeteCreation as Object
Dim RequeteSQL as string
Connection = ThisDatabasedocument.CurrentController.ActiveConnection
RequeteSQL = "drop table ""TP_MtrlFml"";create table ""TP_MtrlFml""(""Cf_TP"" integer primary key,""Cf_MtrlFml"" varchar(10))"
RequeteCreation = Connection.createStatement()
RequeteCreation.executeUpdate(RequeteSQL)
EnregistrerValeur
End Sub
'===============================================================================================================
Function EnregistrerValeur
Dim Connection as Object,Frml as object,Requete as object
Dim RequeteSQL as string
Dim VlrFml as integer, VlrCfp as integer
Frml = ThisComponent.DrawPage.Forms.getByName("MainForm").getByName("SubForm").getByName("SubForm_Grid")
VlrFml = Frml.getByName("LstMtrlFml").CurrentValue
If VlrFml = " " Then
MsgBox("Vous devez renseigner le champ famille de projet")
Exit Function
End If
VlrCfp = 0
Connection = ThisDatabasedocument.CurrentController.ActiveConnection
Requete = Connection.createStatement()
RequeteSQL = "INSERT INTO ""TP_MtrlFml"" (""Cf_TP"", ""Cf_MtrlFml"") VALUES ("+ VlrCfp + ", "+ VlrFml + ")"
Requete.executeUpdate(RequeteSQL)
End Function
'===============================================================================================================
Sub Actu(oEv as Object)
oEv.Source.Model.Refresh
End Sub |
Partager