Code formulaire

Disponible uniquement sur Etudier
  • Pages : 10 (2332 mots )
  • Téléchargement(s) : 0
  • Publié le : 26 août 2010
Lire le document complet
Aperçu du document
Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.OleDb
Imports System.IO
Imports System.Drawing.Imaging
Public Class frmBonCommandeClient
Private ObjetConnection As OleDbConnection
Private ObjetCommand As OleDbCommand
Private ObjetDataAdapter As OleDbDataAdapter
Private ObjetDataSet As New DataSet()
Private strSql As String
PrivateObjetDataTable 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;" & _
";data base=BDGestionStock;user id =USER-BDSTOCK; password =userbd;"

'Initialisation de la chaîne contenant l'instruction SQL
strSql = "select * from boncommande_c"
ObjetConnection = New OleDbConnection()
'Donner à la propriété ConnectionString les paramètres de connexionObjetConnection.ConnectionString = strConn
'Ouvrir la connexion
ObjetConnection.Open()
'Instancier un objet Commande
ObjetCommand = New OleDbCommand(strSql)
'Instancier un objet Adapter
ObjetDataAdapter = New OleDbDataAdapter(ObjetCommand)
'initialiser l'objet Command
ObjetCommand.Connection() = ObjetConnection
'Avec l'aide de la propriétéFill du DataAdapter charger le DataSet
ObjetDataAdapter.Fill(ObjetDataSet, "boncommande_c")
'Mettre dans un Objet DataTable une table du DataSet
ObjetDataTable = ObjetDataSet.Tables("boncommande_c")

Dim conn As String = " server=PC-de-SORO;" & _
";Initial Catalog=BDGestionStock;uid =USER-BDSTOCK; pwd =userbd;"
Dim cmd As String = "Select * fromboncommande_c"
Dim adapter As New SqlDataAdapter(cmd, conn)
Dim boncommande As New Data.DataSet
adapter.Fill(boncommande)

If RowNumber < 0 Then MsgBox("Aucun enregistrement trouvé")
'Lors de l'ouverture de la BD, s'il n'y a aucun enregistrement
If RowNumber > ObjetDataTable.Rows.Count - 1 Then
MsgBox("Aucun enregistrementtrouvé")
'ObjetTable.Rows(Numéro de lignes).Item( Nom de colonne) donne le contenu
'd'un champ dans une ligne donnée
Me.cbcommande.Text = ""
Me.cbarticle.Text = ""
Me.txtqtitecmdee.Text = ""
Me.txtmontanttva.Text = ""
Me.txtmontantttc.Text = ""
Me.txtdatelivraison.Text = ""
ElseMe.cbcommande.Text = ObjetDataTable.Rows(RowNumber).Item("numerocommandec").ToString
Me.cbarticle.Text = ObjetDataTable.Rows(RowNumber).Item("idarticle").ToString
Me.txtqtitecmdee.Text = ObjetDataTable.Rows(RowNumber).Item("qtitecommandee").ToString
Me.txtmontanttva.Text = ObjetDataTable.Rows(RowNumber).Item("montanttva").ToStringMe.txtmontantttc.Text = ObjetDataTable.Rows(RowNumber).Item("montanttotal").ToString
Me.txtdatelivraison.Text = Microsoft.VisualBasic.Left(ObjetDataTable.Rows(RowNumber).Item("datelivraison").ToString, 11)
End If

Dim MyConnexion As SqlConnection = New SqlConnection("Data Source=PC-de-SORO;" & _
";Initial Catalog=BDGestionStock;uid =USER-BDSTOCK; pwd =userbd;")MyConnexion.Open()

'Code pour charger le numéro des clients existant dans la base et les afficher dans le combobox
Dim myCommand As New SqlCommand
Dim MyAdapt As New SqlDataAdapter
Dim myDataTable As New DataTable
Dim strQuery As String
strQuery = "select numerocommandec from commande_c"
myCommand.Connection = MyConnexion...
tracking img