Code formulaire
2332 mots
10 pages
Imports System.DataImports 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 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;" & _ ";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 connexion ObjetConnection.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 * from