MINI TUTO ADO/ACCESS

Commentaire de romagny13 le 20/07/2006 23:14:35

oui
mais bon ca commence a dater,
enfin apparemment y a toujours de nombreux adeptes de VB 6 mais bon qd meme
faudrait qd meme penser a passer a VB2005 non ? lool pasque quand je vois des objets recordset oulaa alors qu'on est a ADO.NET 2.0 et ...
++

Commentaire de bouv le 21/07/2006 11:07:45

-Fautes de français corrigées (j'espère qu'il n'y en a plus).
-ClsAgent supprimé
-Form princpale plus grande au démarrage
-frame disabled : pb corrigé
-Option Explicit ajouté
-Auteurs des sources utilisés cités dans les modules concernés.
-Bouton arreter modifier. L'agent n'attend plus la fin de sa phrase.
-Le ScreenShot 8 s'affiche désormais en 2 fois.

Sinon pour l'histoire du didactitiel, je n'ai pas beaucoup de temps en ce moment, mais j'essaierai de faire ça plus tard, peut être en août.
Par contre s'il y des problèmes avec cette source je modifierai avant ;-)

Commentaire de bouv le 21/07/2006 11:36:08

Merci pour le commentaire.
Pour la lenteur de l'agent, c'est réglable, mais j'ai laissé la vitesse d'origine car :
-C'est destiné à des débutants et il faut qu'ils assimillent.
-Je n'ai pas pensé à la changée ;-)

Sinon, je ne suis pas très sûr mais pour SQL Server, il me semble que changé la chaine de connection ne suffit pas. Il doit falloir passer par un poste serveur, utiliser un identifiant et un mot de passe pour s'y connecter, et enregistrer la base dans la liste des bases SQL Server. Dites mois si je me trompe.

Commentaire de pluplu le 21/07/2006 11:50:04

Pour SQL Server je voulais dire que ton tutoriel n'a pas besoin de grandes modifications. Il vas sans dire que pour exploiter une base sous SQL-Server il faut installer un SQL Serveur, ou MSDE qui est un serveur SQL light gratuit gracieusement offert par Microsoft. l'un ou l'autre peuvent être installé sur un serveur ou sur un simple PC rien n'empêche d'utiliser le même PC à la fois comme serveur et client SQL.

Commentaire de PCPT le 21/07/2006 12:22:29 administrateur CS

voici des extraits sous ado




MYSQL :


Public Function CreateConnection() As Boolean
    Call ClearError
    On Local Error GoTo Err_Handler
        If Not (oCon Is Nothing) Then Set oCon = Nothing
        
        Set oCon = New ADODB.Connection
        With oCon
            .ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" & _
                                "SERVER=" & mServer & ";" & _
                                "DATABASE=" & mName & ";" & _
                                "UID=" & mUser & ";" & _
                                "PWD=" & mMdp & ";" & _
                                "OPTION=" & 1 + 2 + 8 + 32 + 2048 + 16384
        
            .CursorLocation = adUseClient
            .ConnectionTimeout = 1
            .CommandTimeout = 1
            .Open
        End With
    On Error GoTo 0
    CreateConnection = True
    Exit Function
    
    
Err_Handler:
    mErrNumber = Err.Number
    mErrSource = "CreateConnection"
    mErrDescrip = Err.Description
    Err.Clear
    Set oCon = Nothing
    CreateConnection = False
End Function




SQLSERVEUR2000 :


Public Function CreateConnection() As Boolean
    Call ClearError
    On Error GoTo Err_Handler
        If Not (oCon Is Nothing) Then Set oCon = Nothing
        
        Set oCon = New ADODB.Connection
        oCon.ConnectionString = "uid=;pwd=" & mMdp & ";driver={SQL Server}; server=" & mServer & ";database=" & mName & ";dsn="
        oCon.ConnectionTimeout = 1
        oCon.CommandTimeout = 1
        oCon.Open
    
    On Error GoTo 0
    CreateConnection = True
    Exit Function
    
    
Err_Handler:
    mErrNumber = Err.Number
    mErrSource = "CreateConnection"
    mErrDescrip = Err.Description
    Err.Clear
    Set oCon = Nothing
    CreateConnection = False
End Function

Commentaire de PCPT le 21/07/2006 14:34:14 administrateur CS

c'est des extrait de classes, donc à adapter (ou en MP si tu veux...., sources jamais postées)




SQLSERVER :

    CLS.DataServer = NOM_DE_TA_MACHINE '(ou localhost ou 127.0.0.1)
    CLS.Password = MOT_DE_PASSE_CONFIGURé_DANS_SQL '(ou vbNullString par défaut)
    CLS.DataName = NOM_DE_TA_BASE '("Pubs" par exemple, fournie)


MYSQL :

    CLS.DataServer = Txt_Host.Text '(localhost ou 127.0.0.1)
    CLS.DataName = NOM_DE_TA_BASE
    CLS.DataUser = "root" '(ou autre si tu changes les accès)
    CLS.DataPassword = MOT_DE_PASSE_CONFIGURé_DANS_EASYPHP-APACHE '(ou vbNullString par défaut)

Commentaire de PCPT le 21/07/2006 15:36:56 administrateur CS

grâce au DataServer. la connection n'est pas la même conception qu'une base access...
tu joins le serveur (par son nom) et si tu as les droits (user pass), tu peux joindre la base choisie et y accéder ensuite par des rs comme access
++

Commentaire de PCPT le 21/07/2006 16:28:18 administrateur CS

ok désolé....

principe "à peu près" identique pour MYSQL et SQLSERVER....
je vais rester sur l'exemple de SQLSERVER en local.

"DataServer" ici c'est le nom de ma propriété (puisque c'est une classe).
la classe va donc modifier sa variable mName.

