Galhano //127.0.0.1

Função útil quando se pretende aceder de forma rápida a dados de uma tabela:

Function CreateDataSet(ByVal strSQL) As Data.DataSet
        Dim conn As Data.SqlClient.SqlConnection = New Data.SqlClient.SqlConnection(strConn)
        Dim cmd As New System.Data.SqlClient.SqlCommand(strSQL, conn)
        Dim da As New System.Data.SqlClient.SqlDataAdapter(cmd)
        Dim ds As New Data.DataSet
        da.Fill(ds)
        conn.Close()
        conn.Dispose()
        Return ds
End Function

Acedendo aos valores:

label1.text = CreateDataSet(" SELECT ClienteID, Nome FROM Clientes WHERE ClienteID=23").Tables(0).Rows(0).Item(1).ToString

 

-> Zé Carlos