banniere

Le portail francophone de la géomatique


Toujours pas inscrit ? Mot de passe oublié ?
Nom d'utilisateur    Mot de passe              Toujours pas inscrit ?   Mot de passe oublié ?

#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 sub

Hors ligne

 

Pied de page des forums

Powered by FluxBB