clear me please

[sal21]

Based this piece of code to SELECT is required to open a table mytable ?????

Se tRS = New ADODB.Recordset
RS .Open "mytable ",CONN, adOpenKeyset, adLockPessimistic, adCmdTable

strSQL = "SELECT * FROM mytable WHERE RAPPORTO = '" & RAPPORTO & "'"
Set RS = GAF_CONN.Execute(strSQL)

If No tRS .EOF Then
...ecccc
end if

[HansV]

What exactly do you want to do?

[sal21]

What exactly do you want to do?

In effect before to use this piece of code:

Code: Select all

strSQL = "SELECT * FROM mytable WHERE RAPPORTO = '" & RAPPORTO & "'"
Set RS = GAF_CONN.Execute(strSQL)

is required to open the table with:

Code: Select all

Se tRS = New ADODB.Recordset
RS .Open "mytable ",CONN, adOpenKeyset, adLockPessimistic, adCmdTable

or i can use directlly the select statement without open the table?

[HansV]

You don't need to open the table first. You can either use

Code: Select all

Dim RS As ADODB.Recordset
strSQL = "SELECT * FROM mytable WHERE RAPPORTO = '" & RAPPORTO & "'"
Set RS = GAF_CONN.Execute(strSQL)

or

Code: Select all

Dim RS As New ADODB.Recordset
strSQL = "SELECT * FROM mytable WHERE RAPPORTO = '" & RAPPORTO & "'"
RS.Open strSQL, GAF_CONN, adOpenKeyset, adLockPessimistic, adCmdText

(But not both - choose only one)

[sal21]

OK! Tks, as usual.