Les Snippets

Connexion

Connexion à une base de données Access

Niveau requis pour utiliser/comprendre cette source : 1 ( Débutant )
Créé le 07/04/2006 18:51:40 et initié par Charles Racaud [Liste]
Date de mise à jour : 07/08/2008 23:01:25
Vue : 37032
Catégorie(s) : Base de données
Langages dispo pour ce code :
- C# 1.x, C# 2.x
- VB 2005, VB.NET 1.x
- VB6, VBA



Langage : C# 1.x , C# 2.x
Date ajout : 07/04/2006
Posté par Charles Racaud [Liste]
DateMAJ : 07/04/2006
using System.Data.OleDb;
public class Bd
{
  private System.Data.OleDb.OleDbConnection Connection;
  public void Open(string FileName)
  {
    Connection = new System.Data.OleDb.OleDbConnection();
    Connection.ConnectionString = "Provider=microsoft.jet.oledb.4.0;Data Source=" + FileName + ";";
    Connection.Open();
  }
  public System.Data.DataTable GetTable(string Requete)
  {
    try
    {
      System.Data.DataSet DtSet = new System.Data.DataSet();
      System.Data.OleDb.OleDbDataAdapter AdapTContact = new System.Data.OleDb.OleDbDataAdapter(Requete, Connection);
      AdapTContact.Fill(DtSet, ((char)0).ToString());
      return DtSet.Tables[0];
    }
    catch (Exception Err)
    {
      throw Err;
    }
  }
  public void Close()
  {
    Connection.Close();
    Connection.Dispose();
    Connection = null;
  }
}
Example d'utilisation:
System.Data.DataTable Table;
Bd Bd = new Bd();
Bd.Open(@"Chemin\De\Votre\BaseDeDonnee");
Table = Bd.GetTable("select * from NomDeVotreTable");
Bd.Close();

