Set rs = db.Execute "select * from prob_jouranm_t where anmnr_id =" & id, connection, adOpenKeyset, adLockOptimistic

Ska det inte vara

Set rs = db.Execute ("select * from prob_jouranm_t where anmnr_id =" & id, connection, adOpenKeyset, adLockOptimistic )

?

/Niklas Jansson (på okänt vatten)

Kompileringsfel:

fel antal argument eller felaktig egenskapstilldelning

då jag använder parenteser. .Execute är blå markerad


körfel nr '3709'

The connection cannot be used to perform this operation. It is either closed or invalid in this context.

då jag försöker utan parenteser

Du kan inte välja cursor och låstyp med Execute.

Set rs = New ADODB.Recordset
rs.Open "select * from prob_jouranm_t where anmnr_id =" & id, connection, adOpenKeyset, adLockOptimistic

/Johan

Du skrev att jag skulle göra så här:

Set rs = New ADODB.Recordset
rs.Open "select * from prob_jouranm_t where anmnr_id =" & id, connection, adOpenKeyset, adLockOptimistic

Men jag har försökt ändra min befintliga som ser ut så här, men det lyser vackert rött varje gång jag försöker!

Set rs = db.Execute("SELECT fornamn_vc, efternamn_vc, anm_datum_sd, anm_tidp_sd, enhet_vc, anmalare_vc, problem_vc, atgard_vc, jourers_vc, arbetstid_dc, anm_id FROM prob_jouranm_t WHERE problem_vc LIKE '% " & sok & " %'")

Har nu satt db.open här:

Private Sub UserForm_Initialize()
db.Open "Driver=SQL Server; Server=vlkjehol;Database=ANMALAN;UID=SA;PWD=;"
End Sub