---

Hejsa
Hvordan vil følgende kode se ud i ADO :

Dim db as Database
Dim RS As Recordset
Dim Stelmaskinetimer as Currency
Set db = OpenDatabase("C:\Indtastning\danREPLICA.mdb")
Set RS = db.OpenRecordset("SELECT SUM(Timer) AS Feltsum FROM Stel ")
Stelmaskinetimer = RS!Feltsum
RS.Close
Set RS = Nothing
db.Close


Mvh. Henrik

---

Hei Henrik!

Dim strSQL as String
Dim Con as ADODB.Connection
Dim RS as ADODB.Recordset

Con.ConnectionString = "Provider = Microsoft.Jet.OLEDB.4.0;Data
Source=C:\Indtastning\danREPLICA.mdb"
Con.CursorLocation = adUseClient
Con.Open

SQL = "SELECT SUM(Timer) AS Feltsum FROM Stel "

set RS = New ADODB.Recordset

RS.Open SQL, Con, adOpenKeyset, adLockOptimistic, adCmdText

Stelmaskinetimer = RS!Feltsum

Set RS = Nothing
SetCon = Nothing


mvh Kristian

"Henrik" <Henrik@it.dk> skrev i melding
news:9o83um$cfr$1@news.cybercity.dk...
> Hejsa
> Hvordan vil følgende kode se ud i ADO :
>
> Dim db as Database
> Dim RS As Recordset
> Dim Stelmaskinetimer as Currency
> Set db = OpenDatabase("C:\Indtastning\danREPLICA.mdb")
> Set RS = db.OpenRecordset("SELECT SUM(Timer) AS Feltsum FROM Stel ")
> Stelmaskinetimer = RS!Feltsum
> RS.Close
> Set RS = Nothing
> db.Close
>
>
> Mvh. Henrik
>
>