Discussion :

[gharsa0007]

j'au un problème pour affecter une table ou une requête sql avec recordset ou recordsource pour un état"reports" .

le problème que j peux le faire avec des table local mais j'ai une table qui est sur un SQLSERVER protéger par un login et mot de passe

pouvez-vous m'expliqué comment affecter une table protéger a un recordset ou recordsource d'un Etat

NB: J'arrive a le faire pour un formulaire et pas pour un reports

Merci d'avance

[gharsa0007]

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 rs As ADODB.Recordset
      Set cn = CreateObject("ADODB.Connection")
      Set rs = CreateObject("ADODB.Recordset")
      With cn
       .ConnectionString = "PROVIDER=SQLOLEDB;" & _
                           "DATA SOURCE=sever;" & _
                           "USER ID=sa;" & _
                           "PASSWORD=dimu;" & _
                           "INITIAL CATALOG=base"
       .Open
      End With
      With rs
       .CursorLocation = adUseClient '
       .CursorType = adOpenStatic
       .LockType = adLockBatchOptimistic
       .ActiveConnection = cn
       .Open "SELECT * FROM table"
      End With
Me.Report.RecordSource = rs

j'arrive pas a affecter rs

[LedZeppII]

Bonjour,

Pour affecter le recordset il faut écrire

Code :

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

Set Me.Recordset = rs

Par ailleurs, il faut que ces deux variables ...

Code :

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

1
2
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset

... soient de portée globale au module de code du formulaire ou de l'état.
Il faut donc les déclarer en début de module de code, au lieu de les déclarer dans une sub ou une fonction.

Sinon, une autre solution consiste à créer une table liée (ODBC) à la table SQL Server.
Cette table devient alors disponible en tant que source d'un formulaire ou d'un état.

A+

[gharsa0007]

Bonjour,

Pour affecter le recordset il faut écrire

Code :

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

Set Me.Recordset = rs

Par ailleurs, il faut que ces deux variables ...

Code :

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

1
2
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset

... soient de portée globale au module de code du formulaire ou de l'état.
Il faut donc les déclarer en début de module de code, au lieu de les déclarer dans une sub ou une fonction.

Sinon, une autre solution consiste à créer une table liée (ODBC) à la table SQL Server.
Cette table devient alors disponible en tant que source d'un formulaire ou d'un état.

A+

Merci pour votre réponse,
En fait j'ai une table liée (ODBC) à une table SQLServer mais le server est protéger par une mot de passe voila mon code avec DAO , est ce que on peut l'excuté avec ADO ?

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 db As DAO.Database, qd As DAO.QueryDef
Dim strNomRequete As String
Dim strODBCconn As String, strSQL As String
 
' Nom de la requête SQL-Direct à créer ou modifier
strNomRequete = "select * from Clients"
' Chaîne de connexion ODBC (ici, sans DSN), pour requête SQL-Direct
strODBCconn = "ODBC;DSN=Clients;UID=sa;PWD=dima;DATABASE=Clients"
 ' code SQL de la requête
strSQL = "select * from Clients"
 Set db = CurrentDb
' Référence ou crée une requête
On Error Resume Next
Set qd = db.QueryDefs(strNomRequete)
On Error GoTo 0
If qd Is Nothing Then Set qd = db.CreateQueryDef(strNomRequete)
' SQL de la requête
qd.SQL = strSQL
 Me.RecordSource = qd.SQL
' libère les objets
Set qd = Nothing
Set db = Nothing

[LedZeppII]

Bonjour,

Quoi que l'on fasse avec DAO ou avec ADODB, cela n'a aucune influence sur Access.
Access utilise sa propre connexion.
Il ne sert à rien de se connecter avec DAO ou ADODB, Access ne le voit pas.

Pour ne pas avoir à re-saisir le nom d'utilisateur et le mot de passe, il faut cocher «Enregistrer le mot de passe» lors de la création de la table liée ODBC.
Cette case à cocher se trouve dans la boîte de dialogue «Attacher les tables», lorsqu'on crée une table liée ODBC.
Supprime ta table liée, et recrée la en cochant «Enregistrer le mot de passe».


A+