#1 Mon 16 May 2011 13:21
- Meha
- Juste Inscrit !
- Date d'inscription: 16 May 2011
- Messages: 3
insértion de données dans une table
bonjour,
je suis entrain de créer une application en utilisant mapbasic et mapinfo version 9 , j'ai crée un formulaire (sec.MB) qui contient des champs a saisir d'après l'utilisateur , après avoir remplis ces champs , les valeurs doivent être enregistrées dans une table (Secteur.TAB) que j'ai déjà crée . Le problème est qu'au moment d'enregistrement des valeurs, la table ajoute une ligne qui contient des zéros et non pas les valeurs que je saisie.
je vous ai envoyé mon code en espérant que vous m'aidiez à résoudre ce problème ( c'est très urgent car j'ai d'autre taches à faire et qui dépendent de cette table )
merci d'avance
Code:
'code de création de ma table (Secteur.TAB)
include "menu.def"
include "mapbasic.def"
include "icons.def"
declare sub table
declare sub main
declare sub exit
declare sub dialog
sub dialog
dialog title "Meha"
control button title "base"
calling table
end sub
sub table
create table "Secteur" (ID float, covrage_radius float, type_ant float,Azimuth float, Tilt float,
PA_power float, Fréquence float, Receiver_height float)
File "c:\Secteur.TAB"
'close all interactive
end sub
sub exit
end program
end sub
sub main
create menu "&projet" as
"&dialog" calling dialog,
"&Exit" calling exit
Alter Menu Bar Add "&projet"
end sub
'code de création de formulaire (sec.MB) qui contient aussi le code d'insertion des valeurs dans la table (secteur.TAB)
include "menu.def"
include "mapbasic.def"
include "icons.def"
declare sub ajoutsec
dim IDS,rcouv,Az,tl,PA,f,hr as float
dim TAn as string
dialog title "sector"
control statictext
title "ID du secteur" position 13, 70
Control EditText position 160, 70 value "" into IDS width 73
ID 16
control statictext
title "Covrage radius (Km)" position 13, 90
Control EditText position 160, 90 value "" into rcouv width 73
ID 18
control statictext
title "Type d'antennes" position 13, 120
control popupmenu title " Omnidirectionnel;Directive " position 160, 120 into TAn
ID 20
control statictext
title "Azimuth" position 13, 140
Control EditText position 160, 140 value "" into Az width 73
ID 22
control statictext
title "Tilt" position 13, 160
Control EditText position 160, 160 value "" into tl width 73
ID 24
control statictext
title "PA Power (dBm)" position 13, 180
Control EditText position 160, 180 value "" into PA width 73
ID 26
control statictext
title "Fréquence (MHZ)" position 13, 200
Control EditText position 160, 200 value "" into f width 73
ID 28
control statictext
title "Receiver height (m)" position 13, 220
Control EditText position 160, 220 value "" into hr width 73
ID 30
Control button
title "ajouter secteur"
Position 135, 250 Width 74
calling ajoutsec
sub ajoutsec
open table "c:\Secteur.TAB"
IDS= Secteur.ID
rcouv= Secteur.covrage_radius
Az= Secteur.Azimuth
tl= Secteur.Tilt
PA= Secteur.PA_power
f= Secteur.Fréquence
hr= Secteur.Receiver_height
TAn =Secteur.type_ant
insert into "Secteur" (ID , covrage_radius , Azimuth ,type_ant, Tilt , PA_power , Fréquence , Receiver_height )
values(IDS, rcouv, Az,TAn, tl, PA, f, hr)
commit table Secteur
end subHors ligne
