Recourdsource pour un Etat access

GHARSA - Modifié par GHARSA le 23/08/2013 à 16:54
 GHARSA - 9 sept. 2013 à 10:01
Bonjour ,

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 à affecter une table "Clients" qui est sur sql server et qui est protège avec mot de passe a un recordsource d'un report

NB: le même code marche avec me.form.recodrsource = rs

merci d'avance

2 réponses

NHenry Messages postés 15118 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 11 mai 2024 159
Modifié par NHenry le 23/08/2013 à 18:09
Tu développes en quel langage, VB6, VBS, VBA ou VB.NET ?

En VB.NET pensez à activer Option Explicit et Option Strict et à retirer l'import automatique de l'espace de nom Microsoft.VisualBasic
0
je travaille sur access 2003 avec VBA et des tables lie a sqlServer protéger
0
NHenry Messages postés 15118 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 11 mai 2024 159
24 août 2013 à 15:41
Quel est ton problème ?
La connexion ? (http://www.connectionstrings.com/)
Autre ?
0
Mon problème est d'affecter le résultat d'une requête SQL dans un recordsource d'un état acces

j'ai déjà fais :
Me.Report.RecordSource = "select * from table"
mais toujours il demande l mot de passe de sqlServer
0
NHenry Messages postés 15118 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 11 mai 2024 159
7 sept. 2013 à 15:06
Il faut le définir dans la chaine de connexion utilisée.
0
Oui mais comment
0
NHenry Messages postés 15118 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 11 mai 2024 159
8 sept. 2013 à 16:43
With cn
.ConnectionString = "PROVIDER=SQLOLEDB;" & _
"DATA SOURCE=sever;" & _
"USER ID=sa;" & _
"PASSWORD=dimu;" & _
"INITIAL CATALOG=base"
.Open
End With 


Voir la syntaxe ( http://www.connectionstrings.com/ )
Tu as peut être fait une erreur.
0
Merci henry pour votre aide
0
Rejoignez-nous