[VB] esempio per ADO

[Kaev]

Salve gente,

qualcuno sarebbe così gentile da postarmi un esempio di codice per fare eseguire una query di SELECT a un programmino VB (usando ADO) comunicante con SQLServer?

I miei tentativi danno strani risultati, nel senso che funzionano le insert ma le select restituiscono zero record...

Dim rs As ADODB.recordset
Dim connessione As New ADODB.Connection
Dim cntStr As String

cntStr = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=nomeserver; Initial Catalog=nomedatabase"

connessione.Open cntStr, "sa", "password"

Set rs = connessione.Execute("SELECT * FROM nometabella")

' a questo punto rs.recordcount = -1 !!!
' (ma provando la query da query analyzer restituisce 2 record...)

Potrebbe essere problema di ServicePack di Visual Studio?

[ddies]

il rs.recordcount puoi usarlo solo se usi il dataenvironment sennò
devi fare un cliclo while

while not rs.eof
...
...
...

rs.movenext
wend

[Johnny_Depp]

L'esempio che ti linko
è specifico per MySQL

ma cambiando il DSN di sistema
funziona perfettamente anche con SQL SERVER (testato)

http://forum.html.it/forum/showthrea...hreadid=302029

[Kaev]

grazie mille, è che in realtà ero ingannato dal recordcount mi dava -1.
In realtà i record c'erano, grazie a entrambi!!