problemer med sql

SQL = Et eller andet
DoCmd.RunSQL

Prøv med:

docmd.execute(string)

Prøv

Docmd.runSQL string

Navnet på SQL skal naturligvis med

SQL = Et eller andet
DoCmd.RunSQL SQL

superjab > Skal du ikke ud at gå med hunden?  :o)

You can NOT use the Docmd.runsql to RETURN records, you have to use a recordset for this!

Personligt plejer jeg at bruge:

strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("database.mdb")
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open strDSN
strSQL = "SELECT * FROM tabel"
set RS = myConn.execute(strSQL)

når jeg skriver ud

'You must have a reference to DAO
Dim dB As DAO.Database
Dim rs As DAO.Recordset

Dim sSQL As String

    Set dB = CurrentDb
    Set rs = dB.OpenRecordset("SELECT * from tablel")
   
    With rs
        Do Until .EOF
            Debug.Print rs!ID 'Regner med at der er en felt = ID
                .MoveNext
        Loop
       
    End With
           
End Sub

Til

using ADO
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
   
    Set rs = New ADODB.Recordset
    With rs
       
        Set .ActiveConnection = CurrentProject.Connection
       
        .Open "Select * From tabel", , , adLockOptimistic
   
       
        Do Until .EOF
       
     
            rs("someshit") = "TESTING"
           
           
            .MoveNext
           
        Loop
       
    End With
    rs.Close

Til?

you dont need this :o)

  rs("someshit") = "TESTING"

funkytoget kan den engelsk?

du kan ikke brug docmd.runsql for at SELECT records!

Yes, funkytoget do speak english

I have problems with ADO, i have never used it before,

Can any of you create a simple example using ADO, and maybe explain some of the lines :-)

'using ADO
Dim cn As ADODB.Connection 'connection to database
Dim rs As ADODB.Recordset 
   
    Set rs = New ADODB.Recordset 'create a NEW recordset
    With rs 'I'm now going to work with rs (recordset)
       
        'Point the recordsets connection to point at THIS db's connection
        Set .ActiveConnection = CurrentProject.Connection
       
        'Now I open the recordset for read/write selecting data from tabel
        .Open "Select * From tabel", , , adLockOptimistic
   
        'Now I loop through all records until EOF (end of file)
        Do Until .EOF
       
     
            'If there is a field named someshit then I change the value
            rs("someshit") = "TESTING"
            .Update 'and update it in the dB
           
           
            .MoveNext 'then move to next record (or EOF!)
           
        Loop
       
    End With
    rs.Close 'close recordset

http://msdn.microsoft.com/library/default.asp?url=/code/list/ado.asp?frame=true

and ?

now there's gone 7 days, if you dont answer soon then admin will be on your tail!

now I'm p...ed off >anmeldt!

Terry>> He has given you the points. Are you still upset?

Best regards

FCS/Coadmin

fcs>I wasnt upset I was p...ed off :o)
All's well now though, tak :o)