Connectie met SQL database

[klimsmurf]

Ik heb in Acces een klein programmatje gemaakt voor het automatisch opdaten van mijn database met data uit een sql database. user id en passwoord zijn allemaal opgenomen in de connection string en toch wordt het paswoord van de database gevraagd bij het uitvoeren van de query!! Weet iemand hoe dit komt? Hieronder vinden jullie de code terug die ik hiervoor geschreven heb.

Private Sub Form_Load()

Dim cn As ADODB.Connection

Dim Egemin As String

Dim stDocName As String

Egemin = "Provider=MSDASQL.1;Password=xxxxxxxx;Persist Security Info=True;User ID=sa;Data Source=Ecar;Initial Catalog=BD"

Set cn = New ADODB.Connection
With cn
.ConnectionString = Egemin
.Open
End With

stDocName = "qry_update_historiek_Dambach"
DoCmd.OpenQuery stDocName

cn.Close
Set cn = Nothing

DoCmd.Quit

End Sub

Alvast bedankt,

David

 

[snb]

Hiermee ?

Private Sub Form_Load()
  With New ADODB.Connection
    .ConnectionString = "Provider=MSDASQL.1;Password=xxxxxxxx;Persist Security Info=True;User ID=sa;Data Source=Ecar;Initial Catalog=BD"
    .Open
    .DoCmd.OpenQuery "qry_update_historiek_Dambach"
    .Close
  End With
End Sub

 

[klimsmurf]

Dit werkt ook niet ik krijg een foutmelding op de regel die in het rood staat

Foutmelding:

Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.

Private Sub Form_Load()
  With New ADODB.Connection
    .ConnectionString = "Provider=MSDASQL.1;Password=xxxxxxxx;Persist Security Info=True;User ID=sa;Data Source=Ecar;Initial Catalog=BD"
    .Open
    [COLOR="Red"].DoCmd.OpenQuery "qry_update_historiek_Dambach"[/COLOR]
    .Close
  End With
End Sub

 

[snb]

Private Sub Form_Load()
  With New ADODB.Connection
    .ConnectionString = "Provider=MSDASQL.1;Password=xxxxxxxx;Persist Security Info=True;User ID=sa;Data Source=Ecar;Initial Catalog=BD"
    .Open
[COLOR="Blue"]    .OpenQuery "qry_update_historiek_Dambach"[/COLOR]
    .Close
  End With
End Sub

 

[klimsmurf]

Zo lukt het ook niet, dan krijg ik de foutmelding

Could not find stored procedure 'OpenQuery'

Heb het ook al eens als volgt geprobeerd maar werkt ook niet:

.Execute.OpenQuery "qry_update_historiek_Dambach"

 

[klimsmurf]

Heeft er nog iemand een alternatieve oplossing?? Kan dit ergens aan een instelling in Acces liggen?

Alvast bedankt!!