VB SQL Server - Visualizzazione valori presi da una SELECT

di Anonimizzato7633 il 30 ago 2010, 10:08

1 risposte

Anonimizzato7633

Utente anonimizzato

30 ago 2010, 10:10

Ciao a tutti,

sono nuovo di VB e sto implementando un programma in cui ho la necessità di visualizzare i valori presenti sul mio db (in SQL Server).
Premetto che la connessione al db funziona correttamente e la si trova nella variabile objconn
Quindi procedo in questo modo


strsql = "select code from dbo.MyTab"
objcomm = New OleDbCommand(strsql, objconn)
Try
     If IsDBNull(objcomm.ExecuteScalar) Then
          MsgBox("Non ci sono documenti nel database")
     Else
          'elencare i codici generati
     End If
Catch es As Exception
     errorMess = es.Message
     MsgBox(errorMess)
End Try

Qualcuno mi può dare un indicazione su come elencare in Monitor.Text i valori presi dal db
Monitor è la parte dell'interfaccia dove vorrei visualizzare i valori presi dal db

Grazie

1 Risposte

/
Anonimizzato7881
Utente anonimizzato
03 nov 2010, 16:33
Puoi prendere spunto da questo?!

Sub LeggiDB()
On Error GoTo GestioneErrori
Dim Conn As New ADODB.Connection
Dim Rec As New ADODB.Recordset
Dim Query As String

'<...> -> devi completarlo tu
Conn.ConnectionString="Driver={SQL Server};Server=<nome_istanza>;Uid=<nome_utente>;Pwd=<password>;Database=<nome_db>"
Conn.ConnectionTimeout=60
Conn.CommandTimeout=60
Conn.Open

Query = "SELECT * FROM <nome_tabella> "
Rec.CursorType=adOpenKeyset
Rec.LockType=adLockOptimistic
Rec.Open Query,Conn,,,adCmdText
While Not(Rec.EOF)
MsgBox CStr(Rec.Fields(0).Value) 'Non ho molta fantasia
Rec.MoveNext
Wend
Rec.Close
Set Rec=Nothing

Conn.Close
Set Conn=Nothing

GoTo fine
GestioneErrori:
Debug.Print "ERRORE: " & Err.Description
fine:
End Function