Discussion :

[David2006]

Bonjour,

Je cherche à connecter sous VB Studio express 2005, une base Sage Gestion commerciale L100 V14.01. Cela fonctionne trés bien sous Excel pour la récupération des tables mais impossible de copier coller le code de la macro sous VB Studio, les instructions ne fonctionnent pas.

Quelqu'un peut-il m'aider sur les instructions à ancer lors du clic d'un bouton de formulaire pour ouvrir la base de données (Gescom100) dans VB 2005...

J'ai rechercher tout ce que je pouvais sur le net et dans les aides et bouquins disponibles mais impossible d'y arriver...

Please Help me !!!

Dark T. - Desperate House Développer

[olsimare]

Bonjour.

Ton probléme se limite-t'il tout simplement à traduire du VBA vers du VB.NET ?

Si oui, poste le code qui te bloque.

Cdt.

[David2006]

Salut Olsimare,

Merci de t'être interessé à mon problème.

En fait, j'ai continuer à chercher dans tous les sens et j'ai résolu mon problème.

Dark T. Happy Developer

[mathrb]

Pourrais-tu signaler comment tu as résolu ton affaire, car de mettre le post en résolu je serais tenter de pouvoir y trouver la réponse au même problème que tu as eu!!
Merci

[David2006]

Salut Mathrb,

En effet tu as raison, c'est plus cool si je mets le code, histoire que d'autres ne se tapent pas la même galère que moi...

Le voici donc :

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
23
24
25
26
27
28
29
30
31
32
 
Imports System
Imports System.Data.odbc
Imports System.IO
 
Public Class ODBCConnexion
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim strConnexion As String = ("dsn=Compta100")
        Try
            Dim oConnection As Odbc.OdbcConnection = New OdbcConnection(strConnexion)
            Dim mystring As String = "Select * from F_BANQUE"
            Dim cmd As OdbcCommand = New OdbcCommand(mystring)
            oConnection.Open()
            Console.WriteLine("Etat de la connexion : " & oConnection.State)
            TextBox1.Text = ""
            Dim adapter As New OdbcDataAdapter()
            Dim MyDataset As New DataSet
            adapter.SelectCommand = New OdbcCommand(mystring, oConnection)
            adapter.Fill(MyDataset)
            TextBox1.Text = MyDataset.Tables(0).Rows(0)("BQ_intitule") & MyDataset.Tables(0).Rows(1)("BQ_intitule") & MyDataset.Tables(0).Rows(2)("BQ_intitule")
            oConnection.Close()
 
        Catch ex As Odbc.OdbcException
            Console.WriteLine("L'erreur suivante a été rencontrée :" & ex.Message)
        End Try
    End Sub
 
    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
    End Sub
 
End Class

J'espère que cela pourra en aider quelques uns.

Il me reste néanmoins un problème, si certains peuvent m'aider c'est qu'avec cette connexion, je suis systématiquement en accès monoposte, même si le "Serveur Sage" est bien installé sur mon poste et que la compta Sage est en 1 à 4 postes... S'il y a un seul utilisateur de connecter, la connexion ne s'établie pas... Help ???

Merci d'avance,

Dark T.

[mathrb]

Je trouve ça bizarre que tu ouvre ta connexion comme ça
Retire le connex.open, et joins simplement l'objet connexion dans ta commande
Voici le code dont moi je me sert pour me connecter en ODBC sur une base différente mais ça revient au même, et là pas de problème.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Odbc_Connex.ConnectionString = "DSN=NomDuDsn"
Dim Odbc_C As New OdbcCommand("SELECT serial_tordt FROM tordt WHERE (nexpediente = '" & sExpediente & "') ORDER BY serial_tordt DESC;", Odbc_Connex)
        Dim Odbc_A As New OdbcDataAdapter(Odbc_C)
        Dim Odbc_Ds As New DataSet
Odbc_A.Fill(Odbc_Ds)

Mais tu me diras la base sera quand même occupé le temps de charger les données, ce temps dépendra de ta requête.