Dim

clair ou marron Dim. : 330x220 cm 22.500 Dh 2 Réf.: A520-GC/MA Fauteuil HALF MOON en cuir ( et derrière en PVC ) Couleur : Gris clair ou marron Diam.: 76 cm 5.995 Dh 3 Réf.: PINTO Table basse PINTO Dim.: 120x70 cm Couleur : Wengé 3.250 Dh 4 Réf.: LB3205A18 Set de 2 étagères murales Couleur : Wengé Dim.: 120x29 cm 690 Dh 6 Salon & séjour NOUVEAU 1 2 1 Réf.: PRADA-NB PRADA Salon 3 + 2 +1 face en cuir ( et derrière en PVC ) Couleur : Noir & blanc Dim. 3P : 225x100x70

travail). 2013-2014 sept-13 dim 01 lun 02 mar 03 mer 04 jeu 05 ven 06 sam 07 dim 08 lun 09 mar 10 mer 11 jeu 12 ven 13 sam 14 dim 15 lun 16 mar 17 mer 18 jeu 19 ven 20 sam 21 dim 22 lun 23 mar 24 mer 25 jeu 26 ven 27 sam 28 dim 29 lun 30 8 7 8 7 8 7 8 7 60 oct-13 mar 01 mer 02 jeu 03 ven 04 sam 05 dim 06 lun 07 mar 08 mer 09 jeu 10 ven 11 sam 12 dim 13 lun 14 mar 15 mer 16 jeu 17 ven 18 sam 19 dim 20 lun 21 mar 22 mer 23

2 sam 3 dim 4 lun novembre 10 décembre 10 1 lun Toussaint janvier 11 2 dim 3 lun février 11 2 mer 3 jeu mars 11 2 mer 3 jeu avril 11 2 sam Ratt. S01 2 3 dim 4 lun mai 11 lun juin 11 2 jeu Ascension juillet 11 1 ven 2 sam 3 dim 4 lun 1 mer 2 jeu 1 sam Jour de l'an 1 mar 1 mar C. Classe 1 ven 1 dim Fête Travail 1 mer 3 mar Pâques 4 mer jeu 2 mar 3 mer 4 jeu 3 ven 4 sam 5 dim 6 lun 3 ven 4 sam 5 dim 6 lun 3 ven 4 sam 5 dim 6 Victoire

: aug dépenses et dim impôt > dim recette effet : effet multiplicateur : l'Etat investie de l'argent pour en revevoir plus limite : .fuite des effets multiplicateurs par l'épargne et par l'importation .la relance ne marche qu'avec la confiance (Ricardo Barro) : si anticipation du déficit > aug épargne > pas de relance .si financement par l'impôt : trop d'impôt tue l'impôt (courbe de laffer, le rendement des impôt diminue au delà d'un tx de 40%) .si financement par l'emprunt : dim possibilité d'emprunter

sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim x As New System.Data.OleDb.OleDbConnection(chainee) (créer une variable qui me permet de faire une cnnection à la bd) x.Open()(=ouvrir la bd) Dim mareq(mareq=on peut l’appeller autrement) As New OleDb.OleDbDataAdapter Dim objcmd(objet de type commande) As New OleDb.OleDbCommand Dim chainesql As String = "select nlivre,nomlivre from livre" objcmd.CommandText

est possible d'ajouter des lignes de commentaire entre les lignes d'instruction ou au bout de celles-ci. Les commentaires sont précédés d'une apostrophe et prennent une couleur différente (définie dans les options de VBE) : Sub Essai() Dim Invite as String 'Nom de l'utilisateur Invite = "Toto" 'Message bonjour à l'utilisateur MsgBox "Bonjour " & Invite End Sub [pic] Il n'y a pas de limite de caractères pour chaque ligne d'instruction. Il est toutefois possible

New DataSet() Private strSql As String Private ObjetDataTable As DataTable Private ObjetDataRow As DataRow Private RowNumber As Integer Private strConn As String Private ObjetCommandBuilder As OleDbCommandBuilder Dim pu As Integer Private Sub frmBonCommandeClient_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load MdiParent = frmMenu strConn = "Provider=SQLNCLI;Driver={SQL Native Client};server=PC-de-SORO;"

imports System Imports MySql.Data.MySqlClient 5 °) Maintenant le code pour afficher les éléments de ma BD dans une LISTBOX Dim oConn As MySqlConnection oConn = New MySqlConnection() oConn.ConnectionString = "server =localhost;user = root;password = '';database= ecole" oConn.Open() Dim myCommand As New MySqlCommand Dim MyAdapt As New MySqlDataAdapter Dim myDataTable As New DataTable Dim strQuery As String strQuery = "SELECT inscription.nom, inscription.postnom FROM inscription" myCommand.Connection = oConn

IF : si ELSE : sinon ELSEIF : sinon si Sub ech2v() Dim aux As Integer Dim a As Integer Dim b As Integer a = InputBox("entrez la valeur de a:", "saisie", 0) b = InputBox("entrez la valeur de b:", "saisie", 0) aux = a a = b b = aux msg = MsgBox("lanouvelle valeur de a est : " & a) msg = MsgBox("la nouvelle valeur de b est : " & b) End Sub Sub ech3v() Dim aux As Integer Dim a As Integer Dim b As Integer Dim c As Integer a = InputBox("entrez la valeur de a:", "saisie"

Fill(ds, "admin") If ds.Tables("admin").Rows.Count = 0 Then MessageBox.Show("informations incorrectes veuillez vous reidentifier", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error) Else Dim f2 As New MDIParent1 Me.Hide() f2.Show() End If Catch ex As Exception MsgBox(ex.Message) End Try End Sub Package importer Imports System.Data.SqlClient