pour joindre la base tu as besoin d'un moteur/interpréteur. c'est SQLSERVER. il doit donc être lancé.

à la connection (après initialisation des variables, voir post de 14:34:14), tu vas donc joindre ton serveur (le moteur SQLS en local).
le moteur regarde selon les droits, le nombre d'utilisateurs, etc... et accepte (ou non) la connection.
tu veux aller sur la base "pubs", c'est SQLS qui va t'y mener.
chez moi elle se trouve dans "P:\Program Files\Microsoft SQL Server\MSSQL\Data\pubs.mdf", mais ni l'utilisateur ni même le dev (connection distante par exemple) n'a besoin ni ne peut savoir où elle se trouve.
compare çà a un dossier partagé par exemple, ou un disque virtuel...

pour MySql, apache se fie à ses fichiers (my.ini)
çà doit être plus ou moins le même pour SQLS

base ok, tu joins ta table.
je ne rentre pas dans le détail des droits (que je ne maitrise pas de toutes manières) qui sont très différents entre MYSQL et SQLS.
(mysql = droits selon user. sqls = droits selon user, table, accès, date, requête, etc...)

voilà en gros le raisonnement.
j'espère que tu t'y retrouves un peu mieux... ;)

Commentaire de PCPT le 21/07/2006 16:49:31 administrateur CS

je ne comprends pas ta question.
sqls est un moteur, l'admin peut configurer au départ où stoquer les datas mais c'est tout. sqls se gère seul.
si l'admin veut créer une base, il est obligé de la créer par requêtes.... et donc de passer (avec ses droits) de la même manière qu'un user.
par défaut à l'install, quelques bases sont fournies et "surement" un fichier de config par défaut est installé. mysql c'est certain, sqls je n'ai pas trouvé ce fichier mais même si c'est dans le registre, le principe est le même.

c'est comme si tu demandais "qui dit à IE qu'il doit utiliser <title>titre</title> pour le mettre dans son caption"...
??


moteur autonome (configurable pré-configuré)
oui?

Commentaire de PCPT le 21/07/2006 17:36:55 administrateur CS

c'est un moteur. il se gère d'après le code fait par Kro$oft...
comment est-ce qu'en tapant www.google.fr IE fait pour cibler 66.249.85.99

comment est-ce qu'en tapant "app.path" VB te renvoi le bon chemin...
etc...

Commentaire de bouv le 21/07/2006 22:34:35

Je commence à mieux comprendre.

"tu fais simplement référence au serveur SQL que tu désire atteindre"
cela signifie qu'il peut y avoir plusieurs serveurs d'installés ?

"Cet emplacement est définis lors de l'installation du serveur SQL"
Donc tout doit être paramétré à l'installation de SQLServer. Mais peut on ajouter par la suite de nouvelles bases ? Et comment ?

Commentaire de pluplu le 22/07/2006 09:47:50

Bouv> Oui il peut y avoir plusieurs serveurs installés sur une même machine ou sur des machines différentes du réseau. On peut ajouter de nouvelles BD par la suite.

MPI> Non ce n'est pas possible d'avoir des bases de même nom sur le même serveur SQL c'est logique, mais rien n'empêche sur un serveur différent.

Il ne faut pas oublier qu'un SQL-Serveur est destiné avant tout à de grosses bases de données multi-utilisateurs, pour une petite application c'est plustôt de l'artillerie lourde et l'on préfère utiliser Access.