Discussion :

[botbot]

Bonjour à tous,

Je débute dans la base de données, les instructions SQL etc...

Mon but : récupérer et afficher dans un label la valeur du champ BECTPREMSP de la table BESOIN où le champ BEKNRANG=44428...

Voici mon code, la connexion à l'air de fonctionner, l'instruction de commande SQL à l'air également, je n'ai pas d'erreur...
Mais ensuite je ne sais pas comment affecter par exemple à un label la valeur trouvée dans ma base de données ??

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
 Dim Cn As ADODB.Connection
        Dim Cm As ADODB.Command
        Dim Rs As ADODB.Recordset
 
        Cn = New ADODB.Connection
        Cn.Open("DRIVER=Firebird/InterBase(r) driver;SERVER=\\srv-adfiles;DATABASE=\\srv-adfiles\C:\Program Files\Firebird2\bin\pmi.fdb;UID=GTI;PWD=GTI")
        Cm = New ADODB.Command
        With Cm
            .ActiveConnection = Cn
            .CommandText = "SELECT BECTPREMSP FROM BESOIN WHERE BEKNRANG=44428;"
            Rs = .Execute
 
        End With

Merci pour votre aide

[infosam76]

Tu devrais avoir un truc du genre (attention code non testé et taper à la volée)

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
 
Dim Cn As ADODB.Connection
Dim Cm As ADODB.Command
Dim Rs As ADODB.Recordset
 
Cn = New ADODB.Connection
Cn.Open("DRIVER=Firebird/InterBase(r) driver;SERVER=\\srv-adfiles;DATABASE=\\srv-adfiles\C:\Program Files\Firebird2\bin\pmi.fdb;UID=GTI;PWD=GTI")
Cm = New ADODB.Command
With Cm
.ActiveConnection = Cn
.CommandText = "SELECT BECTPREMSP FROM BESOIN WHERE BEKNRANG=44428;"
Rs = .Execute
 
if rs.read() then
TonLabel.content = rs("BECTPREMSP ").ToString()
 
end if
 
rs.close()
End With

(J'ai plus l'habitude en C# pour le moment donc j'ai peut être fait une ou deux petites erreurs de syntaxe).

[botbot]

Bonjour infosam76,

Merci pour ta réponse.
J'obtient l'erreur suivante :

Le membre public 'read' du type 'RecordsetClass' est introuvable.

Dans le code :

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
 Dim Cn As ADODB.Connection
        Dim Cm As ADODB.Command
        Dim Rs As ADODB.Recordset

        Cn = New ADODB.Connection
        Cn.Open("DRIVER=Firebird/InterBase(r) driver;SERVER=\\srv-adfiles;DATABASE=\\srv-adfiles\C:\Program Files\Firebird2\bin\pmi.fdb;UID=GTI;PWD=GTI")
        Cm = New ADODB.Command
        With Cm
            .ActiveConnection = Cn
            .CommandText = "SELECT BECTPREMSP FROM BESOIN WHERE BEKNRANG=44428;"
            Rs = .Execute



            If Rs.read Then
                Label2.Text = Rs("BECTPREMSP ").ToString()

            End If
            Rs.Close()

        End With

Je recherche le pourquoi du comment de mon coté en parallèle... bonne journée !

[Pol63]

y avait pas une histoire de movenext et not eof à l'époque plutot que .read ?

[botbot]

Bon... Après quelques recherches j'ai trouvé ce code sur le site microsoft et j'avance un peu... avec le code suivant :

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
 
        Dim cn As New ADODB.Connection()
        cn.ConnectionString = "DRIVER=Firebird/InterBase(r) driver;SERVER=\\srv-adfiles;DATABASE=\\srv-adfiles\C:\Program Files\Firebird2\bin\pmi.fdb;UID=GTI;PWD=GTI"
        cn.Open()
 
        Dim rs As New ADODB.Recordset()
        rs.CursorLocation = ADODB.CursorLocationEnum.adUseClient
        rs.CursorType = ADODB.CursorTypeEnum.adOpenStatic
        rs.LockType = ADODB.LockTypeEnum.adLockBatchOptimistic
        rs.Open("SELECT BECTPREMSP FROM BESOIN WHERE BEKNRANG=44428", cn)
        rs.ActiveConnection = Nothing
        cn.Close()
 
        Dim da As New System.Data.OleDb.OleDbDataAdapter()
        Dim ds As New DataSet()
        da.Fill(ds, rs, "products")
 
        Label2.Text = ds.Tables(0).Rows.Count.ToString

J'arrive à afficher le nombre d'enregistrements, c'est que la connexion est ok.
Comment l'adapter pour afficher la valeur cherchée et non le nombre d'enregistrements ?

Merci

[botbot]

y avait pas une histoire de movenext et not eof à l'époque plutot que .read ?

J'ai regardé de ce coté mais rien trouvé de bien intéressant... je continue

[Pol63]

j'ai vérifié à tout hasard (ne connaissant pas firebird) mais il y a bien un connecteur pour .net (ado.net)
ADODB et les recordsets ca n'est plus utilisé depuis plus de 10 ans en théorie

http://www.firebirdsql.org/en/net-provider/
http://www.firebirdsql.org/en/net-examples-of-use/