Discussion :

[sanderriere]

Bonjour,

Je me suis mis récemment au développement sous VB.net (j'étais sous VB6 précédemment) et voulant réaliser une simple requête et bien je galère!

Comment réaliser une requête tout simple qui me retourne juste une valeur, un peu comme sous VB6 :

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
Public con As Object
Public RS As Object
 
Set con = Application.CurrentProject.Connection
Set RS = CreateObject("ADODB.Recordset")
 
strSQL = "SELECT T_STCK.LOCALISATION, T_STCK.LIG " & _
         "FROM  T_STCK) " & _
         "WHERE T_STCK.LOCALISATION='RECEPT';"
 
RS.Open strSQL, con, 1
 
If not RS.EOF Then
    MsgBox "RS!LIG"
End If
 
RS.Close
 
Set con = Nothing
Set RS = Nothing

J'aimerai dans l'idéal le réaliser sous forme de procédure stockée dans Visual studio, mais avec une base Access on ne peut pas ?

J'ai trouvé une multitude d'aide sur internet mais moi je ne souhaite pas réaliser un retour de la requête dans une Datagrid, mais juste récupérer un champs...

Peut être en passant par ExecuteScalar(), mais je ne trouve pas d'exemple simple avec une base Access sur le net...


Merci par avance...

[sanderriere]

Bon en faite c'est bon j'ai finis par trouver.

En fait j'utilise un bouquin de VB.net mais il code avec une base de donnée avec SQLServer. Mais en fait, c'est quasiment la même chose pour pas mal de paramètres avec une base Access avec ADO.NET:

Exemple :

SqlConnection = OleDbConnection
SqlCommand = OleDbCommand
SqlDataReader = OleDbDataReader...


Et de plus, je viens de trouver un exemple sur l'aide de Visual Studio :

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
' Code Visual Basic .NET et ADO.NET - ADONETCode.vb.
' Accéder aux données ADO.NET en étant connecté .
' Application de console.
Imports System.Data.OleDb
 
Module Module1
 
 Sub Main()
 
 ' Définissez d'abord une référence à System.Data.dll. 
 Dim objConn As New OleDbConnection _
 ("Provider=Microsoft.Jet.OLEDB.4.0;" & _
 "User ID=Admin;" & _
 "Data Source=C:\Program Files\Microsoft" & _
 "Office\Office10\Samples\Northwind.mdb")
 
 objConn.Open()
 
 Dim objCmd As New OleDbCommand _
 ("SELECT * FROM Products", objConn)
 Dim objDataReader As OleDbDataReader = objCmd.ExecuteReader
 
 objDataReader.Read()
 Console.Write(objDataReader.Item("ProductName") & ", " & _
 objDataReader.Item("UnitsInStock"))
 
 End Sub
 
End Module