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
NHenry
Messages postés15144Date d'inscriptionvendredi 14 mars 2003StatutModérateurDernière intervention24 juillet 2024159 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
23 août 2013 à 18:16