Langage : VB.NET 1.x , VB 2005
Date ajout : 07/04/2006
Posté par Charles Racaud [Liste]
Imports System.Data.OleDb
Public Class Bd
  Private Connection As System.Data.OleDb.OleDbConnection
  Public Sub Open(ByVal FileName As String)
    Connection = New System.Data.OleDb.OleDbConnection()
    Connection.ConnectionString = "Provider=microsoft.jet.oledb.4.0;Data Source=" & FileName & ";"
    Connection.Open()
  End Sub
  Public Function GetTable(ByVal Requete As StringAs System.Data.DataTable
    Try
      Dim DtSet As New System.Data.DataSet()
      Dim AdapTContact As New System.Data.OleDb.OleDbDataAdapter(Requete, Connection)
      AdapTContact.Fill(DtSet, Chr(0))
      Return DtSet.Tables(0)
    Catch Err As System.Exception
      Throw Err
    End Try
  End Function
  Public Sub Close()
    Connection.Close()
    Connection.Dispose()
    Connection = Nothing
  End Sub
End Class
Example d'utilisation:
Dim Table As System.Data.DataTable
Dim Bd As New Bd()
Bd.Open("Chemin\De\Votre\BaseDeDonnee")
Table = Bd.GetTable("select * from NomDeVotreTable")
Bd.Close()
Langage : VB6 , VBA
Date ajout : 27/06/2008
Posté par PCPT [Liste]
DateMAJ : 07/08/2008
'   COPIEZ LE CODE  CI-DESSOUS DANS UN MODULE DE CLASS, VOUS AVEZ ACCES AUX OBJETS DB ET  RS
Option Explicit
'   msado25.tlb (Microsoft ActiveX Data Objects 2.5  Library)
'   msadox.dll (Microsoft ADO Ext. 2.7  for DLL and  Security)
Public Enum eDBJetEngineType
    Jet10 = 1
    Jet11 = 2
    Jet20 = '(Access 2)
    Jet3x = '(Access 97)
    Jet4x = '(Access 2000, XP-2002, 2003)
End Enum
'
Public DB As New ADODB.Connection
Public RS As New Recordset
    
'    CONNEXION
Public Function DBConnect(ByVal sDBPath As String, Optional ByVal sPassword As String = vbNullString, Optional ByVal  eDBJetEngine As  eDBJetEngineType = Jet4x) As Boolean
    Me.DBClose
    With DB
        .Provider = "Microsoft.jet.OLEDB.4.0;Data Source=" & sDBPath & ";Jet OLEDB:Database Password=" & sPassword & ";Jet OLEDB:Engine Type=" CStr(eDBJetEngine) & ";"
        On Error GoTo Err_Handler
        .Open
        DBConnect = True
        Exit Function
    End With
Err_Handler:
    Debug.Print "[DBConnect] " & Err.Number & " : " & Err.Description
End Function
'   FERMETURE  DB
Public Sub DBClose()
    Me.DB.Cancel
    If Me.DBConnected Then Me.DB.Close
End Sub
'   BASE CONNECTéE ?
Public Function DBConnected() As Boolean
    DBConnected = Not (Me.DB.State = adStateClosed)
End Function
'    REQUÊTE
Public Function RSExecute(ByVal sSql As String) As Boolean
    If Me.DBConnected Then
        Call RSClose
        Me.RS.CursorLocation = adUseClient
        On Local Error GoTo Err_Handler
        Me.RS.Open sSql, Me.DB, adOpenDynamic, adLockOptimistic,  -1
        RSExecute = True
    End If
    Exit Function
Err_Handler:
    Debug.Print "[RSExecute] " & Err.Number & " : " & Err.Description
End Function
'   FERMETURE  RS
Private Sub RSClose()
    Me.RS.Cancel
    If Not (Me.RS.State = adStateClosed) Then  Me.RS.Close
End Sub
'   DESTRUCTION  CLASS
Private Sub Class_Terminate()
    Call RSClose:   Set Me.RS = Nothing
    Me.DBClose:     Set Me.DB = Nothing
End Sub


Snippets en rapport avec : Connexion, Requete, Sql, Acces, Database



Codes sources en rapport avec : Connexion, Requete, Sql, Acces, Database

{} [FLEX 4/AIR] SQLITE LES BASES
Bonjour, Voici une petite demo pour poser les bases de l'utilisation du moteur SQLite dans Flex. ...

{Visual Basic, VB6, VB.NET, VB 2005} CONNEXION ET REQUETES SQL SERVER AVEC VB.NET
Voici comment faire pour vous connecter à SQL Server dans un premier temps et exécuter des requêtes ...

{C# / C#.NET} DOTNETSMARTCONNECTION : CONNEXION À UNE BDD ACCESS OU SQL SERVER.
DotNetSmartConnection permet de réaliser des connexions à destination, soit d'une BDD ACCESS, soit d...

{Visual Basic, VB6, VB.NET, VB 2005} EXECUTEUR DE REQUETE SQL (ORIENTÉ ORACLE)
Permet d'executer des requetes SQL, taper, coller ou via un fihcier *.sql contenant les requetes. A...

{Visual Basic, VB6, VB.NET, VB 2005} UTILISATION DE SQLITE AVEC UNE CLASSE DE CONNECTION
Ce petit programme permet de créer et d'utiliser une base de données sous Sqlite. Je l'ai écrit a...

{Delphi} COMPOSANTS ADO DE CONNEXION AVEC PRIVILEGES D'ACCÉES AVEC L'AIDE
1. TMyDataSet: Ce composant est un composant AdoDataSet un peut modifié, car son état est fixé su...

{Visual Basic, VB6, VB.NET, VB 2005} GESTSTAGAIRE
c'est un gestionaire pour gérer les stagaires leurs notes ,modules etc... Dans ce gestionaire on a ...

{C# / C#.NET} SIMPLIFIER LES REQUETE SQL
Je trouve que faire des requete dans le code est très ennuyeux, j'au fait alors un petit code qui pe...

{Visual Basic, VB6, VB.NET, VB 2005} INTEGRER UN SIMPLE ÉDITEUR POUR EXPRESSIONS SQL DANS VOS PROJETS.
Parfois on est ammené à intervenir sur une base pour corriger certaines anomalies accidentelles et...

{Delphi} GESTION BDD CHEZ UN HEBERGEUR INTERNET QUI NE VOUS NE PERMET PAS D'Y ACCEDER DIRECTEMENT
Ce programme va vous permettre par une petite astuce et un composant indy de gérer une base de donné...