Cours VB.NET

    Référence: ajouter le composant COM 'Microsoft DAO 3.6 Library 5'

    Imports DAO

    Imports DAO.LanguageConstants

    Dim result As Boolean = False

    Dim dbe As New DBEngine

    Dim db As Database

    Try

    db = dbe.CreateDatabase("c:\test.mdb", dbLangGeneral)

    If Not (db Is Nothing) Then result = True

    Catch ex As Exception : MsgBox(ex.Message)

    Finally : If Not (db Is Nothing) Then db.Close()

    End Try

    Protected Const SQL_CONNECTION_STRING As String = _

    "Server=localhost;" & _

    "DataBase=;" & _

    "Integrated Security=SSPI"

     

    Dim strSQL As String = _

    "IF EXISTS (" & _

    "SELECT * " & _

    "FROM master..sysdatabases " & _

    "WHERE Name = 'HowToDemo')" & vbCrLf & _

    "DROP DATABASE HowToDemo" & vbCrLf & _

    "CREATE DATABASE test"

     

    Dim northwindConnection As New SqlConnection(connectionString)

    Dim cmd As New SqlCommand(strSQL, northwindConnection)

    northwindConnection.Open()

    cmd.ExecuteNonQuery()

    northwindConnection.Close()

Imports System

Imports System.Data

Imports System.Data.OleDb

'Déclarer la connexion

Private ObjetConnection As OleDbConnection

' Déclaration l'Objet Commande

Private ObjetCommand As OleDbCommand

 

'Paramètres de connexion à la DB

Private strConn As String

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
 Handles Button1.Click
 

strConn = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source= c:nom.mdb;"

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

'Lier Commande et Connexion

ObjetCommand.Connection = ObjetConnection

'Indiquer le type de commande

ObjetCommand.CommandType = CommandType.Text

'Donner le texte de la commande SQL

ObjetCommand.CommandText = "CREATE TABLE PARENT (CLI_ID INTEGER NOT NULL 
 _PRIMARY KEY, CLI_NOM CHAR(32) NOT NULL, CLI_PRENOM VARCHAR(32))"

'Ici on crée une table PARENT avec 3 champs ; CLI_ID est un entier non nul qui sert de clé primaire,
' CLI_NOM  CLI_PRENOM sont des chaînes de 32 caractères.

'on exécute la commande

ObjetCommand.ExecuteNonQuery()

'Fermer la connexion

ObjetConnection.Close()

End Sub
			

Dim Resultat = From Element In MyData _

Where Element.Nom = "Toto" _

Select Element

For Each P In Resultat

   ListBox1.Items.Add(P.NOM )

Next

Dim Resultat = From Element In MyData _

 Order By Element.Price Descending, Element.Nom _

 Select Element.Nom, Element.Price

Private Sub Form1_Load

'Création d'un TableAdapter

Dim FPTableAdapter = New NOMDataSetTableAdapters.FICHEPATIENTTableAdapter

'Extraction des données et chargement du DataSet

FPTableAdapter.Fill(NOMDataSet.FICHEPATIENT)

End Sub

Dim query = _

From LePatient In NOMDataSet.FICHEPATIENT.AsEnumerable() _

Where LePatient.SEXE = "M" _

Select LePatient

For Each P In query

ListBox1.Items.Add(P.NOM.ToString & P.PRENOM.ToString)

Next

Dim query = _

From LePatient In NOMDataSet.FICHEPATIENT.AsEnumerable() _

Where LePatient.PRENOM Like "PHILIPPE*" _

Select LePatient

Dim query =  From LePatient In NOMDataSet.FICHEPATIENT.AsEnumerable() _

Where LePatient.PRENOM Like "PHILIPPE*" _

Select New With { _

.LeNom = LePatient.Field(Of String)("NOM"), _

.LeSexe = LePatient.Field(Of String)("SEXE")}

 

For Each P In query

ListBox1.Items.Add(P.LeNom.ToString & P.LeSexe.ToString)

Next

Dim db As New DataContext("…\Northwnd.mdf") ' 

Dim Customers As Table(Of Customer) = db.GetTable(Of Customer)()

 

 ' Interrogation sur Customer en recherchant 'London'. 

Dim Query = _

  From cust In Customers _

  Where cust.City = "London" _ 

  Select cust 

 

 'Affichage résurtat sur la console

For Each cust In Query 

      Console.WriteLine("id=" & cust.CustomerID & _ ", City=" & cust.City) 

Next

db.ExecuteCommand ("UPDATE Products SET UnitPrice = UnitPrice + 100")