IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VB 6 et antérieur Discussion :

Convertir application avec BDD acces /sql serveur


Sujet :

VB 6 et antérieur

  1. #1
    Membre à l'essai
    Homme Profil pro
    Administrateur systèmes et réseaux
    Inscrit en
    septembre 2010
    Messages
    24
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Haute Garonne (Midi Pyrénées)

    Informations professionnelles :
    Activité : Administrateur systèmes et réseaux
    Secteur : Industrie

    Informations forums :
    Inscription : septembre 2010
    Messages : 24
    Points : 12
    Points
    12
    Par défaut Convertir application avec BDD acces /sql serveur
    Bonjour à vous ,
    Dans le cadre de mon travail je dois changer dans un projet vb existant une bdd sous accès pour une bdd sql serveur.
    Je suis administrateur réseau, je n'ai que d'infimes connaissances sur le sujet.
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
     
    str = "select * from PALETTE"
    rs.Open str, cn_colis, adOpenKeyset, adLockOptimistic, adCmdText
    Select Case pub_det_palette.action
        Case "C"
            rs.AddNew
            rs![COLNUM] = txtNumeroColis.Text
            "blabla"
            rs.Update
        Case "M"
            rs.Index = "PrimaryKey"
            rs.Find "=", txtNumeroColis.Text, txtNumeroPalette.Text
            rs![libelle] = txtLibellepalette.Text
            rs![poids_brut] = txtPoidsBrut.Text
            rs![poids_net] = txtPoidsNet.Text
            rs![rem1] = txtCommentaire1.Text
            rs![rem2] = txtCommentaire2.Text
            rs![rem3] = txtCommentaire3.Text
            rs![rem4] = txtCommentaire4.Text
            rs![typepal] = CboTypePalette.Text
            rs.Update
    End Select
    Un message m'est retourné :
    "Erreur d'execution 3251
    Le fournisseur actuel ne prend pas en charge l’interface nécessaire pour la fonctionnalité d'index."
    Lorsque je clique sur le débogage il me renvoie à la ligne : rs.Index = "PrimaryKey"
    A la base un .edit était présent dans le "select" je l'ai supprimé.
    J'ai changé un .seek en ".find" aussi

    Désolé de venir trouver des personnes compétentes sur ce domaine malgré mon niveau débutant mais je coince complétement.

    Nb: copie du fichier sans modif (avec connexion acces)
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    Set rs = db.OpenRecordset("PALETTE", dbOpenTable)
    Select Case pub_det_palette.action
        Case "C"
            rs.AddNew
            "blabla"     
            rs.Update
        Case "M"
            rs.Index = "PrimaryKey"
            rs.Seek "=", txtNumeroColis.Text, txtNumeroPalette.Text
            rs.Edit
            rs![libelle] = txtLibellepalette.Text
            rs![poids_brut] = txtPoidsBrut.Text
            rs![poids_net] = txtPoidsNet.Text
            rs![rem1] = txtCommentaire1.Text
            rs![rem2] = txtCommentaire2.Text
            rs![rem3] = txtCommentaire3.Text
            rs![rem4] = txtCommentaire4.Text
            rs![typepal] = CboTypePalette.Text
            rs.Update
    End Select

  2. #2
    Membre à l'essai
    Homme Profil pro
    Administrateur systèmes et réseaux
    Inscrit en
    septembre 2010
    Messages
    24
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Haute Garonne (Midi Pyrénées)

    Informations professionnelles :
    Activité : Administrateur systèmes et réseaux
    Secteur : Industrie

    Informations forums :
    Inscription : septembre 2010
    Messages : 24
    Points : 12
    Points
    12
    Par défaut
    Je commence un peu à me familiariser avec cette application ..
    On dirait que le developpeur à voulu se servir des clés primaires comme d'index, en supprimant les deux lignes :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    rs.Index = "PrimaryKey"
    rs.Find "=", txtNumeroColis.Text, txtNumeroPalette.Text
    et en modifiant la requete :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    str = "select * from PALETTE WHERE  (COLNUM LIKE '%variable1%') AND (PALNUM LIKE '%variable2%')
    Je pense que ça marcherait, mais du coup je ne me sers plus des "index"' .. pour une petite application comme celle la je ne vais pas rencontrer de soucis mais pour une table contenant 80 000 lignes peut être ^^

    Qu'en pensez vous ?

  3. #3
    Membre à l'essai
    Homme Profil pro
    Administrateur systèmes et réseaux
    Inscrit en
    septembre 2010
    Messages
    24
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Haute Garonne (Midi Pyrénées)

    Informations professionnelles :
    Activité : Administrateur systèmes et réseaux
    Secteur : Industrie

    Informations forums :
    Inscription : septembre 2010
    Messages : 24
    Points : 12
    Points
    12
    Par défaut
    Bonjour ,
    Je ne demande pas à quelqu'un de faire mon travail mais des conseils car ce n'est pas du tout mon domaine .. (je tiens à préciser)

Discussions similaires

  1. Convertir une base de données SQL Serveur en MySql
    Par sheira dans le forum Débuter
    Réponses: 8
    Dernier message: 03/07/2015, 16h16
  2. Application avec BDD Sql Server
    Par Moustico dans le forum MS SQL Server
    Réponses: 5
    Dernier message: 30/07/2007, 00h29
  3. Accès SQL serveur via ADO
    Par Fbartolo dans le forum C++Builder
    Réponses: 1
    Dernier message: 25/05/2007, 10h18
  4. Choix d'un langage pour application avec bdd mysql
    Par tonio-lille dans le forum Windows
    Réponses: 5
    Dernier message: 09/11/2006, 17h01
  5. Réponses: 1
    Dernier message: 01/02/2006, 17h48

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo