Acesso ao bd sql

[Miron]

Preciso de ajuda para passar as info do SQL para as variáveis do VB.

Tipo:

Public Function zzCarregar(ByVal Identific As Integer) As Boolean
        cnn = New SqlConnection(QuestionsConnectionString)
        cnn.Open()
        StrSql = "SELECT * FROM TabQuestions where ID = '" & CInt(Identific) & "'" 'String Sql
        Dim cmd As New SqlCommand(StrSql, cnn)
       
chega aqui onde deveria enviar os dados para as variáveis e eu não consigo.

        cmd.ExecuteNonQuery()
        cnn.Close()
        Return GRAVOU = True
    End Function

 

[Poseydon Espilacopa]

Segue um exemplo:

Use o SqlDataReader para percorrer os registros de uma tabela.

Espero que ajude.

 

Private Sub HasRows(ByVal connection As SqlConnection)
    Using connection
        Dim command As SqlCommand = New SqlCommand("SELECT CategoryID, CategoryName FROM Categories;", connection)
        connection.Open()

        Dim reader As SqlDataReader = command.ExecuteReader()

        If reader.HasRows Then
            Do While reader.Read()
                Console.WriteLine(reader.GetInt32(0) & vbTab & reader.GetString(1))
            Loop
        Else
            Console.WriteLine("No rows found.")
        End If

        reader.Close()
    End Using
End Sub