ODBC koppeling paswoord telkens ingeven

• 

  Eric Bernhard

  22-06-2005 14:26

  Geachte kenners.

  Ik heb een pass-trhough qeury gemaakt in het verleden.

  Nu is er een upgrade gekomen naar een nieuwe sql server en ook een andere indeling van den velden.

  De nieuwe query werkt wel alleen teklens vraagt deze om het password, terwijl de oude dit niet deed.

  Wat kan ik hieraan veanderen zodat het niet meer voor komt dat ik de vraag van een password krijgt, nu is het nog in een test fase maar straks werken ook anderen er mee en dan moet het allemaal wel zonder problemen doorlopen.

  Wie weet de oplossing.

  Eventueel wil ik de query ook in VBA opbouwen als dat nodig s. alleen hoe doe ik het dan met de usernaam en password.

  Vriendelijk bedankt.
• 

  ERic B

  23-06-2005 20:49

  Kijk even naar connection in de help, ik heb wat stukjes code uit een van mijn sources gelicht…kijk maar hoe ver je komt.

  Zorg wel in je verwijzingen dat Microsoft ActiveX Data Objects 2.8 library

  is aangevinkt. Versie kan een andere zijn, ligt aan het feit welke MDAC er bij je is geinstalleerd, laatste versie is 2.8

  Dim DB As Connection

  Dim connstr as string

  Dim therec As Recordset

  Dim thequery As String

  connstr = “driver=sql server;uid=sa;database=tourek;server=nt1;”

  Set DB = New Connection

  DB.CursorLocation = adUseClient

  DB.ConnectionString = connstr

  DB.Open

  'en dan gaan we iets prutsen met een query…

  Set therec = New Recordset

  therec.Open thequery, DB, adOpenForwardOnly, adLockReadOnly, adCmdText

  If therec.RecordCount > 0 Then

  Do While Not therec.EOF

  'do iets met het record

  therec.MoveNext

  Loop

  End If

  CloseRecset therec 'close recordset

  DB.Close 'close db

  Set DB = Nothing 'release mem

  '======================

  'Sub CloseRecset()

  '

  'Close and release recordset

  '======================

  Sub CloseRecset(trec As Recordset)

  On Error Resume Next

  If (trec.State = adStateOpen) Then

  trec.Close

  Set trec = Nothing

  End If

  End Sub
• 

  Nico den Tuinder

  27-06-2005 17:27

  Een aantal weken geleden heb ik zo'n vraag ook beantwoord. Zie daar!

  Nico den Tuinder