recordset avec ado sous access 2000

salut à tous,

pour recuperer une valeur d'une table dans une variable,
j'utilise actuellement un recordset avec dao
voici la syntaxe (qui marche)

Dim rec As DAO.Recordset
Dim toto As String
Set rec = CurrentDb.OpenRecordset("SELECT [texte] FROM Table1 WHERE
num0")
rec.MoveFirst
toto = rec!texte

apparemment c'est has-been et j'aimerais bien le faire avec ado
quelqu'un a-t-il un code qui marche avec ado pour faire la meme chose ?
(j'ai essayé avec Dim rec As New ADODB.Recordset et rec.Open (chaine sql),
mais il doit manquer des trucs car cela ne marche pas)

merci et à+tard
loutox

salut à tous,

pour recuperer une valeur d'une table dans une variable,
j'utilise actuellement un recordset avec dao
voici la syntaxe (qui marche)

Dim rec As DAO.Recordset
Dim toto As String
Set rec = CurrentDb.OpenRecordset("SELECT [texte] FROM Table1 WHERE
num0")
rec.MoveFirst
toto = rec!texte

apparemment c'est has-been et j'aimerais bien le faire avec ado
quelqu'un a-t-il un code qui marche avec ado pour faire la meme chose ?
(j'ai essayé avec Dim rec As New ADODB.Recordset et rec.Open (chaine sql),
mais il doit manquer des trucs car cela ne marche pas)

merci et à+tard
loutox

Salut,
Il y a plusieurs façons de la faire, par exemple:

Dim cnn as ADODB.Connection
Dim rs as ADODB.Recordset

Dim strSQL As String

strSQL = "SELECT [texte] FROM Table1 WHERE num0"

Set cnn = CurrentProject.Connection
Set rs = cnn.Execute(strSQL)

....

Il faut bien sur avoir une référence à la biblio Microsoft ActiveX Data
Object(ADO)

Cordialement,
Philippe.


"Loutox" <pasdepub_pour__loutox@free.fr> a écrit dans le message de news:
3f210ca9$0$5229$626a54ce@news.free.fr...

salut à tous,

pour recuperer une valeur d'une table dans une variable,
j'utilise actuellement un recordset avec dao
voici la syntaxe (qui marche)

Dim rec As DAO.Recordset
Dim toto As String
Set rec = CurrentDb.OpenRecordset("SELECT [texte] FROM Table1 WHERE
num0")
rec.MoveFirst
toto = rec!texte

apparemment c'est has-been et j'aimerais bien le faire avec ado
quelqu'un a-t-il un code qui marche avec ado pour faire la meme chose ?
(j'ai essayé avec Dim rec As New ADODB.Recordset et rec.Open (chaine
sql),

mais il doit manquer des trucs car cela ne marche pas)

merci et à+tard
loutox

Bonjour.

pour récupérer une seule valeur dans une table il vaut mieux passer par:
x = DLookup ("texte", "Table1 ", "[num] = " & Me.MonNum )
x = DLookup ("texte", "Table1 ", "[num] = 100")


--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.


"Loutox" <pasdepub_pour__loutox@free.fr> a écrit dans le message de
news:3f210ca9$0$5229$626a54ce@news.free.fr...

salut à tous,

pour recuperer une valeur d'une table dans une variable,
j'utilise actuellement un recordset avec dao
voici la syntaxe (qui marche)

Dim rec As DAO.Recordset
Dim toto As String
Set rec = CurrentDb.OpenRecordset("SELECT [texte] FROM Table1 WHERE
num0")
rec.MoveFirst
toto = rec!texte

apparemment c'est has-been et j'aimerais bien le faire avec ado
quelqu'un a-t-il un code qui marche avec ado pour faire la meme chose ?
(j'ai essayé avec Dim rec As New ADODB.Recordset et rec.Open (chaine
sql),

mais il doit manquer des trucs car cela ne marche pas)

merci et à+tard
loutox

-----Message d'origine-----
salut à tous,

pour recuperer une valeur d'une table dans une variable,
j'utilise actuellement un recordset avec dao
voici la syntaxe (qui marche)

Dim rec As DAO.Recordset
Dim toto As String
Set rec = CurrentDb.OpenRecordset("SELECT [texte] FROM
Table1 WHERE

num=100")
rec.MoveFirst
toto = rec!texte

apparemment c'est has-been et j'aimerais bien le faire
avec ado

quelqu'un a-t-il un code qui marche avec ado pour faire
la meme chose ?

(j'ai essayé avec Dim rec As New ADODB.Recordset et
rec.Open (chaine sql),

mais il doit manquer des trucs car cela ne marche pas)

merci et à+tard
loutox


.